#!/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";
}
|
|
|
Asomif recibe apoyo financiero
Leslie Nicolás Lacayo
leslie.nicolas@laprensa.com.ni
La Asociación Nicaragüense de Instituciones de Microfinanzas (Asomif) recibió de Holanda y Suecia un apoyo financiero de 350,000 dólares para ser utilizados en capacitación, fortalecimiento de la industria, realización de foros, trabajo operacional, investigaciones de mercado, entre otras cosas.
El dinero será desembolsado en un período de dos años y se confirmó el primer desembolso con la firma de un convenio entre Asomif y representantes de los países antes mencionados.
Kees Rad, encargado de negocios de Holanda, dijo, “estamos seguros que esta contribución consolidará las prácticas microfinancieras en Nicaragua y esperamos también que esto sirva para fortalecer el trabajo con las Pequeñas y Medianas Empresas (Pymes). Pues el papel de éstas es muy importante para el desarrollo económico del país”, indicó.
Por su parte, Klas Markensten, embajador de Suecia en Nicaragua, dijo que “esperamos que este proyecto ayude a crear un poco de orden en el sector, permitiendo el crecimiento y la consolidación del sector mismo”, señaló el diplomático.
Alfredo Alaniz, presidente de Asomif, indicó que con el dinero que llegue a través del convenio y con el aporte económico de los asociados a esta organización, se ha podido constituir la primera central de riesgos en Nicaragua.
Esta central será utilizada como proveedora de información crediticia a las microfinancieras, bancos, casas comerciales, agroexportadoras e instituciones que soliciten el servicio de esta nueva empresa.
“La central estará dirigida inicialmente por una junta directiva integrada por los primeros accionistas que aporten y que además puedan invertir tiempo en la organización de la sociedad”, señaló Alaniz.
Este nuevo servicio ayudará a reducir el riesgo crediticio, depurará el mercado y creará mayor acceso al crédito, fortaleciendo la cultura de pago en beneficio de la industria, indicó Alaniz. 
|
|
|
|
|
