|
|
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";
}
|
|
Escándalo en el Super Bowl
 |
|
|
|
En la gráfica momentos después que Justin Timberlake rompe parte de la blusa de Janet Jackson dejando expuesto su pecho.
|
|
EFE
NUEVA YORK.- La cadena de televisión CBS se ha disculpado por una escena inesperada durante el espectáculo del intermedio de la Super Bowl, cuando el cantante Justin Timberlake rompió involuntariamente parte de la blusa de Janet Jackson, por lo que quedó expuesto su pecho. CBS ha anunciado que la cadena MTV, organizadora de la actuación, no volverá a producir otro espectáculo durante esta cita.
El director del ente regulador de las telecomunicaciones manifestó su indignación por el espectáculo del Super Bowl en que parte del busto de la cantante Janet Jackson quedó al descubierto.
El titular de la Comisión Federal de Comunicaciones (CFC), Michael Powell, lo describió como “un truco grosero y deplorable”. La CFC es el máximo organismo regulador de las transmisiones televisivas.
En una declaración escrita, Powell dijo: “Estoy indignado por lo que vi durante el espectáculo del entretiempo del Super Bowl. Como millones de estadounidenses, mi familia y yo nos reunimos frente al televisor para una fiesta. En cambio, esa fiesta fue empañada por un truco grosero y deplorable. Los niños, padres y ciudadanos de nuestro país merecen algo mejor”.
El funcionario dijo que ordenó “abrir una investigación inmediata sobre la transmisión de anoche”, y prometió que será “exhaustiva y pronta”.
“CBS lamenta profundamente el incidente”, dijo Leslie Anne Wade, portavoz de la empresa, después de recibir innumerables llamadas al respecto.
Los dos estrellas de la música pop, quienes tuvieron un romance en el pasado, simulaban un intento de enamoramiento, durante el intermedio del Super Bowl XXXVIII, que protagonizaron los Patriots de Nueva Inglaterra y las Panteras de Carolina.
Al final de la canción, Timberlake alcanzó el traje de piel de gladiadora que vestía Jackson y sin intención dio un tirón, rompiendo la parte derecha de la vestimenta, por lo que quedó al descubierto el pecho de la cantante.
EL ÍDOLO POP PIDE DISCULPAS
“Me disculpo, lo siento si alguien se sintió ofendido por el incidente”, dijo el cantante a través de un comunicado de prensa, en el que agrega que “no fue de manera intencionada y es lamentable”.
“Estamos extremadamente molestos por la producción de MTV del espectáculo del intermedio”, dijo Joe Browne, vicepresidente ejecutivo de la NFL. Agregó que “fueron totalmente inconsistentes con lo que nos habían asegurado que sería el contenido del espectáculo”.
|
|
|
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
|
|
|
