#!/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";
}
|
|
|
Carlos Briceño Lovo, Director de Canal 8:
“Los medios no inventan, transmiten lo que sucede”
 |
|
|
|
| |
“No sé si hay cierta desconexión de los obispos con el sentir ciudadano. Pues las encuestas de opinión pública señalan que la población está de acuerdo en la lucha contra la corrupción emprendida por el actual gobierno, pero de todas formas, en su comunicado los obispos no dan detalles a qué se refieren, y hubiese sido bueno que fueran más específicos.
“Cuando los obispos dicen que ‘se necesita superar las heridas del pasado mediante la concertación y el consenso de los nuevos responsables de gobierno con las demás fuerzas políticas’, pareciera que los obispos quieren que regrese otro pacto, a pesar que ya sabemos que los acuerdos de cúpulas han dejado consecuencias trágicas para el país.
Y cuando los obispos hablan de ‘manipulación dominante’, eso realmente preocupa, porque la verdad es que los medios de comunicación no inventan nada.
“En su cobertura los medios transmiten lo que pasa, y no estamos manipulando a nadie sino lo contrario, servimos de vehículo para que la ciudadanía se exprese. Y aunque (los obispos) no mencionaron a los canales de televisión, de alguna manera todos estamos haciendo la misma labor, tenemos un consenso, reflejo del consenso nacional y no creo que estemos manipulando a la opinión pública.
“Me hubiese gustado escuchar un comunicado de respaldo a los medios de comunicación de parte de la Iglesia, pero pareciera que la Iglesia no quiere que se siga tocando el tema de la corrupción, y eso me ha dejado un poco aturdido. Cada cual tiene su responsabilidad para con la población. El de la Iglesia es llevar el alimento espiritual al pueblo, el de los medios de comunicación es llevar la información al pueblo, y el de los políticos es el de hacer política”. 
|
|
|
|
|
