|
|
EL HUMOR DE
|
 |
#!/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";
}
|
|
AMUNIC
Villanueva fortalece gobernabilidad
El gobierno municipal de Villanueva, en el departamento de Chinandega, durante el año 2005 invirtió 18 millones de córdobas, los cuales fueron distribuidos en proyectos de infraestructura y capacitaciones en temas de gobernabilidad local.
Entre los proyectos más importantes destacan: 3.5 kilómetros de adoquinado que van desde la Carretera Panamericana hacia el municipio; la construcción de 55 kilómetros de carreteras que conducen hacia las comunidades de la zona, dos canales de drenaje para evitar inundaciones en el período de invierno, así como la construcción de la Casa de los Pipitos, con la ayuda de Mortonez Elvayes. Todos estos proyectos fueron ejecutados con fondos de transferencias, co-financiamiento con el FISE y recursos propios de la comuna.
Según el alcalde de Villanueva, Mario Alberto Aguilera Díaz, para el año 2006 tienen presupuestado invertir más de 20 millones de córdobas en proyectos de agua y electrificación, la construcción de 18 kilómetros de carreteras, adoquinado en el casco urbano y la construcción de la cancha multiusos de la municipalidad.
Otros de los proyectos que ejecutarán este año, son: la construcción de dos casas comunales para capacitar a los habitantes en temas de participación ciudadana, democracia y gobernabilidad.
Todos estos proyectos beneficiarán de forma directa a más de 31 mil habitantes.
CORTESÍA DE AMUNIC
Los criterios expresados en esta columna son responsabilidad exclusiva de las instituciones que las elaboran y no representan el criterio editorial del diario LA PRENSA.
|
|
|
Derechos Reservados 2002. La información contenida en
este medio de comunicación, no puede ser reproducida ni
publicada, parcial o totalmente, en ningún otro medio
de comunicación privado o público, sin el consentimiento
por escrito de LA PRENSA S.A
|
|
|
