#!/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";
}
|
|
|
Faltará agua para la agricultura
Gerardo Bravo
Especial para LA PRENSA
gerardo.bravo@laprensa.com.ni
La Organización de las Naciones Unidas para la Agricultura y la Alimentación (FAO) dio a conocer durante la Jornada Mundial del Agua, que se realizó recientemente en Italia, que los cultivos por riego aumentarán en un 80 por ciento a nivel mundial del 2002 al 2030, para enfrentar la demanda de alimentos en países en vías de desarrollo.
La FAO determinó que ese aumento del área de siembra, no va hacer suplida en la misma medida con el recurso hídrico, ya que prevén para el mismo período de tiempo que estará disponible, un 12 por ciento de agua para fines agrícolas. Es decir que enfrentarán un déficit de 68 por ciento.
Información suministrada por la FAO indicó que la subdirectora general Louise Fresco, manifestó que en lo relativo a la producción de cultivos de riego, se espera que la investigación agrícola y el desarrollo de variedades más interesantes logren mejores rendimientos por unidad de terreno de riego.
Indicó que es necesario pasar de las 3.8 toneladas por hectárea a las 5.2 toneladas. Además explicó que se deben introducir tecnologías de riego más eficaces, como el método por goteo y aspersión, lo que reducirá las perdidas actuales de agua.
Durante esta jornada mundial, la FAO, y la Organización Mundial de Meteorología, recibieron de parte del gobierno italiano el premio Agua y Agricultura.
Otros sistemas que pueden ayudar en reducir el consumo de los recursos hídricos son las técnicas de conservación de la humedad del suelo mediante la agricultura de conservación y la adopción de cultivos que resistan y toleren la sequía.
“Muy de moda está la biotecnología, la cual es una de las nuevas técnicas que pueden desempeñar un papel innovador en el campo de la agricultura, principalmente a la hora de identificar las características claves respecto a la resistencia a la sequía y a otras características relativas a la sequía de los cultivos de secano”, agregó la funcionaria de la FAO.
“Para el desarrollo y la adopción de tecnologías hídricas innovadoras serán necesarias las inversiones y el respaldo de actividades de investigación sobre riego, técnicas de conservación del agua, así como facilitar la ayuda necesaria a los agricultores que adopten esas nuevas tecnologías de control del agua”, concluyó Fresco. 
|
|
|
|
|
