Help for this page
my $authdb = db600testauth::connect_admin(); DistroPrsRls_www->authen->config( ... ); DistroPrsRls_www->authen->protected_runmodes(qr/^(login_|admin_|dpr_)/ +);
return $self->authz->forbidden unless $self->authz->authorize('dpradmi +n');