#!/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";
}
|
|
|
Sigue conflicto en la UPN
 |
|
|
Fuertes discusiones se protagonizaron ayer en una asamblea consultiva de la Unión de Periodistas de Nicaragua (UPN), cuando una mayoría cuestionada designó a Juan Alberto Henríquez, ex presidente de esa organización, para que continúe en el cargo hasta finales de septiembre próximo, y para que prepare la continuación del congreso suspendido, en marzo pasado, para elegir nuevas autoridades. |
| |
Consuelo Sandoval
consuelo.sandoval@laprensa.com.ni
En un hecho sin precedentes en la historia del periodismo nicaragüense, y con el respaldo de una portátil, el ex presidente de la Unión de Periodistas de Nicaragua (UPN), Juan Alberto Henríquez, se impuso ayer para dirigir esa estructura periodística por un período de seis meses, así como la organización del nuevo congreso durante el cual se elegirá a nuevas autoridades hasta el próximo 28 de septiembre.
Henríquez debió haber entregado cuentas y las instalaciones a la nueva Junta Directiva que por estatutos tenía que ser electa en marzo pasado, sin embargo, ese mandato no pudo ser ejecutado ante la intransigencia del ex presidente que pretendía usurpar un nuevo período, reeligiéndose en el cargo, lo que es prohibido por las normas internas de la organización.
El ex presidente se vio obligado a renunciar a sus pretensiones de postularse como candidato para reelegirse por tercer período consecutivo de dos años, ante las presiones y recomendaciones formuladas por reconocidos hombres de prensa como Danilo Aguirre Solís, Manuel Eugarrios y José Esteban Quezada, entre otros.
En una Asamblea consultiva a la que asistieron menos de cien personas, por una mayoría que incluyó a los invitados por Henríquez, se decidió que el ex presidente continuara en el cargo, pero además fue designado para que organice la continuación del congreso suspendido el pasado 23 de marzo, convirtiéndose en juez y parte, porque además de presidir ese próximo evento gremial será el que entregue cuentas a las nuevas autoridades.
Varios periodistas que reclamaron la actitud de Henríquez y sus seguidores aseguraron que impugnarán ante el Ministerio de Gobernación las decisiones que se adoptaron en la Asamblea Consultiva. 
|
|
|
|
|
