#!/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";
}
|
|
|
Hoy concluye tercera Feria de la Construcción
 |
|
|
Muchos de los expositores, participantes en la tercera feria de la Construcción y Vivienda, esperan que hoy lleguen más visitantes. |
| |
Mariela Fernández
mariela.fernandez@laprensa.com.ni
Nuevas tecnologías y muchos atractivos es lo que ofrece al público la tercera feria de la Construcción de la Vivienda (FERCON 2002). La mayoría de los expositores aseguran que han logrado sobrepasar las expectativas de negocios y esperan que éstas mejoren hoy en su último día.
La feria, organizada por la Cámara Nicaragüense de la Construcción, reúne por tercera vez a más de 80 expositores nacionales e internacionales, quienes se unen para ofrecer maquinarias, equipos, sistemas de construcción, herramientas, variedades de diseños de decoración, accesorios para baños, revestimientos, pisos, electricidad, acabados, muebles de cocina, piscinas, etc.
También participan entidades bancarias, financieras y de urbanización, empresas de vigilancia y otros servicios.
Según los expositores, lo importante de la feria es que la persona que la visita es la que en realidad busca algo para la construcción, “y sabe que lo que necesita lo va a encontrar aquí”, afirmó Sergio Hüeck, Gerente de Ventas de Nimac.
Para Omar Baltodano, Gerente General de Termo Tec, la feria es una oportunidad para que las empresas que quieren ofrecer sus servicios internacionalmente lo hagan con materiales certificados. “La industria a nivel mundial cada vez está exigiendo más los materiales certificados”, expresó.
Ángela Reyes, visitante de la feria, se mostró satisfecha con los productos que se ofrecen. “Siempre anima ver nuevos equipos, buen precio, y se aprovechan las oportunidades para realizar negocios con el producto que a uno le interesa, en mi caso me interesan los materiales de decoración, que además de ser innovadores tienen buen precio”. 
|
|
|
|
|
