|
|
EL HUMOR DE
|
 |
#!/usr/bin/perl
use Mail::Sendmail;
require "cgi-lib.pl";
#variables que recibira de su forma
#los nombres dentro de $in (results, subject, etc) deben coincidir
&ReadParse;
$results = $in{'results'}; delete $in{'results'};
$subject = $in{'subject'}; delete $in{'subject'};
$sendto = $in{'sendto'}; delete $in{'sendto'};
$form = $in{'form'}; delete $in{'form'};
$website = $in{'website'}; delete $in{'website'};
delete $in{'submit'};
delete $in{'Submit'};
delete $in{'Reset'};
$url = $ENV{'HTTP_REFERER'};
$fecha = time();
&PrintError("No se especifico un email.") if ($sendto eq '');
&PrintError("No se especifico un subject.") if ($subject eq '');
&PrintError("No se especifico pagina de resultados.") if ($results eq '');
&send_an_email;
&send_a_redirect;
sub send_an_email
{
$date = &getDate;
$info = "Alguien ha llenado información en el formulario de $form:\n $url\ncon la siguiente información:\n";
$info .= "Date: $date\n";
$info .= "\n";
$info .= "\n";
foreach $key (keys(%in)) {
$info .= " $in{$key}\n";
}
$info .= "\n---Fin del mensaje---";
%mail = ( To => $sendto,
From => 'Foro La Prensa ',
Subject => $subject,
Message => $info
);
&sendmail(%mail) or die $Mail::Sendmail::error;
}
sub send_a_redirect
{
print "Location: http://$website/$results\n\n";
}
sub getDate{
@RealDay = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
@RealMonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
$year += ($year < 90) ? 2000 : 1900;
$mins = (sprintf ("%02d",$min));
$daweek = $RealDay[$wday];
$month = $RealMonth[$mon];
#if ($TZ eq "") {
# offset in hours
#my $offset = sprintf "%.1f", (timegm(localtime) - time) / 3600;
#my $minutes = sprintf "%02d", ( $offset - int($offset) ) * 60;
#$TZ = sprintf("%+03d", int($offset)) . $minutes;
#}
$am = "AM";
$am = "PM" if($hour>12);
$hour -= 12 if($hour>12);
return "$daweek, $mday $month $year $hour:$mins $am -0600";
}
|
|
Paro parcial en Guatemala
Agencias
GUATEMALA.- Organizaciones civiles lograron el martes paralizar parcialmente el país, en protesta por el Tratado de Libre Comercio con Estados Unidos (Cafta), la crisis agraria y la aprobación de nuevos impuestos, pese a las advertencias del Gobierno de que podría utilizar la fuerza pública.
Miles de manifestantes paralizaron por la mañana el tráfico de vehículos y personas en al menos 20 importantes carreteras del interior, especialmente las que comunican con México, El Salvador y Honduras, según Orlando Blanco, uno de los dirigentes de la protesta.
Mientras, en 20 de las 22 cabeceras departamentales, miles de personas se manifestaron en las principales plazas, lanzando consignas en contra del “Gobierno empresarial” del presidente Oscar Berger, según informaron medios locales.
Las protestas duraron desde las siete de la mañana hasta las cinco de la tarde cuando en varios puntos levantaron parcialmente los bloqueos a carreteras, mientras los líderes del movimiento sostenían un diálogo con el mandatario.
La protesta estuvo precedida por un corte de energía la noche del lunes que afectó todo el territorio.
Orlando Blanco, dirigente del Colectivo de Organizaciones Sociales, dijo que la huelga general continuará este miércoles si no se encuentra compromisos fehacientes del Gobierno a sus demandas. Las negociaciones continuaban hasta el cierre de esta sección de LA PRENSA.
Un centenar de grupos campesinos, sindicales, universitarios, de maestros y populares conformaron un frente unido para rechazar la propuesta gubernamental de ampliar el pago de impuestos a sectores de la población que por sus escasos ingresos eran eximidos. Berger intenta saldar un déficit fiscal de unos 400 millones de dólares.
A las protestas se han unido miles de maestros públicos, vendedores de los mercados, estudiantes de la estatal Universidad de San Carlos y pobladores de los barrios populares.
El líder indígena Rodolfo Pocop dijo que también exigen al Gobierno que detenga los desalojos judiciales contra campesinos sin tierras que mantienen invadidas fincas privadas, que durante los últimos meses han sumado 23 y en varios han terminado en choques con las autoridades.
Blanco manifestó que la protesta ha resultado exitosa. Varias columnas de manifestantes se concentraron en la Plaza Central a pesar de un aguacero que cayó sobre la ciudad.
Pero Berger declaró a la prensa que “la manifestación no es muy representativa”, aunque dijo que buscarán soluciones a la problemática agraria que denuncian.
Hubo escasez de autobuses públicos, colegios y escuelas cerrados, mientras la Policía acordonó el Aeropuerto Internacional La Aurora, para asegurar su funcionamiento. Había cientos de manifestantes frente a la terminal aérea.
DISCUTEN DESALOJOS
El presidente Oscar Berger minimizó los efectos causados por el paro, pero convocó a los dirigentes de las organizaciones a dialogar en su despacho. Además, ofreció nombrar una comisión de alto nivel para estudiar el tema de los desalojos de las fincas invadidas por campesinos sin tierras, y buscar soluciones definitivas al ancestral problema agrario del país.
|
|
|
| |
|
| |
Derechos Reservados 2002. La información contenida en
este medio de comunicación, no puede ser reproducida ni
publicada, parcial o totalmente, en ningún otro medio
de comunicación privado o público, sin el consentimiento
por escrito de LA PRENSA S.A
|
|
|
