#!/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";
}
|
|
|
Continúa vigente demanda contra el Bancentro
 | Según representante de Montealegre la juez tiene 48 horas para emitir sentencia |
|
Ary Neil Pantoja
aryneil.pantoja@laprensa.com.ni
La demanda judicial entablada por el ex banquero Haroldo Montealegre en contra del Banco de Crédito Centroamericano (Bancentro), continúa vigente luego que la Juez Quinto de Distrito Civil de Managua, Ana Clemencia Corea, regresara el expediente al Juzgado Cuarto de Distrito Civil para que continuara con la causa.
La Juez Corea desestimó así la recusación que los representantes legales hicieran contra la Juez Cuarto Civil de Distrito, Ruth Chamorro y con el retorno del expediente, la demanda contra Bancentro sigue su curso.
Montealegre mantiene una demanda judicial por el pago de 6.2 millones de dólares en contra del accionista mayoritario del Bancentro, Roberto Zamora.
El ex banquero sostiene haber realizado la venta de sus acciones del extinto Banco Mercantil (Bamer) a Zamora y que éste no le habría pagado, quien por su parte ha rechazado la existencia de tal transacción.
En tanto Boanerges Ojeda, representante legal de Montealegre, aseguró que “conforme a la ley”, la Juez Chamorro tiene 48 horas para emitir una resolución mediante la cual podría ordenar a los demandados el pago de la supuesta deuda.
“De acuerdo al procedimiento civil, la juez tiene de 24 a 48 horas para resolver, pero eso a veces lleva semanas y quizás meses”, dijo Ojeda.
Respecto al impedimento que las autoridades del Bancentro han puesto para que la doctora Diana Avendaño entre a la entidad financiera para “supervisar” las transacciones luego de ser nombrada depositaria, el doctor Ojeda expresó que los demandados estarían cayendo en desacato y que “podrían ser encausados judicialmente”. 
|
|
|
|
|
