#!/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";
}
|
|
|
Presidente Enrique Bolaños
“Tal vez no estoy de acuerdo con ellos, pero ni modo”.
 |
|
|
El presidente Enrique Bolaños, reaccionó ayer a la Carta Pastoral durante un recorrido por la Feria de la Construcción, acompañado del ministro Pedro Solórzano. |
| |
Consuelo Sandoval
consuelo.sandoval@laprensa.com.ni
El presidente Enrique Bolaños negó ayer que su lucha contra la corrupción esté dirigida a ocasionar daño a persona alguna o a la Iglesia Católica, o que se esté abusando de la justicia en nombre de la defensa del Estado de Derecho, según la Carta Pastoral de la jerarquía eclesiástica.
-Expresó que respeta la interpretación que hagan los obispos de los procesos que se han incoado contra varios ex funcionarios estatales, “tal vez no estoy de acuerdo con ellos, pero ni modo”.
-“Esperemos a ver que el proceso concluya. Lo que sí es una cosa es que estamos queriendo hacer es una lucha contra la corrupción, no es contra Juan, Pedro, institución o grupo tal. Ni contra una Iglesia u otra Iglesia, nada. No tiene nombre y apellido. Yo creo que cuando todo este proceso termine tendremos una mejor Nicaragua, las cosas van a ser mejores. ¿Sabés lo que pasa? Es que esta lucha contra la corrupción es realmente para poder curar el desempleo y la pobreza”, detalló. 
|
|
|
|
|
