On Tue, 8 Aug 2000, Ian Struble wrote:
> 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. :^)
Of course, I've referred to people who don't yet know that mod_perl rules
:)
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://apachetoday.com http://jazzvalley.com
http://singlesheaven.com http://perlmonth.com perl.org apache.org
