#!/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";
}
|
|
|
Breves nacionales
Benjamín Blanco
benjamin.blanco@laprensa.com.ni
SALUD
Lucha contra el dengue casa por casa
Como parte de las actividades que realiza el Ministerio de Salud (Minsa) en la capital para contrarrestar el dengue, brigadistas de salud junto a miembros del Ejército aplicaron el insecticida llamado abate en el Barrio Ángel Berríos de Ticuantepe; en el Francisco Álvarez de Ciudad Sandino y en Managua en los barrios Carlos Núñez, Villa Canadá, Vista Xolotlán, y Ciudad Jardín. Por la noche, en estos mismos lugares se realizó la fumigación intradomiciliar.
Hoy martes la aplicación del abate continuará en la capital, en los barrios: 22 de Enero, Lomas del Valle, La Morita, Colonia Nicarao, Julio Buitrago, Anexo de Villa Venezuela, Ocho de Marzo, Villa Revolución, Villa José Benito Escobar, Residencial Las Mercedes, Colonia Managua y el Barrio Juan Menocal.
FAO
Alistan plan para enfrentar sequías
Representantes del Fondo de Naciones Unidas para la Alimentación (FAO), de Guatemala, El Salvador, Honduras y Nicaragua se reunirán en Managua el 13 y 14 de agosto del presente año para identificar áreas críticas comunes para la cooperación y coordinación de trabajos de emergencia, y al mismo tiempo desarrollar estrategias para resolver el problema de la ocurrencia de sequías en la región.
Esta reunión responde a un fuerte interés de parte de los donantes y Ministerios de Agricultura del área en desarrollar estrategias subregionales para coordinar las respuestas a problemas claves como la seguridad alimentaria, prevención y atención durante sequías y emergencias causadas por desastres naturales. 
|
|
|
|
|
