On Tue, 8 Aug 2000, Stas Bekman wrote:
> On 8 Aug 2000, Randal L. Schwartz wrote:
>
> > >>>>> "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;
> >
> > :-)
> >
>
> Cool, if only people would look at the headers :)
Well I'm sure everyone here has once, twice, a thousand times. I know
that I would have gotten a laugh out of the headers had I seen that. :^)
