sub verify_login {
    my $loginalias = shift;
    if ($loginalias eq '') {
        login_form;
        return '';
    }
    my($password, $undef) = read_reg_file($loginalias);
    oops('You must enter a valid username and password') if $loginpassword eq '';
    # ...
    return 1;
}