1 resposta neste tópico

[Daia Sganzerla]

Preciso de um código de login e senha para acesso a um arquivo pl.
Please, alguém se prontifica em me ajudar?

Nunca programei em perl, por isso a dificuldade.

[João Gabriel]

eis um script bem simples...

#!/usr/bin/perl

use CGI; 
use CGI::Carp qw(fatalsToBrowser);

$query = new CGI; 
$fusuario = $query->param("usuario"); 
$fsenha = $query->param("senha"); 
$pag = $query->param("pag"); 

print "Content-type: text/html\n\n";

$usuario = "joao";
$senha = "123";

if($pag) { 
	if($fusuario eq $usuario && $fsenha eq $senha) { 
		&pagina; 
	} else { 
		$texto = "Nome de usuário e/ou senha incorreto(s)<br>";
		&login;
	}
} else {
	&login;
}



sub pagina {
print qq~
aki vai o conteudo da página protegida!
aceita html
~; 
}

sub login {
print qq~
$texto
<form action="?" method="post">
<input type="hidden" name="pag" value="login">
usuário: <input type="text" name="usuario"> <br>
senha: <input type="password" name="senha"> <input type="submit" value="logar!">
</form>
~;
}