package Apache::AuthAny;

use strict;
use Apache::Constants qw(:common);

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;
    }

    return OK;     
}

1;
__END__