package Auth;

use strict;
use Apache::Access ();
use Apache::RequestUtil ();

use Apache::Const -compile => qw(OK DECLINED HTTP_UNAUTHORIZED);
use Apache::Access();

sub handler {
    my $r = shift;
    my $uri = $r->uri;

    if (($uri =~ m/add/) or ($r->method ne 'GET')) {
        my ($status, $password) = $r->get_basic_auth_pw;
        return $status unless $status == Apache::OK;

        $r->note_basic_auth_failure;
        $r->header_out('Location','http://space.frot.org/etcon_register/');

        return Apache::HTTP_UNAUTHORIZED;
    }
    else {
	return Apache::OK;
    }
}

1;