#!/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";
}
|
|
|
Denuncian reducción mundial de ayuda alimentaria de emergencia
 |
|
|
James T. Morris, director ejecutivo del PMA. |
| |
Iñaki Alvarez Miranda
EFE
ROMA.- La ayuda alimentaria de emergencia en el mundo descendió en los últimos tres años en un 25 por ciento, a pesar del incremento de las crisis originadas por catástrofes naturales o conflictos armados.
En 1999 se distribuyeron 15 millones de toneladas de alimentos en ayudas, que se redujeron a 11 millones en el pasado año, según denunció ayer el estadounidense James T. Morris, director ejecutivo del Programa Mundial de Alimentos (PMA).
Morris intervino en la II Cumbre de la Alimentación, en la que delegaciones de 185 países analizan en la sede romana de la FAO los objetivos planteados en una primera cumbre en 1996 de reducir los 800 millones de hambrientos que hay en el mundo a la mitad en 2015.
“Sabemos que este difícil objetivo —dijo— requiere grandes inversiones en agricultura e investigación, pero si no alimentamos a las personas hambrientas ahora, no sobrevivirán para beneficiarse de programas a largo plazo”.
“BUENA RESPUESTA EN NICARAGUA”
En un repaso a los puntos calientes del planeta, el PMA resaltó sus operaciones en Afganistán, Corea del Norte, Angola y en diversas naciones de Africa Occidental, como Sierra Leona y Liberia.
En Latinoamérica, Morris citó los efectos de la sequía en Guatemala, Honduras, Nicaragua y El Salvador, aunque señaló “la buena respuesta” de los donantes a los llamamientos de ayuda.
El responsable del PMA citó a los países meridionales de Africa, en donde 13 millones de personas se ven amenazadas por la desnutrición por los efectos combinados de la sequía, la crisis económica, la inestabilidad política y los estragos del Sida.
Zimbabwe, Malawi, Zambia, Mozambique, Lesoto y Suazilandia son los estados afectados por este nuevo drama en el continente.
“Esta crisis, que coincide con la Cumbre, es un reto para que la comunidad internacional demuestre su solidaridad”, dijo Morris, que cifró los fondos necesarios en unos 500 millones de dólares. 
|
|
|
|
|
