some updates to URL and content handlers to make them a bit more flexible

This commit is contained in:
JT Smith 2008-04-26 18:59:48 +00:00
parent c074fde72a
commit 17d6151832
9 changed files with 91 additions and 12 deletions

View file

@ -80,12 +80,11 @@ sub handler {
}
}
}
WebGUI::Affiliate::grabReferral($session); # process affiliate tracking request
$session->close;
return Apache2::Const::OK;
});
$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
return Apache2::Const::DECLINED;
return Apache2::Const::OK;
}
1;

View file

@ -58,7 +58,7 @@ sub handler {
return Apache2::Const::OK;
} );
$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
return Apache2::Const::DECLINED;
return Apache2::Const::OK;
}

View file

@ -52,7 +52,7 @@ sub handler {
$request->handler(Apache2::Const::DIR_MAGIC_TYPE); # Hand off to mod_dir
return Apache2::Const::OK;
}
return Apache2::Const::DECLINED;
return Apache2::Const::OK;
}
1;

View file

@ -53,7 +53,7 @@ sub handler {
return Apache2::Const::OK;
} );
$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
return Apache2::Const::DECLINED;
return Apache2::Const::OK;
}

View file

@ -77,7 +77,7 @@ sub handler {
return Apache2::Const::NOT_FOUND;
}
} );
return Apache2::Const::DECLINED;
return Apache2::Const::OK;
}

View file

@ -15,7 +15,7 @@ package WebGUI::URL::MyHandler;
=cut
use strict;
use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND DIR_MAGIC_TYPE);
use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND);
=head1 NAME
@ -48,7 +48,7 @@ The Apache request handler for this package.
sub handler {
my ($request, $server, $config) = @_;
# ...
return Apache2::Const::DECLINED;
return Apache2::Const::OK;
}
1;