|
|
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";
}
|
|
Inprhu mantendrá apoyo a niñez trabajadora
 |
Invertirán US$3.5 millones en el 2005 |
Anne Pérez
A partir del próximo año el Instituto para la Promoción Humana (Inprhu), invertirá más de 3.5 millones de dólares en programas de apoyo a la niñez trabajadora y a organismos de la sociedad civil.
En el 2004 la inversión social de este organismo se aproximó a los tres millones de dólares, provenientes de cincuenta donantes de países europeos y Estados Unidos.
TRABAJANDO POR LA NIÑEZ
“Los niños que están en mayor peligro, siendo explotados sexual o laboralmente han sido nuestra mayor preocupación”, afirma Dionisio Sáenz.
Más de 300 mil niños son trabajadores, según cifras oficiales. Es a ellos a quienes se dirigen los proyectos del Inprhu, asegura el director.
A nivel rural también se ha fortalecido el trabajo. Se ha concentrado básicamente en la reforestación, sin dejar a un lado el trabajo de la niñez, sobre todo en las zonas cafetaleras del Norte.
A pesar de la disminución de la cooperación externa, que se estima ha sido de un veinte por ciento en los últimos cuatro años, Inprhu ha beneficiado a “más de 1,300 niños y niñas abusadas, quienes están siendo atendidos directamente por los programas desarrollados en los cinco principales mercados de Managua”.
Hay otros 1,200 niños que están siendo atendidos de forma indirecta. En relación a los niños y niñas de las zonas rurales, los programas del Inprhu atienden a 7,000 en Estelí, Nueva Segovia y Jinotega.
LABOR CON ALCALDÍAS
A pesar de algunos contratiempos ocurridos este año, el Inprhu se propone seguir trabajando en conjunto con las alcaldías de las zonas donde tienen proyectos, informó Dionisio Sáenz.
|
|
|
| |
|
| |
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
|
|
|
