#!/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";
}
|
|
|
Consumidores protestan contra alzas en el pasaje
 |
|
 | Bicicletas
asoman
como futura
alternativa de movilización |
|
Doris Aburto, Damaris Fonseca, Michael Alberto López y Pedro Joaquín Mairena. |
| |
Moisés Martínez
moises.martinez@laprensa.com.ni
“¡Pues tendré que desempolvar mi bicicleta!, porque con este aumento ya no vamos a poder andar en bus”, expresó Pedro Joaquín Mairena, al consultársele sobre la probable alza del pasaje anunciada por los transportistas para este 15 de mayo.
Expresiones como la del señor Mairena, coinciden con la de varios usuarios del transporte urbano consultados por LA PRENSA. Esta alza del pasaje de bus se suma a los recientes incrementos en el precio de productos de consumo diario como el pollo, huevos, carne de res, queso, entre otros.
“Primero fueron las alzas al pollo y los huevos, ahora el pasaje aumenta. Ve hermano, voy a tener que irme al trabajo a pie o en mi bicicleta vieja para que me den los reales”, añadió.
Por su parte, Michael Alberto López, estudiante de quinto año de secundaria del colegio “Héroes y Mártires”, dijo que con costo tienen para comer y a esto se le suma este probable aumento, por lo que entonces no le queda otra alternativa que buscar otra forma de movilizarse al colegio y por la tarde a su trabajo.
“Es demasiado lo que le van a subir, con costo consigo para el pasaje con el precio que tiene ahorita. No sé cómo voy a hacer. Voy a tener que buscar otra forma de ir a la escuela y al trabajo, tal vez en bicicleta”, exclamó.
200 AL MES EN TRANSPORTE
Damaris Fonseca, trabajadora de la Zona Franca, dijo que su presupuesto se verá seriamente afectado con esta posible alza. “No sé cómo voy a hacer, gano 900 al mes, gasto 120 en pasaje, ahora con este aumento voy a gastar casi 200, definitivamente no sé cómo voy a hacer. El Gobierno y los transportistas tienen que llegar a un arreglo, porque es demasiado”, declaró.
Doris Aburto, refirió que lo más triste de la situación es que al usuario no le queda más que resignarse.
“De hecho no es bueno, pero qué le vamos a hacer, sube el precio del bus, suben los huevos, sube todo y a nosotros no nos queda más que aguantar”, apuntó.
“Lo que los transportistas no miran es que si sube el precio del bus, sube todo. Aparte de eso, el salario siempre queda igual. Yo tengo que usar bus los siete días de la semana para trabajar y gasto casi 200 pesos, ahora con este aumento mi salario no me va a dar”, agregó Aburto. 
|
|
|
|
|
