#!/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";
}
|
|
|
Corte Suprema ventilará conflicto por Cayos de Perlas
 |
|
 | Abogada de
etnias asegura que Policía niega acceso al agua a las etnias que habitan en la zona |
|
Dra. María Luisa Acosta, representante legal de los indígenas costeños. |
| |
Amalia Morales
amalia.morales@laprensa.com.ni
El Tribunal de Apelaciones de Bluefields cantó cero al escrito jurídico que introdujeron los representantes de las comunidades indígenas de Laguna de Perlas en contra de autoridades policiales y Peter Tsokos.
El Tribunal de Apelaciones declaró “no interpuesto” el recurso de amparo de los indígenas “bajo el argumento que los recurrentes no agotaron la vía administrativa”, según explica en el recurso de hecho que ayer introdujo a la Corte Suprema de Justicia, María Luisa Acosta, representante legal de los indígenas.
En el escrito jurídico, Acosta explica que la decisión del Tribunal de Bluefields no fue unánime. “El magistrado Juan Arana elaboró su voto de disentimiento”.
Según Acosta, el Magistrado Arana está de acuerdo con el recurso de amparo, cree que no es competencia de la Policía “enviar y mantener” efectivos armados “para impedir el uso de las aguas y la libre circulación”.
“La Policía está sirviendo como instrumento para usurpar tierras”, dice Acosta, quien asegura que mientras en el Pacífico se discute la legalidad de los Cayos entre el Estado y Peter Tsokos, los indígenas en Laguna de Perlas protagonizan un silencioso drama.
Agrega que hay comunidades como Set Net Point que producto de este conflicto no pueden consumir agua de donde siempre lo han hecho, el Cayo Water, pues son “repelidos de manera represiva por los policías armados con fusiles AK”. 
|
|
|
|
|
