#!/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"; }