el código es el siguiente:
Código:
A través de un formulario donde se pide usuario y pass, este script, "valida" a ese usuario q esta en un archivo, el campo user[4] y user[5], corresponden al usuario y pass.foreach $trozo (split /&/, $ENV{QUERY_STRING}) { ($c,$v)=split /=/, $trozo; $p{$c}=$v; } $sw=0; open FILE, "usuarios.txt"; while(<FILE>) { chop; @user=split /:/; if($user[4] eq $p{usuario})&&($user[5] eq $p{pass})){ $sw=1; else $sw=0; } } close FILE; if($sf==0) { print<<Error; content-type: text/html <html><head><title>::Panel de Control de $p{usuario}::</title></head> <body> <h1>Bienvenido $user[0]</h1><br> - Desde este panel usted podrá : <a href='modificar.pl?login=$p{usuario}'> Cambiar datos</a> | <a href='bajas.pl?login=$p{usuario}'>Darse de baja</a><br><br> -Si deseá ver las noticias seleccionadas pulse <a href='noticias.pl?login=$p{usuario}'>aquí</a><br> </body></html> Error } if($sw==1) { print<<Menu; content-type: text/html <html><head><title>::Panel de Control de $p{usuario}::</title></head> <body> <h1>Bienvenido $user[0]</h1><br> - Desde este panel usted podrá : <a href='modificar.pl?login=$p{usuario}'> Cambiar datos</a> | <a href='bajas.pl?login=$p{usuario}'>Darse de baja</a><br><br> -Si deseá ver las noticias seleccionadas pulse <a href='noticias.pl?login=$p{usuario}'>aquí</a><br> </body></html> Menu }
He probado en cambiar cosas y no sé porque no me va :/.
Gracias