#!/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";
}
|
|
|
“¿Falsas universidades?”
Francisco José Castilla Flores
He estado leyendo diversas opiniones sobre las universidades privadas, las que algunos califican como “mal llamadas universidades”. Éste término es muy destructivo y despectivo y sólo le dan méritos a las tradicionales (UNAN, UCA, UNI, Etc.) que por supuesto los tienen. No soy especialista en educación, pero conozco el sistema de la UNAN, posteriormente estudié cinco años en la educación superior en Cuba, que a muchos no les parece bien pero sin lugar a dudas cuenta con niveles de exigencia y calidad muy elevados, reconocidos por organismos internacionales.
Actualmente estudio los sábados (por las características de mi trabajo) en una universidad privada, pienso que la educación no es de lo mejor pero tampoco es mala, en los casi tres años he tenido muy buenos profesores, muy profesionales, muy académicos y sobre todo muy humanos. Y otros quizás no malos pero con poco arte para enseñar. En términos generales considero que estas universidades juegan un papel muy importante en la Nicaragua actual, por medio de ellas muchos trabajadores y ex estudiantes universitarios estamos certificando nuestros conocimientos después de muchos años de experiencia laboral.
Me parece a mí que en toda universidad existen alumnos buenos y malos, es importante el interés personal para salir adelante y quizás la peor parte la lleven los jóvenes recién salidos de secundaria y sin ninguna experiencia. No obstante considero que las críticas son muy dañinas y en vez de destruir deberían de estar dirigidas a fortalecer los niveles de exigencia académica CNU versus universidades privadas y contribuir de esa forma a fortalecer el sistema. Ya para finalizar les pido disculpas a los especialistas en educación, pero es una apreciación muy personal. 
|
|
|
|
|
