#!/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";
}
|
|
|
Diez años
 |
|
 | La Camerata Bach arriba a su X Aniversario, y brindará un concierto de gala el próximo martes 15 de mayo a las 7:00 p.m. en el Teatro Nacional |
|
Camerata Bach cumple 10 años de vida artística |
| |
Auxiliadora Rosales
auxiliadora.rosales@laprensa.com.ni
Las notas musicales de los clásicos europeos se fundirán junto a temas de la cosecha nacional para celebrar el X Aniversario de la Camerata Bach.
Y es que el grupo de cámara celebrará este acontecimiento el 15 de mayo a las 7:00 p.m. en el Teatro Nacional Rubén Darío, haciendo lo que hacen muy bien, tocar música. Por lo que han planificado compartir con sus invitados todo un concierto de lujo.
Ramón Rodríguez, director de la Camerata, expresó que el concierto de aniversario se dividirá en dos partes: la primera será sólo de música clásica que albergará composiciones como “Pequeña fuga”, de Johann Sebastian Bach, y el primer movimiento de la “Quinta sinfonía”, de Ludwing van Beethoven.
La segunda parte del concierto estará dedicada a la música nacional, y nuestros temas sonarán con una orquesta sinfónica.
Entre los temas que interpretarán se encuentran: “Nicaragua, Nicaragüita”(Carlos Mejía), “El solar de Monimbó” (Camilo Zapata), “Danza negra” (Anónimo); “La bala” (Alfonso Cortés/Ofilio Picón), “La agonía del crepúsculo” (Alejandro Vega Matus). Se le suma el tema “Por ti volveré”, de Andrea Boccelli.
SE LES UNEN MÚSICOS EXTRANJEROS
Llegar a puro pulso a 10 años de bregar artístico no es así por así, por lo que esta celebración será a lo grande y se le suman muchos artistas.
Entre ellos la pianista brasileña Licia Lucas, el músico Pablo Buitrago, el Coro de Cámara de Nicaragua, Carlos Mejía Godoy y su hijo, el marimbista Carlos Luis Mejía.
Además de Los de Palacagüina, y el tenor Laureano Ortega acompañado de Silvia Avellán.
Además de músicos de Centroamérica, quienes conformarán la Orquesta Décimo Aniversario, dirigida por Pablo Buitrago.
La orquesta integrada por 37 músicos interpretará el repertorio antes mencionado. 
|
|
|
|
|
