#!/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";
}
|
|
|
Presuntos traficantes de droga al Juzgado
 |
|
 | Policía ocupa droga, vehículo y otros medios a los tres detenidos |
|
La Policía de Masaya muestra el vehículo que utilizaban los supuestos traficantes capturados, así como los objetos y la droga incautada. |
| |
Clarissa Altamirano
CORRESPONSAL/MASAYA
sucesos@laprensa.com.ni
Marlon Antonio Alvarado Garay, José Benicio Jiménez y Mariana Isabel Blanco Ampié, fueron puestos a la orden de la juez Primero del Distrito del Crimen, Martha Jeaneth Sandino Canda, de la ciudad de Masaya, por los delitos de tráfico de estupefacientes y tenencia de arma.
La capitana Paola Vásquez, divulgadora policial de esta ciudad, manifestó que el grupo operaba en el Reparto 10 de Mayo, y que al recibir varias denuncias de la población, procedieron a investigar, para luego proceder a la captura.
Vásquez dijo que a los detenidos les ocuparon un automóvil crema, sin placas, que supuestamente era usado para trasladar la droga de Managua a Masaya; así mismo, una pistola, un celular, 331 gramos de marihuana, 55 gramos de semilla de marihuana, 59 gramos de crack, 291 córdobas, cinco pares de chapas, una cadena de oro, cinco anillos, una cadena con dije y una pulsera.
La captura se llevó a cabo en presencia de la fiscal Blanca Fletes y algunos testigos.
Según las indagaciones policiales, los presuntos traficantes enterraban la droga en diferentes partes del patio de la vivienda para evitar ser descubiertos, y aprovechaban las horas del mediodía para comercializar la droga en algunos barrios de Masaya, aprovechando que a esa hora hay menos policías en las calles.
La jefa policial dijo que el detenido Marlon Antonio Alvarado confesó que el carro se los alquilaba una señora de apellido Ramírez, que vive en Tisma. 
|
|
|
|
|
