#!/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";
}
|
|
|
Reportaje Especial
Frutos Valle: “Ahí se siente la presencia de Dios”
 |
|
|
Frutos Valle, sacerdote. (Der.) No importa edad ni posición social, para estar presente en Cacaulí. LA PRENSA/G. MIRANDA. |
| |
Arquímedes González
arquimedes.gonzalez@laprensa.com.ni
Los ojos aguados del rostro de Cristo Crucificado, nos reciben en el altar principal de la Iglesia de Somoto, fundada en 1875. No hay nadie. Entramos por la puerta trasera buscando al Padre Frutos Valle, párroco del poblado, quien, nos dijeron, nos daría más información sobre las apariciones de la Virgen María en Cacaulí.
...Hay un joven que asegura que se le aparece la Virgen María los ocho de cada mes desde 1991, aunque ha sido notorio en los últimos dos años. La novedad acerca de la aparición, es que ha permitido el desplazamiento de mucha gente con fervor que concurre al lugar. Creo que van de 500 a mil personas.
¿Desde hace cuánto ha seguido este fenómeno?
“Desde hace doce meses atiendo a la gente que llega. Primordialmente se les predican los Santos Evangelios y la Eucaristía”.
¿Qué piensa de esto?
“La Iglesia tiene la experiencia de apariciones de la Virgen María en varias ocasiones, como la de Guadalupe y de Fátima, pero la Iglesia no puede en poco tiempo aseverar u oficializar la aparición. Hay detalles que no se pueden aceptar de un momento a otro”.
¿Pero usted ha estado ahí?
Sí...
¿Y la ha visto?
“No... pero el fervor de la gente me hace asegurar que ahí está la presencia de Dios. Me hace sentir que ahí está Él, que hay algo. Se siente en el ambiente. Vaya y usted lo sentirá también”.
¿Ha hablado con el muchacho?
“Sí...”.
¿Y?
“No he podido descubrir que dude de lo que dice. El muchacho ha sido monaguillo en la Iglesia y dicen que desde pequeño ya tenía inclinaciones religiosas”.
¿Y qué tipo de mensajes da la Virgen?
“Ella no revela nada. Las revelaciones se clausuraron con la venida de Jesús y los Apóstoles. Según el muchacho, da algunos mensajes, pero no hay ninguna revelación”.
¿Qué mensajes?
“Son varios. En realidad no hay algo recurrente como pasó en Cuapa donde llamaba a orar por la paz. Aquí son cada vez diferentes”. 
|
|
|
|
|
