[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]
[Hilos de Discusión] [Fecha] [Tema] [Autor]Hola que tal.. estoy desarrollando un script para que mis usuarios con
acceso a dial.-up chequen el tiempo que llevan en la utilización de su
cuenta, tengo un problema en la parte de chequeo de datos ya que no logro
hacer que esta parte del script haga una comparacion entre el login de
usuario introducido mediante la pagina web y el archivo de registro, en mi
script no pido pasword para obtener los datos, unicamente pido el login de
usuario, mi pwfile es tipo passwd y los campos estan separados por ":"..
Anexo parte del escrip espero me puedan ayudar..
Gracias.
sub checadatos { # Evaluamos los datos introducidos por el usuario.
open (LOG,"pwfile");
@linea=<LOG>;
foreach (@linea) {
chop;
($login2)=(split(/:/));
$login=~s/\s*//;
if ( $login2 eq $login) {
presentadatos ();
open(logs,">>reg.log");
$fecha=`date`;
print logs qq($login $ENV{"REMOTE_ADDR"}
$fecha);
close (logs);
$bindlogin=1;
}
else {
print qq(<html><head><title>Consultas de
acceso </title></head>);
print "<BODY>";
print qq (<CENTER><H1> Usuario
incorrecto<\/CENTER><\/H1>);
print "\<\/BODY\>";
print "\<\/HTML\>";
open(log1s,">>error.log");
$fecha=`date`;
print log1s qq($login $ENV{"REMOTE_ADDR"}
$fecha);
close (log1s);
}
}
}
if ($bindlogin == 0) {
falso();
}
}
Saludos
_______________________________________________
Ayuda mailing list
Ayuda en linux org mx