#!/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";
}
|
|
|
Chinandega incontenible
 | Henry Roa se voló la cerca |
|
Francisco Jarquín Soto
ESPECIAL PARA LA PRENSA
deportes@laprensa.com.ni
Chinandega no ha encontrado rival capaz de frenarlo en su afán por conseguir el boleto a la final, y ayer el León, aunque batalló con mucho empeño el partido, al final sólo un cuadrangular de Henry Roa en el octavo fue el único daño que le hicieron al pitcheo chinandegano en la victoria 3-1 sobre los Leones.
Sin embargo, antes de la primera carrera del Chinandega, era Manuel Pineda del León quien lucía con más dominio, de lo que hasta el cuarto episodio lo hacía el chinandegano, Luis Luna. Pineda sólo aprobaba un imparable mientras Luna admitía tres y dos pasaportes.
A partir de la cuarta entrada las cosas cambiaron, cuando imparables seguidos de Santos Méndez, infield hit de Jimmy González y otro hit de Próspero González colocaron las bases llenas sin outs. Ante esa oportunidad, el Chinandega sólo hizo una carrera con elevado de sacrificio de Juan Vicente López, pues Adolfo Matamoros y Bayardo Dávila fueron retirados en inofensivos rolas, según el reporte del colega Jaime García del León.
Así avanzó el quinto con el duelo entre Pineda y Luna, pero en el sexto Luna (1-0) abandonó el partido después de hit de Sandor Guido con Isaac Martínez abordo y dos out. Llegó Pedro Reyes para dominar a Esteban Ramírez en rola al campo corto.
Pineda (1-3) salió del juego hasta en el séptimo, al aprobar una base a Matamoros además de imparables de Ángel Enrique Romero impulsador de la segunda, sumado a otro de Oscar Mairena, que combinado con error del central trajo al plato la tercera anotación.
Explotó Pineda y Yorbin Hernández retiró los últimos cuatro outs, mientras Reyes salía en el octavo luego del jonrón de Roa y un doble de Guido, que obligó la entrada de Oscar Pantoja, quien obtuvo su tercer salvamento de las semifinales. 
|
|
|
|
|
