12/01/2004, 13:52
|
 | $moderador{'Esteban'} | | Fecha de Ingreso: febrero-2002 Ubicación: Buenos Aires - Argentina
Mensajes: 8.762
Antigüedad: 23 años Puntos: 90 | |
| Acá te tiro un par de ideas
pienzo que el html del formulario ya lo sabes hacer, así que voy directamente al script que usará una base de datos del tipo archivo de texto:
#!usr/bin/perl
print "content-type: text/html \n\n";
para abrir la base de datos:
open (DATABASE, "<$_[0]") || &error('abrir','archivo');
flock (DATABASE,1)||&error('lock','file');
@registros = <DATABASE>;
close (DATABASE) || &error('cerrar','archivo');
#ahora la recorremos
foreach $registro (@registros){
@recordset = split (/\|\|/, $registro);
if ($recordset[$_[1]] eq $nic_del_usuario){
if ($recordset[$_[2]] eq $password_del_usuario){
print "te logeaste correctamente....HIUPI";
last;
}else{
print "password incorrecto";
}
}else{
print "loggin incorrecto";
}
exit;
de más está decir que la base de datos de texto debe ser de la forma:
id||nic||password||lo que quieras...
Espero que esto te sirva y te encamine un poco
MonoSwim
__________________
Esteban Quintana |