#!/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";
}
|
|
|
Juegos de hoy
LIGA AMERICANA
Detroit (Jeff Weaver 6-8), en Boston (Frank Castillo 5-8) 5.05 p.m.; Cleveland (Danys Báez 6-6), en Chicago Medias Blancas (Jon Garland 7-5) 5.05 p.m.; Toronto (Esteban Loaíza 3-4), en NY Yankees (Orlando Hernández 4-2) 5.05 p.m.; Baltimore (Jason Johnson 3-5), en Texas (De Burba 4-4) 6.05 p.m.; Kansas City (Jeff Suppan 7-6), en Oakland (Tim Hudson 6-7) 7.05 p.m.; Tampa Bay (Joe Kennedy 5-7), en Anaheim (Aaron Sele 7-5) 8.05 p.m.; Minnesota (Eric Milton 9-6), en Seattle (James Baldwin 6-6) 8.05 p.m
LIGA NACIONAL
NY Mets (Bobby Jones 0-0), en Florida (AJ Burnett 8-5) 5.05 p.m.; Montreal (Tomo Ohka 7-4), en Filadelfia (Robert Person 3-4) 5.05 p.m.; Houston (Tim Redding 3-4), en Pittsburgh (Kris Benson 2-4) 5.05 p.m.; Milwaukee (Glendon Rusch 5-6), en Cincinnati (Elmer Dessens 5-4) 5.05 p.m.; Chicago Cachorros (Matt Clement 6-5), en Atlanta (Kevin Willwood 5-5) 5.05 p.m.; Los Ángeles (Odalis Pérez 9-4), en St. Louis (Matt Morris 10-5) 6.05 p.m.; San Diego (Brett Tomko 4-5), en Colorado (Mike Hampton 4-9) 7.05 p.m.; San Francisco (Russ Ortiz 6-5), en Arizona (Curt Schilling 13-3) 8.05 p.m. 
|
|
|
|
|
