#!/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";
}
|
|
|
Eventos empresariales
BellSouth presenta las tarjetas prepago Proniño
 |
|
|
Durante la presentación de las tarjetas prepago BellSouth Proniño, estuvieron presentes funcionarios de la empresa de telefonía celular y de Save The Children. (LA PRENSA/M. Matute) |
| |
El desarrollo de los pueblos descansa en la educación, es por eso que la Compañía de Telefonía Celular de Nicaragua, S.A. (BellSouth) y el Organismo No Gubernamental Save The Children USA, presentaron en conferencia de prensa las tarjetas prepago BellSouth Proniño.
“Por cada tarjeta prepago BellSouth Proniño que usted compre, el cliente pone a un niño a estudiar, ya que la empresa de telefonía celular ha destinado 10 centavos de dólar por cada tarjeta que se venda”, dijo Julie Herskowitz, Gerente de Publicidad de BellSouth.
Apuntó que BellSouth hizo una emisión especial de tarjetas prepago, las cuales se dedicarán al programa Proniño, el cual ayuda a la niñez nicaragüense, “con esta iniciativa estamos aportando un estimado de 10 mil dólares al programa”.
Explicó que el dinero lo destinarán a potenciar los distintos proyectos educativos, sociales y de esparcimiento que BellSouth Proniño planea desarrollar durante el presente año.
Dijo que las tarjetas prepago presentan imágenes de algunos de los más de 500 niños y niñas que ya son beneficiados por el programa en Nicaragua, “a los infantes se les otorga becas de estudio para que los niños trabajadores no dejen de asistir a clase y mejoren su calidad de vida”.
“Los niños que se apadrinan con el programa BellSouth Proniño, están entre las edades de 7 y 14 años, proceden de familias con bajos recursos económicos de las ciudades de Managua, Masaya, León y Chinandega”, puntualizó Herskowitz.
Concluyó diciendo que BellSouth ofrece a cada niño su uniforme, libros y otros útiles escolares que son básicos en el desarrollo educativo del infante. Éstos son escogidos por un comité compuesto por los directores de los centros escolares donde estudian, personal de la empresa de telefonía celular y de Save The Children USA. 
|
|
|
|
|
