Help for this page

Select Code to Download

Select or download this

PerlAuthenHandler auth::auth->authen_handler # <-- this works fine
PerlAuthzHandler auth::auth->group_handler
...
AuthName 'Restricted Area Access'

require group group1

Select or download this

sub group_handler {
    my ($self, $r) = @_;
...
    ...
    <so I have a list of requries, connect to my db and check if this 
+user may pass>
}