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 :)
_____________________________________________________________________
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
