MJJ> Mitchel, Jennifer (Jem) wrote:
MJJ> > The machine does belong to my org & my login does not have root access. I
will do the
MJJ> > /perl-status?hooks as soon as I can be let onto the machine with root access.
MJJ> >
MJJ> > I did print out the global hash %Apache::MyConfig::Setup and here is the result
MJJ> >
MJJ> > Apache_Src => /web/server/apache/1.3.22-source/src SSL_BASE =>
MJJ> >
MJJ> the hooks part of Apache::MyConfig wasn't added until mod_perl 1.25, so that
MJJ> won't help you with your version :)
MJJ> the following Apache::Registry script should do the trick:
MJJ> #!/usr/bin/perl
MJJ> use mod_perl_hooks qw(hook hooks);
shift->send_http_header('text/plain');
MJJ> foreach my $hook (mod_perl::hooks) {
MJJ> print "$hook => ", mod_perl::hook($hook) ?
MJJ> "enabled\n" :
MJJ> "disabled\n";
MJJ> }
MJJ> the line shift->send_http_header('text/plain');
MJJ> is giving me the error:
MJJ> Can't call method "send_http_header" on an undefined value
Hello.
You must put this script in <Location> or <Directory> where
SetHandler perl-script
PerlHandler Apache::Registry
or put this code in your own module in "sub handler"
and set this module as content handler in some <Location> and request
this location from browser.
