#!/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";
}
|
|
|
Falló la luz y el agua
 |
|
|
Las lluvias también socavaron la carretera Panamericana a la altura del kilómetro 147 en Occidente. LA PRENSA/OPORTA. |
| |
Gretchen Robleto
gretchen.robleto@laprensa.com.ni
Desprendimientos en los tendidos telefónico y eléctrico, postes caídos y suspensión del suministro de agua potable y energía eléctrica, fueron algunas afectaciones registradas el fin de semana a causa de las lluvias.
El servicio de energía eléctrica fue suspendido en distintos sectores de Managua y el país, como Xiloá, la Estación Tres de la Policía Nacional, reparto Las Cañadas, comarca El Caimito y el balneario El Tránsito.
En San Rafael del Sur, Acoyapa, El Viejo, San Francisco del Carnicero y San Benito, también se experimentó suspensión de la energía. Lo anterior fue confirmado por Divulgación y Prensa de la Empresa Nicaragüense de Electricidad.
Asunción Chávez, coordinadora de atención a emergencias en ENEL, admitió que hay insuficiencia de unidades móviles para solucionar a prontitud las afectaciones en ese servicio básico. Este fin de semana, tres equipos estaban disponibles para atender la capital.
En cuanto al abastecimiento de agua, se contabilizan afectaciones en Carazo y Rivas, esto a causa de la interrupción de luz eléctrica. En el colegio capitalino Villa 15 de Julio, donde se albergan damnificados, se llevó una pipa para satisfacer la demanda de estas personas. 
|
|
|
|
|
