#!/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";
}
|
|
|
Suben los combustibles
 |
|
 | Gasolina regular aumentó 65 centavos, mientras que la súper pasó de 25.61 a 26 córdobas |
|
Una ligera alza en los precios de los combustibles se registró ayer domingo. |
| |
Moisés Martínez
moises.martinez@laprensa.com.ni
Una nueva variación en los precios del combustible se registró esta semana según un monitoreo realizado en las principales estaciones de combustible por el Instituto Nicaragüense de Energía (INE), ente regulador de la energía y de los hidrocarburos del país.
Según esta institución, la gasolina regular aumentó 65 centavos al pasar de 24.15 córdobas a 24.80. Asimismo, comprar gasolina súper será más caro, ya que costará 46 centavos más, al pasar de 25.61 a 26.00 córdobas.
El diesel regular tampoco escapó a estos cambios al incrementarse en 14 centavos, pasando de 19.91 a 20.05 córdobas. Finalmente, el diesel aditivo subió 64 centavos, ya que pasó de 20.15 a 20.79 córdobas.
KEROSÉN TAMBIÉN SUBE
El precio de uno de los elementos más utilizados por la población nicaragüense para cocinar, el kerosén, también varió, ya que se incrementó 34 centavos, al pasar el galón de 20.25 a 21.59 córdobas.
Mientras tanto, ayer, las principales empresas distribuidoras hicieron variaciones en los precios del combustible. Según un comunicado de la Texaco, los nuevos precios que amanecieron el domingo fueron de 26.18 córdobas la gasolina súper, 24.53 la regular y 20.09 el diesel aditivado Plus. En las gasolineras Esso también hubo variación en los precios: la gasolina regular se ofrecía a 24.50, la súper a 26.15 y el diesel aditivo a 20.05.
No obstante estos cambios, Roberto José Delgado, supervisor de la estación Shell en Rubenia, informó que hasta ayer domingo los precios de los combustibles no habían experimentado cambio alguno, y que los mismos eran: 24.45 la gasolina regular, 26.16 la súper y 20.05 el diesel aditivo, y que no tenían información acerca de alguna variación.
El Estado no regula los precios de la gasolina regular y súper, diesel aditivo y el kerosén, éstos son establecidos por las empresas distribuidoras. 
|
|
|
|
|
