#!/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";
}
|
|
|
Róger Ramírez está en huelga de hambre
 |
|
 | Madre pide
excarcelación, porque su vida corre peligro |
|
Róger Ramírez Torres, quien según su madre se encuentra en huelga de hambre. LA PRENSA/ARCHIVO. |
| |
Janelys Carrillo Barrios
janelys.carrillo@laprensa.com.ni
Dolores Torres, madre del ex jefe de Policía, Róger Ramírez Torres, denunció esta semana que una junta médica encabezada por la doctora Sara Caridad Mora Grillo, aún no envía un informe conclusivo sobre el estado de su hijo, quien lleva casi veinte días en huelga de hambre.
La Jueza Primero de Distrito del Crimen de Managua, Juanita Méndez, ordenó a la junta médica que evaluara si el reo presenta las condiciones necesarias para guardar régimen carcelario, dictamen con el cual ella decidiría si lo mantiene o no en prisión.
Sin embargo, según doña Dolores, la orden judicial no ha sido acatada y mientras tanto su hijo corre el peligro de morir debido a la deshidratación y otros males que con la huelga de hambre se acentúan, tales como la úlcera gástrica.
El doctor Hugo Argüello, director del Instituto de Medicina Legal de la Corte Suprema de Justicia, dijo a LA PRENSA que esta semana enviaron a la judicial un informe en el que los especialistas dictaminaban que el reo puede continuar bajo régimen carcelario.
Pero doña Dolores, que resintió la supuesta falta de humanismo por parte de las autoridades del Sistema Penitenciario (SPN), por ocultar la huelga de hambre de su hijo, asegura que las condiciones de salud en que éste se encuentra son extremadamente graves.
Recientemente, las autoridades del SPN reunieron a Ramírez con algunos familiares para que intentaran persuadirlo de abandonar la huelga, pero los esfuerzos fueron inútiles porque su padre, madre, hermanos y cuñados dijeron que lo apoyarían en su decisión hasta las últimas consecuencias.
El ex jefe policial purga una condena de seis años de prisión por tráfico de estupefacientes y aunque apeló de la condena, en el Tribunal competente no han resuelto su caso, pese a que ha demostrado que está gravemente enfermo y tiene alojado un proyectil en la cabeza que le ocasiona crisis convulsivas que ponen en peligro su vida.
Como una medida de presión para agilizar un fallo del Tribunal de Apelaciones, Ramírez decidió ponerse en huelga de hambre, por lo que entre el 20 de abril y el 5 de mayo pasado bajó 15 libras. 
|
|
|
|
|
