#!/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";
}
|
|
|
La Naturaleza cobra caro
Terremotos, deslaves, maremotos, huracanes, tornados, inundaciones, volcanes en erupción; todos estos cataclismos o desastres han ocurrido desde tiempos remotos pero no con la cuota de víctimas que cobran en la actualidad.
La fatalidad de pérdidas humanas ha acrecentado tanto como el sufrimiento de las personas que se ven envueltas por la tragedia.
Pero el hombre no entiende su arrogancia y soberbia se lo impiden, no ve y no entiende las consecuencias porque su egoísmo y prepotencia no lo dejan. La humanidad se empecina en despalar y contaminar; destruye a los animales, los bosques, ríos, lagos, mares y hasta el aire que respiramos, cuando la destrucción sea irreversible no habrá remedio, sino lamentos. La naturaleza lo que hace es simplemente cobrarle al hombre el daño que le está causando. El hombre no ha entendido que el mal se lo hace a él mismo y quienes pagarán el precio más alto serán las generaciones futuras quienes nos culparán por no haber tenido las agallas y la humildad para reparar a tiempo lo destruido y evitar vernos forzados a enfrentar lo imposible. Dios dio al hombre la autoridad para dominar la tierra, pero esto no quiere decir acabar con la tierra sino por el contrario protegerla y preservar su naturaleza. La crueldad no conoce límites, la piedad y compasión tampoco, el hombre elige.
Marlon José Navarrete Espinoza. 
|
|
|
|
|
