#!/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";
}
|
|
|
Pide que el Estado lo indemnice
 |
|
 | Anciano ha invertido su dinero en cuidar baquillas del Programa de Repoblación Ganadera y Mejoramiento Genético |
|
Arnoldo Cruz, en su silla de ruedas pasa vista del ganado que por tres años ha cuidado en su finca La Estrella, ubicada en la comarca Guachipilín, en Jinotepe. (LA PRENSA/L. VARGAS) |
| |
Lucía Vargas C.
CORRESPONSAL/ CARAZO.
departamentos@laprensa.com.ni
Pese a su incapacidad para caminar y a su delicado estado de salud, el señor Arnoldo Cruz Espinoza, diariamente cumple con la religiosa tarea de vigilar los 23 animales que le quedan del Programa de Repoblación Ganadera y Mejoramiento Genético.
Asegura que es un cuidador más del Estado por dedicar su tiempo y dinero en el cuido de este hato que, al final, no le pertenece ni le genera ventajas; es por eso que pide le indemnicen los años de dedicación al proyecto y se lleven los animales.
Con documentos en mano demostró que en tres años ha invertido 210 mil 600 córdobas en el cuido del ganado, dinero que no le será reconocido por el programa, según lo contemplan las cláusulas del contrato, pero insiste en pedir que su caso sea revisado en vista que los animales que recibió eran muy pequeños y hasta en dos años más podrán ser productivos
Señaló que ahora cada semoviente está valorado en 6,500 córdobas, mientras los que recibió eran vaquillas de 15 y 18 meses de edad que podrían haber costado 120 dólares cada una. Su esperanza es que el gobierno de Taiwan que fue el que prestó el dinero para este proyecto revise la situación de la mayoría de los beneficiarios y se pronuncie al respecto.
HONRAR DEUDA
La existencia de una deuda con China Taiwan, de parte del gobierno es real, dijo Willy Flores Díaz, director técnico del Programa de Repoblación Ganadera y Mejoramiento Genético del IDR, quien reconoció los diversos errores en que incurrió la administración anterior del programa, pero considera que hay que honrar la deuda.
Señaló que están realizando un estudio de los casos planteados por los arrendatarios para ver si se toma como año cero, ahora que las vacas están pariendo y que, para el 2003, la alternativa sea que el programa se amplíe a cinco años con dos de prórroga.
Explicó que pronto funcionará un “programa de descarte” para quitarle al beneficiario los animales improductivos y venderlos al matadero y llevar esa plata al fondo de la deuda con Taiwan. 
|
|
|
|
|
