#-########################################
# Sub: Verify a secure login

sub verify_login {
if ($loginalias ne '') {
my($password, $undef) = &read_reg_file($loginalias);
&oops('You must enter a valid username and password') unless ($loginpassword ne '');
&oops('Incorrect username or password.') unless ($loginpassword eq crypt((lc $password), $config{'crypt_salt'}));
$form{'ALIAS'} = $loginalias;
$form{'PASSWORD'} = $password;
#print "($loginalias)($password)";
return 1;
}else{
&login_form;

return '';
}
} 
#-########################################