#!/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";
}
|
|
|
Chentex y sindicalistas firman acuerdo
 |
|
|
Líderes sindicales despedidos de Chentex desde mayo del año pasado, firman acuerdo. |
| |
Gabriela Roa Romero
gabriela.roa@laprensa.com.ni
Después de 10 meses de negociación, los sindicalistas despedidos de la empresa de Zona Franca Chentex, firmaron ayer un convenio con la patronal que esperan le dé un “feliz término” al conflicto laboral que trascendió las fronteras nacionales.
Pedro Ortega, secretario de la Federación Textil, Vestuario, Calzado y Cuero, explicó que a pesar de contar con la resolución del Tribunal de Apelaciones que demanda el reintegro de nueve líderes, continuaron las negociaciones con los empleadores para lograr el regreso de varios trabajadores despedidos.
Por tanto, las partes se comprometieron a reintegrar a cuatro de los 11 líderes sindicales despedidos y recontratar periódicamente a 17 trabajadores.
Ambos sectores revisarán y liquidarán las prestaciones sociales de ley de los siete líderes despedidos, como son las vacaciones, decimotercer mes, indemnización por antigüedad, más un cien por ciento adicional, salarios caídos y una bonificación especial de 15,000 córdobas otorgada “a cada uno de los miembros sindicales por voluntad propia de la compañía”.
Acordaron también que el método de solución de los conflictos laborales será la negociación, por ello retirarán todos los juicios nacionales e internacionales.
Cabe señalar que el Recurso de Amparo interpuesto por los dirigentes, en la Corte Suprema de Justicia (CSJ) contra el Ministerio del Trabajo (Mitrab), se mantiene, así como la denuncia introducida en la Organización Internacional del Trabajo.
Finalmente “los sindicalistas terminarán con la campaña internacional en contra de la empresa Chentex”, dicta el acuerdo. 
|
|
|
|
|
