#!/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";
}
|
|
|
Celebran Día de la Biblia
 |
|
 | Al festejo asistieron miles de personas de distintos credos |
|
Miembros de unas 1,200 iglesias cristianas del país se dieron cita en la Plaza de la Fe para celebrar el Día Nacional de la Biblia. |
| |
Giselle Alemán Ayala
giselle.aleman@laprensa.com.ni
Miles de personas se dieron cita la tarde de ayer en la Plaza de la Fe para celebrar este último domingo de septiembre el Día Nacional de la Biblia, el cual fue decretado el pasado 15 de julio por la Asamblea Nacional.
La celebración, que inició a las 11:00 de la mañana y culminó a las 5:00 de la tarde, reunió a los miembros de unas 1,200 iglesias que llegaron de todas partes del país, así como el grupo Visión Mundial, proveniente de los Estados Unidos.
El presidente del comité organizador y vicepresidente de la Sociedad Bíblica, Neftalí Cortés, explicó que aunque hasta este año fue reconocida por el Estado, la celebración tiene ya 60 años de estar realizándose.
“Nos hemos congregado para mostrar la solidaridad y confianza de la Palabra de Dios, que en estos tiempos duros que está atravesando Nicaragua se hace necesaria para que el país logre salir adelante”, explicó Cortés.
El vicepresidente ejecutivo de Visión Global, John Melendendorp, explicó que dicha organización está en el país no sólo con motivo de la celebración, sino también para “dar apoyo a las iglesias evangélicas que durante los próximos dos años iniciarán un arduo proceso de evangelización”.
EMISARIO PRESIDENCIAL
En el acto también hubo la participación del director del Instituto Nacional de Estadísticas y Censos, reverendo Miguel Ángel Casco, quien dijo llegar en representación del presidente de la República, Enrique Bolaños.
Casco le participó a la multitud que el mandatario se mostraba agradecido por las oraciones de la Iglesia de Jesucristo “que trajeron el cambio a Nicaragua y la esperanza de un futuro mejor”. 
|
|
|
|
|
