use mod_info and mod_status via mod_perl?

[Charlie Katz <suppressed>]

Hi All,

I would like to make the output of mod_info and mod_status available within my 
site, but I want to limit access to them by using my site's custom 
authorization scheme.  The usual

<Location /server-status>
  SetHandler server-status
  ...
  Allow from ...
</Location>

doesn't work for me because I don't want to control access based on URI, but 
rather the custom authorization level my site assigns when a user logs in.

After hacking around for a while I worked out something like the following.  
This can only be run by a user who has logged in to the site and has 
sufficient privileges:

my $subr = $r->lookup_uri('');
$subr->handler('server-status');
$subr->run;

This seems straightforward enough (and it works), but I am bothered by using 
lookup_uri() when I don't actually care what the URI is.  Is there a more 
direct way to do what I want?

Regards,
Charlie

-- 
Charlie Katz
Harvard-Smithsonian Center for Astrophysics
suppressed