>>>>> "Victor" == Victor Zamouline <[EMAIL PROTECTED]> writes:
Victor> Great sites using mod_perl may want to explicitely state being
Victor> proud of it, with a kind of mod_perl logo. I will willingly
Victor> decorate my mod_perl'ed site (www.jazzvalley.com) with a
Victor> mod_perl stamp on every page.
I've been doing that in a different, but less useful way:
package Stonehenge::MyFixup;
## PerlFixupHandler Stonehenge::MyFixup
use strict;
use Apache::Constants qw(DECLINED);
sub handler {
my $r = shift;
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;
and the evidence:
$ GET -de www.stonehenge.com
Connection: close
Date: Fri, 03 Dec 1999 12:43:58 GMT
Server: Apache/1.3.9 (Unix) mod_perl/1.21
Content-Type: text/html
Client-Date: Fri, 03 Dec 1999 12:43:58 GMT
Client-Peer: 209.102.105.69:80
Title: Welcome to Stonehenge!
X-Meta-Description: The Home Page of Stonehenge Consulting Services, Inc.
X-Meta-Keywords: Perl, Perl training, Perl consulting, Unix, Unix consulting
X-Mod-Perl-Rules: mod_perl rules! Get it at http://perl.apache.org/
:-)
--
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!