#!/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";
}
|
|
|
Sicarios matan a ex militares
 | Policía captura a dos sospechosos de haber ejecutado el crimen en Granada |
|
Pedro J. Vindell Matus - Corresponsal
nacionales@laprensa.com.ni
GRANADA.- El Parque Central de la calma ciudad de Granada fue escenario, a eso de las 7:50 de la mañana de ayer, de un doble asesinato. Dos ex militares del Ejército de Nicaragua fueron acribillados a balazos por dos hombres que les salieron al paso, cuando las víctimas circulaban frente al monumento de La Cruz del Siglo.
Los muertos son Noel Ernesto Miranda Niño (51), conocido como “El Pelón” y William Martínez Gutiérrez, a quien llamaban “El Tuerto”. El crimen lo cometieron dos hombres que supuestamente se movilizaron en una camioneta Van, placas 163-994, propiedad de José Sándigo Gross, habitante del municipio de Diriá, quien es buscado por la Policía Nacional. Familiares de las víctimas señalan a Sándigo Gross como el presunto autor intelectual del crimen.
La Policía, coordinada con el Ejército, montó de inmediato un operativo en esa región del país para impedir la salida de los tres hombres que huían en el vehículo, no obstante, en Diriá localizaron la camioneta en la que capturaron a Ulises José Mendoza Ramírez, de 24 años, y a Luis Antonio Campos Cubillo, de 26.
Las autoridades investigan el móvil del doble asesinato, pero presumen que hubo rencillas por una deuda de 29,000 dólares, la disputa de una propiedad y hasta una posible pasada de cuentas. La Dirección Antidrogas de la Policía Nacional también investiga el caso.
Según testigos del crimen y la señora Berta Ugarte Noguera, esposa de “El Pelón”, su marido presuntamente fue asesinado por órdenes de José Sándigo Gross.
Lea también:
Pasada de cuentas en parque de Granada. 
|
|
|
|
|
