#!/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";
}
|
|
|
Busca a su amor de adolescencia
 |
|
|
Julio César Maldonado, 20 años atrás. |
| |
Gretchen Robleto
gretchen.robleto@laprensa.com.ni
Dicen que la distancia y el tiempo son los peores enemigos del amor, pero esta conjetura no coincide con el sentimiento al que ha sido fiel por cerca de 20 años, Julio César Maldonado, nicaragüense residente en Canadá, quien a través de LA PRENSA quiere encontrar y proponerle matrimonio a doña Danet Robinson, después de dos décadas de separación.
Don Julio Maldonado se contactó con LA PRENSA a través de correo electrónico y manifiesta que sostuvo un noviazgo con doña Danet Robinson cuando ambos tenían 16 años.
“Si ella está soltera quiero hacerle una proposición formal de matrimonio”, sostiene este nicaragüense desde Canadá, quien asegura que ha sido fiel a su primero y más grande amor.
Según Maldonado, la señora Robinson residió –cuando se enamoraron–, en el Barrio Latino, en Mina Rosita, de la Costa Atlántica y vivía en casa de su hermano, Fernando Tenorio.
La inevitable separación se dio cuando el hermano de la novia decidió regresar junto a su hermana a Puerto Cabezas, donde residían sus padres y cuya dirección Julio César Maldonado desconocía, por lo que perdió contacto con el amor de su vida, según manifiesta.
Maldonado sostiene que Robinson estudió en el Colegio Moravo de Puerto Cabezas. “Vivo en Canadá y no tengo a nadie en Nicaragua que pueda ayudarme a encontrarla (a Danet)”, dijo.
Actualmente Robinson debe tener entre 30 y 35 años y es de piel morena. De encontrarse la señora Danet soltera y dispuesta a establecer contacto con Julio César Maldonado, por favor contactarse con el diario LA PRENSA. 
|
|
|
|
|
