#!/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";
}
|
|
|
Reo del caso Bancafé en intentos suicidas
 | Según su
abogado, Juan
José López ha
intentado
cortarse los
pulsos |
|
Janelys Carrillo Barrios
janelys.carrillo@laprensa.com.ni
Juan José López Zeledón, quien desde hace más de dos meses guarda prisión por la quiebra del Banco del Café (Bancafé), ha sufrido varias crisis nerviosas provocadas por el estrés, razón por la cual ha intentado quitarse la vida en las cárceles del Sistema Penitenciario de Tipitapa.
Ramón Centeno Mayorga, abogado defensor del procesado, informó que al menos en dos ocasiones López Zeledón ha procurado cortarse los pulsos y en otras ocasiones ha lanzado su cuerpo contra las paredes.
Ante tal comportamiento, el jurista solicitó al Juez Séptimo de Distrito del Crimen de Managua, Sabino Hernández, ordene una evaluación sicológica de su cliente, pero ayer por la tarde una funcionaria del Instituto de Medicina Legal recomendó que sea un siquiatra el que atienda el caso del reo.
Centeno Mayorga indicó que la cárcel y las acusaciones imputadas han hecho mella en el estado emocional de su cliente, cuya trayectoria profesional nunca había sido manchada por problemas con la justicia.
Alfonso Delgado Molina, otro de los accionistas del Bancafé que fue llevado a prisión por la Procuraduría Penal, también estaría enfrentando serios problemas de salud, por lo que Centeno Mayorga también solicitó que sea examinado.
Como se recordará, el 13 de febrero pasado, el Juez Hernández dictó auto de segura y formal prisión contra la junta directiva del Bancafé, encabezada por Francisco Mayorga Balladares y Omar González, acusados de provocar la bancarrota de la institución financiera. 
|
|
|
|
|
