Re: mod_perl rules! updated stats

[Randal L. Schwartz]

>>>>> "Stas" == Stas Bekman <[EMAIL PROTECTED]> writes:

Stas> mod_perl rules :)

    package Stonehenge::MyFixup;

    ## PerlFixupHandler Stonehenge::MyFixup

    use strict;
    use vars qw($VERSION);
    $VERSION = (qw$Revision: 1.6 $ )[-1];

    use Apache::Constants qw(DECLINED);

    sub handler {
      use Stonehenge::Reload; goto &handler if Stonehenge::Reload->reload_me;

      my $r = shift;

# [other stuff here deleted]

      if (not $r->proxyreq and $r->is_main) {
        $r->header_out(X_mod_perl_rules =>
                       "mod_perl rules! Get it at http://perl.apache.org/");
      }

      return DECLINED;
    }

    1;

:-)

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!