|
|
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";
}
|
|
Nicas en Miami apoyarán proyectos sociales
 |
|
|
|
José Antonio Alvarado
|
|
Anne Pérez Rivera
Empresarios nicaragüenses radicados en Miami re reunieron recientemente con el presidente ejecutivo del Fondo de Inversión Social de Emergencia (FISE), José Antonio Alvarado, para coordinar esfuerzos en la implementación de proyectos que beneficien a la población de Nicaragua.
“Los nicaragüenses están interesados principalmente en apoyar proyectos de construcción de viviendas, saneamiento y agua potable”, informó Alvarado.
Entre los cambios que contempla Alvarado ahora que está al frente de esta institución, está el anuncio de que los consultores de proyectos de corta duración serán reemplazados por trabajadores sociales que se ocuparán de las supervisiones en cada municipio.
Otro de los cambios que Alvarado promete dentro del FISE, es reducir el tiempo del proceso de formulación de los proyectos, “para que lo burocrático se disminuya”, argumentó.
El presupuesto del FISE asciende a un mil millones de córdobas, cantidad que proviene de organismos financieros internacionales, principalmente en calidad de préstamo, así como de donaciones y fondos propios.
Del presupuesto total del FISE se destinarán C$766.37 millones para la ejecución de proyectos, C$72.76 millones al fortalecimiento de capacidades en las municipalidades y comunidades.
Mientras la Red de Protección Social, conformada por el Instituto Nicaragüense de Estadística y Censos y otras instituciones, recibirán C$35.92 millones y C$135.7 millones para desarrollo institucional y el Fondo de Mantenimiento Preventivo (FMP) dirigido a salud y educación.
Estos recursos forman parte del Programa Multianual 2005-2007 del FISE, mecanismo que esta institución implementa para realizar sus planes de inversión en los 152 municipios y comunidades.
|
|
|
| |
|
| |
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
|
|
|
