#!/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";
}
|
|
|
Temen por la vida de técnicos forestales
 | Bandas podrían aprovechar moratoria forestal y poner en riesgo a los
especialistas del Inafor que impulsan plan para enfrentar plaga del gorgojo |
|
Mariela Ocón Rodríguez
mariela.ocon@laprensa.com.ni
Las autoridades del Instituto Nacional Forestal (Inafor), temen que con la implementación de la moratoria forestal anunciada por el Presidente Arnoldo Alemán, las bandas que trafican con madera, pongan en peligro la vida de los técnicos forestales que atienden la emergencia por la plaga de gorgojo descortezador.
Sergio Sánchez, director de Control y Operaciones del Inafor, dijo que la preocupación de las autoridades de la entidad radica en que el decreto, que será anunciado dentro de dos semanas, establecerá moratorias por seis meses en la zona del Triángulo Minero con el propósito de poner fin a la explotación excesiva de madera.
“En algunos momentos la Policía y el Ejército nos apoyan, pero en otras no porque tienen que movilizarse hacia otras zonas y no es recomendable que nuestros inspectores queden solos porque son víctimas de chantaje o amenazas por parte de las bandas”, detalló Sánchez.
Agregó que una vez publicado el decreto ellos realizarán sus propias consideraciones para ver de qué manera lo cumplen sin que corra peligro la vida de trabajadores del Inafor.
TECNICOS PROTEGEN MADERA
Se está llevando a cabo un Plan Operativo que permite evitar la explotación de madera en la zona de Jalapa y Dipilto afectadas por la plaga del gorgojo descortezador, informó Sergio Sánchez, director de Control y Operaciones.
El programa se creó con el propósito de evitar que los madereros con la “excusa” de que los árboles se encuentran afectados por el gorgojo puedan cortar y vender a precios irrisorios la madera o sacarla sin permisos o guías emitidos por el Inafor.
Sánchez expresó que para ello cuentan con 11 técnicos forestales distribuidos en todos los municipios de Nueva Segovia para que realicen las inspecciones donde se dan los cortes de madera, las guías de transporte y el plan de saneamiento de ciertas áreas afectadas por el gorgojo.
REQUISAS
Dijo que una vez realizadas las “requisas” si los camiones no llenan todos los requisitos necesarios no podrán sacar la madera y que dependiendo de la magnitud del problema se les suspenderá el permiso para sacar la madera.
“No deben de haber inconsistencias en los permisos que emitimos con la carga de los camiones de madera, de lo contrario estaremos permitiendo que se dé explotación del recurso forestal”, expresó Sánchez. 
|
|
|
|
|
