#!/usr/bin/perl # "confirma.cgi" EDITADO DE: por_autor.cgi # Octavio Martinez de la Vega # Confirmacion de asistencia # Llena: #mysql> describe confirma; #+---------+-------------------+------+-----+---------+-------+ #| Field | Type | Null | Key | Default | Extra | #+---------+-------------------+------+-----+---------+-------+ #| nombre | varchar(300) | YES | | NULL | | #| email | varchar(300) | YES | MUL | NULL | | #| trabajo | enum('si','no') | YES | | si | | #| folio | int(11) | YES | MUL | 0 | | #+---------+-------------------+------+-----+---------+-------+ use CGI qw(:standard); use DBI; print "Content-Type: text/html\n\n"; print ''; print "\n\n","Confirma Asistencia\n","\n","\n"; print '',"\n"; print h2("REDBIO México 2010
Confirmación de Asistencia
"); if (param()) { # Ya se tienen datos $nombre = param("nombre"); $email = param("email"); $trabajo = param("trabajo"); $folio = param("folio"); # $autor = param("autor"); $dbh = DBI->connect ("DBI:mysql:host=localhost;database=redbio","omartine", "password", {PrintError => 1, RaiseError => 1}); $orden = "insert into confirma SET nombre= \'$nombre\', email=\'$email\', trabajo= \'$trabajo\', folio=$folio;"; $sth = $dbh->prepare ($orden); $sth->execute (); print "Estimad",'@:',"

$nombre

Gracias por confirmar su asistencia.

", "Nos vemos en Guadalajara!

"; print "Regresar al Indice"; } else { print start_form(); print p("Estimado participante:

", "Le rogamos confirmar su asistencia a REDBIO México 2010.

", "La lista que se genera a partir de los datos introducidos aquí es independiente de la lista de pago, de la lista original de registro y de", "la lista de descuentos para estudiantes y nos sirve para complementar dichos datos

", "Para asuntos relativos al pago de su inscripción, por favor dirija sus correos electrónicos a las direcciones:

", 'gonzalez.francisco@inifap.gob.mx, nieto.cesar@inifap.gob.mx', "

Para asuntos relacionados con su hospedaje, por favor contacte directamente a su hotel.
", "IMPORTANTE: No olvide mencionar que va a Guadalajara para asistir a REDBIO, de esa manera el hotel le dará el costo con descuento

", "Por favor, llene la siguiente forma y a continuación presione ENVIAR:

", "Nombre: ", textfield("nombre",'',100), "
", "Correo electrónico: ", textfield("email",'',50), "
", "Presentaré trabajo: ", popup_menu("trabajo", ['si','no']), "
", "Número de folio (en caso de presentar trabajo, de no ser así dejar \'0\'): ", textfield("folio",'0',5), "
", "Si no sabe o no recuerda su número de folio dejelo como \'0\', nosotros lo completaremos.
", "Si presentará más de un trabajo solamente necesita confirmar una vez, con alguno de los folios de sus trabajos.
"); print p(submit("ENVIAR"), reset("BORRAR")); print end_form(), hr(); print "Regresar al Indice"; } print end_html;