#!/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";
}
|
|
|
Especial
Empresarios en total rechazo
Martha Danelia Corea
martha.corea@laprensa.com.ni
La iniciativa privada, que hasta el momento ha venido apoyando la gestión del presidente Enrique Bolaños, ahora manifiesta su rechazo a la propuesta de reforma tributaria que impulsa el Ejecutivo.
Durante un encuentro que ayer sostuvieron empresarios con el Ministro de Hacienda y Crédito Público, Eduardo Montealegre, los empresarios reclamaron al funcionario que no ven con buenos ojos estas reformas porque consideran que “deterioran la economía del país”.
A lo que más se oponen el sector empresarial es a incrementar la tasa de retención del Impuesto sobre la Renta (IR), en la cual se propone aumentar del 5 al 10 por ciento para la prestación de servicios profesionales, del uno al dos por ciento por compra de bienes y servicios y del uno al cuatro por ciento sobre las ganancias ocasionales.
“Yo no veo dónde está el incremento de la base tributaria porque el Ministro (Montealegre) está hablando de que 4,000 profesionales son los que pagan, pero le vamos a subir del cinco al 10 por ciento, entonces, digo yo: dónde están el resto de profesionales que no pagan, tal vez somos 25,000, entonces, donde están esos 20,000 que no están pagando actualmente, si pagaran ese cinco por ciento (los 25,000), entonces sí estaríamos ampliando la base tributaria. Entonces, el enfoque no está en subir los porcentajes ni del uno al dos, ni del cinco al diez”, declaró Lorena Zamora, miembro de la Cámara de Comercio Americana de Nicaragua (Amcham).
“Vimos que sí se pueden obtener ingresos adicionales pero de ahí a las otras propuestas no las vimos viables ni saludables para la economía, el problema es que la economía del país está sumamente deprimida y nosotros no podemos estar con medias que van a ser restrictivas de ese crecimiento, lo que queremos es crecer”, manifestó Zamora.
Durante este encuentro organizado por el Consejo Superior de la Empresa Privada (Cosep), los empresarios sugirieron al ministro de Hacienda buscar medidas “más creativas”. 
|
|
|
|
|
