sub handler ($$) {
	my ($self,$r)= @_;
	$self = $self->new unless ref $self;
	$self->{r} = $r;
	$self->{content_type}=$r->content_type;
	$self->{uri}= $self->{r}->uri || '/';
	if ($self->{content_type} eq DIR_MAGIC_TYPE) {
		return DECLINED unless $self->{uri} =~ /\/$/;
	}