#!/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";
}
|
|
|
Brutal bombazo
 | Suicida mata a 16 pasajeros de autobús israelí |
| Tropas israelíes entran a pueblos palestinos |
|
AP
MEGUIDO, ISRAEL.- Un atacante suicida palestino usó una nueva y más letal técnica el miércoles: acercándose en un automóvil a un autobús en movimiento, provocó un estallido. Murieron 16 israelíes y decenas resultaron heridos en un ataque planeado para coincidir con el 35ª aniversario de la Guerra de 1967 en Oriente Medio.
La primera reacción israelí fue el envío de tanques a la ciudad cisjordana de Jenin, de donde provenía el atacante, pero los palestinos temían represalias masivas. En Israel, aumentaba el clamor para la reocupación total de Cisjordania y la Franja de Gaza.
La Autoridad Palestina condenó el ataque en un comunicado que, por primera vez, incluyó una aseveración de que no sabía con anterioridad del suceso, reivindicado por el grupo Yihad Islámica.
Funcionarios palestinos dijeron que tienen órdenes de arrestar a miembros de ese grupo, pero los cada vez más exasperados israelíes albergan pocas esperanzas de que el líder palestino vaya más allá de esfuerzos para guardar las apariencias.
El estallido ocurrió alrededor de las 7:20 hora local cerca de la ciudad de Meguido, en el norte de Israel.
“En un parpadeo, vi pasar un auto, y después vino la explosión”, dijo Sharon Levinger, una soldado que estaba en la parte del frente del autobús.
“Sentí cómo el autobús saltó y volcó”, dijo el conductor Mickey Harel, que ha sobrevivido a tres ataques en siete meses.
La explosión masiva hizo que el autobús volcara dos veces.
Algunos pasajeros salieron lanzados contra el asfalto, mientras que otros murieron atrapados en el vehículo en llamas.
Partes corporales y pertenencias de los pasajeros quedaron esparcidas a distancia considerable del autobús. Trabajadores vestidos de blanco recolectaban los restos humanos.
Trece de los 16 muertos eran soldados de aproximadamente 20 años de edad. Treinta y ocho personas resultaron heridas, diez gravemente.
Yihad Islámica tiene un historial de ataques contra soldados en Israel ya que considera que son objetivos militares legítimos; tal noción es rechazada por Israel, donde la mayoría de los jóvenes que cumplen 18 años son reclutados automáticamente en el ejército. 
|
|
|
|
|
