sub handler {
    my $r = shift;

    my($res, $sent_pw) = $r->get_basic_auth_pw;

    return $res if $res != OK;

    my $user = $r->connection->user;
    unless($user and $sent_pw) {
        $r->note_basic_auth_failure;
        $r->log_reason("Both a username and password must be provided",
                        $r->filename);
        return AUTH_REQUIRED;
    }

##</code><code>##

    return FORBIDDEN if ($encrypt_passwd ne $glas_password);

    # Got this far - guess we can let them in
    return OK;
}

1;
__END__