#!/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";
}
|
|
|
Asoma solución a crisis costeña
Consuelo Sandoval
consuelo.sandoval@laprensa.com.ni
La crisis institucional que enfrentan las regiones autónomas del Atlántico nicaragüense (RAAN y RAAS), por las cuestionadas elecciones de las respectivas directivas de los Consejos Regionales, posiblemente de solucione el próximo lunes, cuando el presidente Enrique Bolaños, en calidad de mediador, asista a las sesiones especiales que realizará el Consejo Supremo Electoral (CSE).
El vicepresidente del CSE, Emmett Lang, reveló ayer que las sesiones en ambas regiones autónomas fueron acordadas en una improvisada reunión auspiciada por el mandatario entre él y el titular del Poder Electoral, Roberto Rivas, realizada el pasado martes, después de participar en el Estadio Nacional del lanzamiento de la primera pelota de la serie final del campeonato de béisbol.
Aseguró que el presidente Bolaños les planteó que el CSE en pleno, viaje el lunes a las regiones autónomas para resolver la problemática surgida a la luz de las elecciones de las directivas que, de superarse dicha problemática, la querella que interpusieron ante la Corte Suprema de Justicia perdería validez.
Las elecciones en la RAAN fueron avaladas por los magistrados sandinistas y rechazadas por los liberales. En cambio, en la RAAS ocurrió lo contrario y los sandinistas recurrieron contra esa elección, alegando que no hubo quórum de ley.
“El presidente Bolaños propuso que viajáramos a la Costa Atlántica y que el problema fuese resuelto por los mismos costeños. Me pareció una buena salida, en tanto que es un problema de los costeños y que el Consejo Regional es el que tiene que resolver sus propios problemas”, afirmó.
Destacó que Bolaños se comprometió en entregar ese mismo día el salario del personal de los Consejos Regionales.
REUNIÓN CON CARDENAL OBANDO
Sobre el particular, los integrantes del Consejo Regional de la RAAN se reunieron ayer con el Cardenal Miguel Obando para demandar que interceda ante el gobierno para que le desembolse su partida presupuestaria, retenida por la crisis institucional que enfrentan.
Lang observó buena disposición de Rivas de viajar al Atlántico nicaragüense para resolver la situación política que dejó administrativamente infuncional a los dos Consejos Regionales.
Confía en que la composición de la directiva, electa el pasado 4 de mayo e integrada por concejales sandinistas y de Yatama, retendrá su hegemonía, por cuanto los concejales habían recibido sus respectivas credenciales y estaban en posesión de sus cargos.
En el sur, donde fue electa la directiva con mayoría liberal, dijo que considera que debe realizarse una nueva elección, porque en la sesión del pasado 4 de mayo solamente estuvieron presentes cuatro magistrados liberales, número de miembros que no integran quórum porque según la Ley Electoral, se hace con cinco magistrados.
Informó que el viaje será organizado por la Presidencia de la República y supone que por la mañana se dirigirán a Bilwi y por la tarde, a Bluefields.
NOTICIA RELACIONADA:
FSLN denuncia ante Fiscalía 
|
|
|
|
|
