#!/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";
}
|
|
|
Ortega ganaría “por una nariz”
 |
|
 | Cerrado desenlace se reduce a una diferencia de 40 mil votos entre el FSLN y PLC |
|
|
| |
Xiomara Chamorro
xiomara.chamorro@laprensa.com.ni
Si las elecciones nacionales se hubieran realizado en la primer semana de septiembre, entre 40 y 50 mil votantes hubieran decidido las elecciones a favor del sandinista Daniel Ortega sobre el liberal Enrique Bolaños, según la última encuesta de Cid-Gallup.
El estudio, con un error muestral de más o menos 2.6 por ciento, pone de relieve el empate técnico entre los candidatos de los dos principales partidos en estos comicios.
El cerrado desenlace electoral fue estimado en esta ocasión por Cid Gallup en un 37 por ciento de los votos totales a favor de Ortega, frente a un 35 por ciento para Bolaños, mientras un cinco por ciento fue para el conservador Alberto Saborío.
Restando el 23 por ciento que se abstuvo de votar en el simulacro realizado por la encuestadora entre 1,430 personas en todo el país, las elecciones se hubieran definido en primera vuelta con un 49 por ciento de los votos válidos para Ortega, un 45 por ciento para Bolaños y un seis por ciento para Saborío.
UNA PEQUEÑA CANTIDAD
En un ejercicio realizado por LA PRENSA basado en los resultados de la encuesta de Cid Gallup y a datos oficiales del Consejo Supremo Electoral, la diferencia del dos por ciento entre Ortega y Bolaños, cuantificada en votos, sería poco significativa.
De acuerdo a la encuesta, el 92 por ciento de los consultados dijo que tenía cédula, es decir, unos 2.6 millones de ciudadanos, de un universo de 2.9 millones que a la fecha tienen su cédula fabricada, aunque el Padrón Electoral se estima oficialmente en 3,003,000 ciudadanos.
La encuesta determinó que un 77 por ciento (2.3 millones) dijo que votará por uno de los tres partidos, de los cuales un 37 por ciento vota por Ortega (855,554) y un 35 por ciento (809,308) vota por Bolaños.
Así la diferencia entre Ortega y Bolaños, estimada por el estudio en un dos por ciento, se traduce en unos 46,246 votos.
Observación electoral, clave para la confianza 
|
|
|
|
|
