Ir para o conteúdo

Publicidade

 Estatísticas do Fórum

  • 0 Usuários ativos

    0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

Foto:

login e senha

  • Por favor, faça o login para responder
1 resposta neste tópico

#1 Daia Sganzerla

Daia Sganzerla
  • Membros
  • 1 posts

Postado 21 março 2007 - 15:18

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.
  • 0

#2 João Gabriel

João Gabriel
  • Membros
  • 45 posts

Postado 16 abril 2007 - 11:03

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>
~;
}

  • 0




Publicidade

/ins>