Hola, tengo hecho un script pero me da error y no sé donde :/
el código es el siguiente:
Código:
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
}
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.
He probado en cambiar cosas y no sé porque no me va :/.
Gracias