#!c:/perl/perl
use SysUtils;
use CGI qw/:standard/;

$login = param('login');
$pass = param('pass');

$dbh = SysUtils::Connect;

$sth = $dbh->prepare_cached("SELECT login, pass FROM usuarios WHERE login='$login'");

$sth->execute;

while(@row = $sth->fetchrow_array())
{
    if ($login eq $row[0])
    {
        $l = "go";
        
        if ($pass eq $row[1])
        {
            $p = "go";
        }
        else
        {
            $sth->finish;
            $dbh->disconnect;
            SysUtils::Response2User("erro.htm","<span class=\"erro\">Invalid pass.</span>","el","$login");
        }
    }
    else
    {
        $sth->finish;
        $dbh->disconnect;
        SysUtils::Response2User("erro.htm","<span class=\"erro\">Invalid login.</span>","el","$login");
    }


}

$sth->finish;

$dbh->disconnect;