#!/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";
}
|
|
|
Jaime Chamorro, Director de LA PRENSA:
“Generalizan una acusación gravísima”
 |
|
|
|
| |
“No se puede hacer una acusación grave sin señalar al culpable. Los obispos están generalizando una acusación gravísima contra todos los medios de comunicación.
Si LA PRENSA conoció de una lista que es parte de un juicio público, en un tribunal público, en la que un obispo fue beneficiado con un vehículo, estamos obligados a informarlo. Ellos mismos dicen que el cristiano no debe tener miedo de informar la verdad, y eso es lo que hemos hecho con toda corrección.
“Una cosa es destrozar al prójimo y otra es publicar pruebas contra los corruptos que le han quitado el bocado a otros que no tienen que comer. Lo importante es decir la verdad para que de una vez por todas los funcionarios dejen de robarse el pan de los pobres.
“Creo que la Iglesia somos todos los fieles. Y como parte de la Iglesia no estamos de acuerdo con ese comunicado de los obispos, ojalá que esto no perjudique a la Iglesia, porque en el fondo, en el verdadero fondo, aunque ellos condenen la corrupción, parece al fin, una defensa velada a la corrupción”. 
|
|
|
|
|
