#!/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";
}
|
|
|
Rizo presentó informe ante cumbre sobre alimentos
 | Gobierno dará a conocer, próximamente, documento que llevó a Roma |
|
Luis Felipe Palacios
felipe.palacios@laprensa.com.ni
El vicepresidente de la República, José Rizo Castellón, presentó ayer un informe sobre los avances que experimenta Nicaragua en materia de alimentación, ante el plenario de la “Cumbre Mundial sobre la Alimentación: cinco años después”, que se lleva a cabo en Roma, Italia, informó la Vicepresidencia.
Rizo, quien encabeza una delegación oficial que participa en el evento, sostuvo un encuentro con Jacques Diouf, director general de la Organización de las Naciones Unidas para la Agricultura y la Alimentación (FAO), a quien entregó un “amplio informe”, el cual se dará a conocer en el país, en los próximos días.
Según un comunicado oficial, en la “Cumbre Mundial”, el vicemandatario nicaragüense presentó a Diouf, “un panorama amplio de la situación política, económica y social por la que atraviesa hoy Nicaragua. A la vez, informó sobre la nueva visión económica del gobierno que preside Enrique Bolaños, de cara a los retos de los próximos cinco años”.
Según la misiva, el Director General de la FAO expresó su satisfacción con los programas, que en materia de política alimentaria, se están desarrollando en Nicaragua, “por lo que reiteró su compromiso de seguir apoyando al país”.
El funcionario de la FAO, de acuerdo con la nota, resaltó la visión de nación que está impulsando el gobierno para emprender una lucha sostenida contra la pobreza.
La delegación oficial de Nicaragua, que estuvo encabezada por el vicepresidente Rizo, la integraron el vicecanciller Salvador Stadthagen; el secretario general del Ministerio Agropecuario-Forestal, Luis Osorio; y el secretario general de la vicepresidencia, Juan Ramón Navarro. 
|
|
|
|
|
