#!/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";
}
|
|
|
Golpe a expendios de droga
Carlos Martínez Morán
carlos.martinez@laprensa.com.ni
Alrededor de diez piedras de crack decomisó la Policía Nacional en un operativo que realizó en dos viviendas de Tipitapa. El capitán Ezequiel Elí Rubio, de la Dirección Antidrogas del Distrito Ocho, informó que la acción policial se efectuó en casas del Barrio “Yuri Ordóñez”, pero sólo en una lograron encontrar estupefacientes.
Agregó que conforme a información proporcionada por población, conocían de la existencia de droga en la casa de la señora Fátima Vivas, de 35 años, en donde presumían que tenía más de 400 unidades de crack dentro de un envase plástico enterrado en el fondo del patio.
DETENIDA
“Únicamente encontramos diez piedras en un rincón de la casa, las que en la prueba de campo resultaron ser crack. La dueña de este inmueble es Fátima Vivas y por esa razón fue detenida”, dijo.
OPERATIVO EN CADENA
La Policía de Tipitapa ha realizado desde inicio de noviembre de este año numerosos operativos en diferentes barrios de ese municipio, y ha logrado decomisar una buena cantidad de marihuana y de crack.
El trabajo lo han realizado sobre 35 centros de expendio, acción con la que han neutralizado a unos diez en las últimas semanas.
“El asedio en contra de estos lugares es permanente, porque la droga nos produce no sólo el consumo dentro de la población, sino otros delitos que los adictos comenten para conseguirla. Esa relación nos eleva la cantidad de delitos, y por esa razón no vamos a dar tregua a este flagelo”, dijo el capitán Ezequiel Elí Rubio.
TÉCNICA CANINA
Cuando los agentes llegaron a una de las viviendas registradas durante el operativo, la técnica canina utilizada para detectar droga, marcó sitios donde estaría enterrada la droga, pero no encontraron nada, porque al parecer, ya la habían trasladado a otra casa, explicó el capitán Ezequiel Elí Rubio, de la Dirección Antidrogas del Distrito Ocho. 
|
|
|
|
|
