|
|
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";
}
|
|
Violencia por cancelación de concierto de Marco Antonio Solís
 |
|
 |
Queman automóviles y Policía detiene a 23 personas |
|
|
Marco Antonio Solís.
|
|
AP
MÉXICO.- Fuertes altercados y 23 detenciones se realizaron en Puerto Vallarta poco después de que el cantante Marco Antonio Solís cancelara su concierto en la localidad a causa de una laringitis, dijo el domingo la Fiscalía y la Policía.
Varias personas que habían comprado boletos para asistir al concierto, destrozaron los equipos de música y quemaron varios vehículos en la calle.
Unos 10,000 espectadores, quienes pagaron 14 dólares por el concierto, exigieron que les devolvieran el dinero. La situación se tornó violenta cuando nadie se presentó para responder a los gritos del público.
El promotor de Solís dijo que se destruyeron equipos por valor de 200,000 dólares. Fuera del centro, 13 vehículos fueron quemados, incluyendo una patrulla policial y varios buses.
El hermano de Marco Antonio, Miguel Ángel, estaba arrestado, dijo el director del departamento de Policía Puerto Vallarta, Santiago Centeno.
Un hombre de 44 años resultó herido cuando Miguel Ángel trató de huir en un bus que contenía equipos electrónicos.
Víctor Manuel Ávalos, portavoz de Marco Antonio, no quiso decir dónde se encontraba el domingo el cantante porque podría existir “una orden de arresto contra él”. El fiscal adjunto Marcos Juárez dijo que no había tal orden.
|
|
|
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
|
|
|
