buenas!!!
aqui la continuacion del codigo .cgi
Código PHP:
close (INDEX);
}
# Add user..
$users{"$in{'username'}"} = "$in{'password'}|$in{'email'}|$in{'real_name'}|$in{'site_description'}";
# Update user list
$list = qq~
<html>
<head>
<title>Usuarios de $config{'site_name'}</title>
</head>
<body bgcolor="#FFFFFF">
<font face="Arial,Helvetica">
<big><big>$config{'site_name'} User List</big></big><p>
~;
while (($key, $value) = each %users) {
@value=split(/|/,$value);
push (@users, "$key|$value[3]");
}
@users = sort {lc($a) cmp lc($b)} @users;
foreach $line (@users) {
@line=split(/|/,$line,2);
if ($line[1]) { $list .= qq~<a href="$config{'root_url'}/$line[0]">$line[0]</a> - $line[1]<br>n~; }
else { $list .= qq~<a href="$config{'root_url'}/$line[0]">$line[0]</a><br>n~; }
}
$list .= qq~
</font>
</body>
</html>
~;
open (LIST,">$config{'root_dir'}/list.html") || &error_html("NO pudo Ser Creado/Actualizado Listado de Usuarios: $!");
print LIST $list;
close (LIST);
# Print success html
print qq~
<html>
<head>
<title>$config{'site_name'} Registro</title>
</head>
<body bgcolor="#FFFFFF" link="#000000" vlink="#FF0000" alink="#800080">
<p align="center"><big><big><strong><font face="Arial">$config{'site_name'}</font></strong></big></big></p>
<form method="POST" action="manager.cgi">
<input type="hidden" name="password" value="$in{'password'}"><input type="hidden" name="username" value="$in{'username'}">
<div align="center"><center><table border="0" cellpadding="0" cellspacing="0" bgcolor="#004080">
<tr>
<td><table border="0" cellpadding="2" cellspacing="1" width="600">
<tr>
<td><font face="Arial" color="#FFFFFF"><strong>Enviar</strong></font></td>
</tr>
<tr>
<td bgcolor="#0080FF"><font face="Arial"> ¡Felicitaciones! Ha sido Registrado con éxito y usted puede Entrar ahora.<br>
* - Recuerde que si tiene Algun problema puede enviar un mail a servicios@.mpcmerida.com.mx y con gusto un tecnico le ayudara a solucionar su problema.<br>
</font><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><table border="0" cellPadding="2" cellSpacing="1">
<TBODY>
<tr>
<td width="120" align="right"><div align="right"><p><font face="Arial">Username</font></td>
<td bgcolor="#FFFFFF"><font face="Arial">$in{'username'}</font></td>
</tr>
<tr>
<td width="120" align="right"><font face="Arial">Contraseña</font></td>
<td bgcolor="#FFFFFF"><font face="Arial">$in{'password'}</font></td>
</tr>
<tr>
<td width="120" align="right"><font face="Arial">Email</font></td>
<td bgcolor="#FFFFFF"><font face="Arial">$in{'email'}</font></td>
</tr>
<tr>
<td width="120" align="right"><font face="Arial">Nombre Real</font></td>
<td bgcolor="#FFFFFF"><font face="Arial">$in{'real_name'}</font></td>
</tr>
</TBODY>
</table>
</td>
<td width="50%"><div align="center"><center><p><input type="submit" value="Entrar al Panel"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
</form>
<hr width="80%" noshade size="1" color="#000000">
<p align="center"><font face="Arial">© Copyright 2002 Mpcmerida<br>
Regrese a la <a href="http://www.mpcmerida.com.mx">Pagina Principal</a>!</font></p>
<p align="center"><a href="mailto:[email protected]">Servicios y Problemas</a>!</font></p>
</body>
</html>
~;
}
sub error_html {
($error)=@_;
print qq~
<html>
<head>
<title>Mantenimiento Preventivo Computacional</title>
</head>
<body bgcolor="#FFFFFF" link="#000000" vlink="#FF0000" alink="#800080">
<p align="center"><big><big><strong><font face="Arial">Mantenimiento Preventivo Computacional</font></strong></big></big></p>
<form method="POST">
<div align="center"><center><table border="0" cellpadding="0" cellspacing="0" bgcolor="#004080">
<tr>
<td><table border="0" cellpadding="2" cellspacing="1" width="600">
<tr>
<td><font face="Arial" color="#FFFFFF"><strong>Error</strong></font></td>
</tr>
<tr>
<td bgcolor="#0080FF"><font face="Arial">$error</font><p><font face="Arial"> Por favor Presione 'Atras' y Verifique que Los Datos Esten Correctos.</font></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
</form>
<hr width="80%" noshade size="1" color="#000000">
<p align="center"><font face="Arial">© Copyright 2002 Mpcmerida<br>
Regrese a la <a href="http://www.mpcmerida.com.mx">Pagina Principal</a>!</font></p>
<p align="center"><a href="mailto:[email protected]">Servicios y Problemas</a>!</font></p>
</body>
</html>
~;
exit;
}
cualquier ayuda es bienvenida
un saludo!!!