Los datos de autenticación para '$themail' no son válidos.
\n"; } else { // Comprobar si se trata de una peticion y procesarla if (isset($HTTP_POST_VARS['borrar'])) { $delete = $HTTP_POST_VARS['borrar']; $new = $HTTP_POST_VARS['nuevo']; $a = $HTTP_POST_VARS['apellidos']; $n = $HTTP_POST_VARS['nombre']; $s = $HTTP_POST_VARS['institucion']; $d = $HTTP_POST_VARS['departamento']; $t = $HTTP_POST_VARS['telefono']; $f = $HTTP_POST_VARS['fax']; $e = $HTTP_POST_VARS['email']; $c = $HTTP_POST_VARS['clase']; $j = $HTTP_POST_VARS['dia6']."-".$HTTP_POST_VARS['dia7']."-".$HTTP_POST_VARS['dia8']."-".$HTTP_POST_VARS['visita']; $g = $HTTP_POST_VARS['cert']."-".$HTTP_POST_VARS['red']."-".$HTTP_POST_VARS['mail']."-".$HTTP_POST_VARS['mmedia']."-".$HTTP_POST_VARS['sysadmin']."-".$HTTP_POST_VARS['grid']."-".$HTTP_POST_VARS['middleware']."-".$HTTP_POST_VARS['tutorial']."-".$HTTP_POST_VARS['docencianet']; $i = $HTTP_POST_VARS['fecha']; $ch = 0; $r = $HTTP_POST_VARS['registrado']; $res = msql ("reuniones", "select email,clase,registrado from jt2002 where email='$e'"); if ($res == false) { $err = msql_error(); $mensaje = "Error en el acceso a la base de datos: $err"; $mailtext = ""; } elseif ($delete == "y") { $query = "delete from jt2002 where email='$e'"; $mailtext = " Su inscripción en las Jornadas Técnicas de RedIRIS 2002 ha sido borrada por $themail."; $mensaje = "La inscripcion de $a,$n ($s) - $e ha sido borrada"; } else { if ($new == "y") { if (msql_NumRows($res) > 0) { $c = msql_result($res,0,"clase"); $r = msql_result($res,0,"registrado"); $query = ""; $mailtext = ""; $mensaje = "Una persona cuya dirección de correo electrónico es $e ya ha sido inscrita como $c por $r"; } else { // Generacion de la password $p = exec("/usr/local/bin/mkpw"); $query = "insert into jt2002 values ('$a','$n','$s','$d','$t','$f','$e','$c','$j','$g',$ch,'$r','$p','$i')"; $mailtext = " Ha sido inscrito como $c en las Jornadas Técnicas de RedIRIS 2002 por $r. Puede consultar y modificar los datos de su inscripcion utilizando el URL: http://www.rediris.es/jt/jt2002/registro/ Para acceder a él, los datos que debe emplear son los siguientes: username: $e password: $p Le recomendamos que conserve este mensaje si desea acceder a sus datos más adelante"; $mensaje = "La inscripcion de $a,$n ($s) - $e ha sido realizada"; } } else { $query = "update jt2002 set apellidos='$a',nombre='$n',institucion='$s',departamento='$d',telefono='$t',fax='$f',clase='$c',jjtt='$j',ggtt='$g',fiesta=$ch where email='$e'"; $mailtext = " Los datos de su inscripción en las Jornadas Técnicas de RedIRIS 2002 han sido modificados por $themail. Puede consultar y modificar estos datos utilizando el URL: http://www.rediris.es/jt/jt2002/registro/ Para acceder a él, use los datos de acceso enviados al notificarle su inscripción"; $mensaje = "Los datos de $a,$n ($s) - $e han sido actualizados"; } } $res = msql ("reuniones",$query); if ($res = false) { $err = msql_error(); $mensaje = "Error en el acceso a la base de datos: $err"; $mailtext = ""; } if ($mailtext != "" && $e != $themail) { mail($e,"Jornadas Tecnicas Rediris 2002",$mailtext, "Reply-To: secretaria@rediris.es\nErrors-To: secretaria@rediris.es"); } echo "$mensaje
\n"; } // Mostrar datos en funcion de la clase de usuario if ($theclass == "admin") { $lista = msql ("reuniones", "select apellidos,nombre,institucion,email from jt2002 where clase<>'admin' and clase<>'per' order by apellidos"); if ($lista == false) { $nlista = msql_error(); echo "
Error en la base de datos
\n$nlista\n"; } else { $nlista = msql_NumRows($lista); echo "
Hay $nlista personas registradas
\n"; echo "Nueva inscripción
\n- \n";
for ($i = 0; $i < $nlista; $i++) {
$a = msql_result($lista,$i,"apellidos");
$n = msql_result($lista,$i,"nombre");
$s = msql_result($lista,$i,"institucion");
$e = msql_result($lista,$i,"email");
echo "
- $a, $n ($s) - $e\n"; } echo "
Nueva inscripción
\n"; } } elseif ($theclass == "per") { // Plazo ya cerrado echo "Plazo de inscripción
\n"; echo "El plazo de inscripción y modificación de su registro para las Jornadas Técnicas se cerró el día 18 de Octubre.
Si tiene cualquier duda o sugerencia, puede hacernosla llegar a través de la dirección conferencias@rediris.es
The dead line for registering and modifying your registration info ended on October 18.
If you have any doubt or suggestion, please send an email to conferencias@rediris.es
Error en la base de datos
\n$nlista\n"; // } // else { // $nlista = msql_NumRows($lista); // echo "
Plazo de inscripción
\nEl plazo de inscripción a las Jornadas Técnicas se cerró el día 18 de Octubre\n"; // echo "
$themail ha registrado $nlista personas
\n- \n";
// for ($i = 0; $i < $nlista; $i++) {
// $a = msql_result($lista,$i,"apellidos");
// $n = msql_result($lista,$i,"nombre");
// $s = msql_result($lista,$i,"institucion");
// $e = msql_result($lista,$i,"email");
// echo "
- $a, $n ($s) - $e\n"; // } // echo "
Nueva inscripción
\n"; // } } else { if( $themail == "Todd.Korth@sun.com" ){ $inmail = $themail; if ($delete != "y") { include ("datos.inc"); } }else{ // Plazo ya cerrado echo "Plazo de inscripción
\n"; echo "El plazo de inscripción y modificación de su registro para las Jornadas Técnicas se cerró el día 18 de Octubre.
Si tiene cualquier duda o sugerencia, puede hacernosla llegar a través de la dirección conferencias@rediris.es
The dead line for registering and modifying your registration info ended on October 18.
If you have any doubt or suggestion, please send an email to conferencias@rediris.es