#!/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";
}
|
|
|
¿Baile o cirugía de busto?
CNN
El Ministerio de Salud de Tailandia lanzará el Día de San Valentín una compañía de bailarinas especialistas en danzas que mejoran el busto, para mostrar a las mujeres cómo hacer los pechos más firmes sin recurrir a costosos sostenes que usualmente lastiman.
Pennapa Subcharoen, subdirectora general del Departamento de Medicina Tradicional del ministerio, explicó que las mujeres tailandesas habían sido bombardeadas con imágenes de busto voluminoso a través de los medios de comunicación y muchas se sentían incómodas.
“Muchas mujeres no se dan cuenta que al usar un tamaño adecuado de sostén y practicar regularmente el baile que hace firme el busto pueden convertir su deseo en realidad”, explicó Pennapa.
“Así que estamos entrenando a 12 pares de instructoras para enseñar a las mujeres a cómo cuidar sus pechos y lo planeamos lanzar (el proyecto) el Día de San Valentín en todo el país”, agregó.
Pennapa comentó que muchos sostenes del mercado eran inadecuados para las mujeres tailandesas y su uso en una talla incorrecta resultaría peligroso con el paso del tiempo.
La funcionaria agregó que cada equipo de danza estaría constituido por una instructora de busto reducido y una de pechos voluminosos para impartir las lecciones del baile que hace firme el busto en centros deportivos, a partir del 14 de febrero. 
|
|
|
|
|
