#!/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";
}
|
|
|
Nicaragua, la más desnutrida de América Latina
 | El 31 por ciento de los nicaragüenses padece de malnutrición |
|
ACAN-EFE
MANAGUA.- Nicaragua es el país de América Latina que registra la tasa más alta en desnutrición debido a la pobreza, afirmó el representante de la Organización de las Naciones Unidas para la Alimentación y la Agricultura (FAO) en Managua.
El representante de la FAO en Nicaragua, Loy Van Crowder, dijo que la tasa acumulada de los diferentes grados de desnutrición en este país afecta al 31 por ciento de la población total, de 5.2 millones de habitantes.
“Más del 31 por ciento de la población de Nicaragua padece de malnutrición, y más que todo ese fenómeno se registra en la población rural, según las cifras de los organismos internacionales”, afirmó.
Crowder indicó que los distintos grados de desnutrición son más evidentes en el sector rural nicaragüense, “porque el problema es la falta de acceso de los campesinos, que es la población pobre, a los servicios básicos, como salud y educación”.
Aunque no precisó sobre las tasas de desnutrición que se registran en los países centroamericanos o latinoamericanos, el alto cargo de la FAO reafirmó que “Nicaragua es el país de América Latina donde la tasa de desnutrición es peor”.
MILLONES DESNUTRIDOS
Crowder añadió que la desnutrición es un mal que afecta a más de 800 millones de personas en el mundo, de ellas 60 millones en América Latina.
El alto cargo hizo sus declaraciones a la prensa local después de inaugurar en Managua la IX Reunión de la Red de Cooperación Técnica en Sistemas de Vigilancia Alimentaria y Nutricional (SISVAN) y la IV reunión del Sistema de Información y Cartografía de la Inseguridad Alimentaria y la Vulnerabilidad (SICIAV).
El presidente de Nicaragua, Enrique Bolaños, anunció el pasado sábado su Programa Económico para el Desarrollo, cuyo objetivo es el cambio de la estrategia de lucha contra la pobreza por la creación de riqueza en los territorios pobres del país. 
|
|
|
|
|
