print("Content-type: text/html\n\n");
$ENV{'REQUEST_METHOD'};
$buffer = $ENV{'QUERY_STRING'};
my($nome,$senha ) = split(/&/, $buffer);
my($nome, $vnome) = split(/=/, $nome);
my($senha, $vsenha) = split(/=/, $senha);
$encontrou=0;
open(FILE,";
@areg=split(/~/,$reg);
if (@areg[1] ne ""){
if ((@areg[0] eq $vnome) && (@areg[1] eq $vsenha))
{
$encontrou=1;
$name=$arqnome;
}
}
}
close(FILE);
if($encontrou == 0)
{
&erro;
}
else
{
&bem($vnome);
}
sub erro{
print << "EOF";
Erro
Usuário não Cadastrado,favor verificar seu login e senha!!!
Voltar
EOF
}
sub bem() {
print << "EOF";
Seja Bem Vindo ao Brazuka Shopping Online
Bem Vindo ao Brazuka Shopping Online.
Compras Online
EOF
}