#!/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";
}
|
|
|
Preocupado
Joan Moreta
Preocupado
Quiero expresar a don Enrique Bolaños mi honda preocupación por la seguridad de María Luisa Acosta, a raíz del asesinato de su esposo Francisco José García Valle.
Le insto a que tome las medidas oportunas e inmediatas para proteger a ella y a su familia de cualquier nuevo ataque, a pesar de las medidas que ya ha tomado la Policía para que se lleve a cabo una investigación exhaustiva, inmediata e imparcial sobre el asesinato de Francisco José García Valle, que se hagan públicos sus resultados y que quienes pla-nearon, ordenaron y ejecutaron este crimen comparezcan ante la justicia.
Le recuerdo la obligación que tienen las autoridades de respaldar a los defensores de los Derechos Humanos en su labor de promoción y protección de estos derechos, obligación que aparece expuesta en la declaración de la ONU sobre el derecho y el deber de los individuos, los grupos y las instituciones, de promover y proteger los Derechos Humanos y las libertades fundamentales, universalmente reconocidos del 9 de diciembre de 1998, y en la resolución sobre defensores de Derechos Humanos en las Américas adoptada por la Asamblea General de la Organización de los Estados Americanos en junio de 1999. 
|
|
|
|
|
