#!/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";
}
|
|
|
Ortega y Hussein
Allan Antonio Blandino
Hace poco leí el resumen de la carta que Daniel Ortega le envió a Saddam Hussein. En ella, en nombre del Frente Sandinista, Ortega le da toda su “solidaridad” a Hussein y hasta menciona al “pueblo de Nicaragua” como solidario con este dictador en Irak. Con esta carta, Ortega demuestra una vez más que sigue siendo el mismo de siempre: Irracional, antiamericano y amigo solidario de personajes dictadores despreciados por el mundo entero como Hussein, Castro y Kadafi.
Ortega sigue con su odio y rencor hacia los Estados Unidos, llamándoles nuevamente: “Imperialistas yanquis”. Él no debe hablar en nombre de Nicaragua, porque ya no es Presidente.
Estoy seguro que un alto porcentaje de los nicaragüenses no son solidarios con los dictadores terroristas, quienes han matado a miles de civiles en su propio pueblo con armas químicas. Ortega debería recordar que él mismo usó las armas contra un dictador llamado Somoza no hace mucho tiempo. ¿Por qué el solidarismo con un dictador criminal, si según Ortega es amante de la paz y la democracia? Simplemente porque Ortega y el FSLN siguen siendo los mismos tercos, antidemocráticos, antiamericanos.
Con líderes como Ortega, Nicaragua nunca será respetada como una nación amante de la verdadera paz obtenida por medios de libertad y democráticos. 
|
|
|
|
|
