You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl@perl.apache.org by Stas Bekman <st...@stason.org> on 2000/08/08 17:39:21 UTC
mod_perl rules! updated stats
Well, I've just updated the mod_perl deployment growth graph
See http://perl.apache.org/netcraft/
There are almost 1.3M hosts using mod_perl (not counting a few other
millions of those located behind the proxy server and therefore not
counted, only a few ports are being tested, to avoid the blames of port
scanning: 80, 443 and probably a few other well known ports).
In the last 2 months 0.45M of new hosts were counted, and in the last 4
months the number of hosts has doubled!!! Since July 99 there was a 6-fold
growth!
The number of unique IPs hosting mod_perl has doubled in the last 6
months!!! Since July 99 there was a 3-fold growth!
mod_perl rules :)
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:stas@stason.org http://apachetoday.com http://jazzvalley.com
http://singlesheaven.com http://perlmonth.com perl.org apache.org
Re: mod_perl rules! updated stats
Posted by Stas Bekman <st...@stason.org>.
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 <st...@stason.org> 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:stas@stason.org http://apachetoday.com http://jazzvalley.com
http://singlesheaven.com http://perlmonth.com perl.org apache.org
Re: mod_perl rules! updated stats
Posted by Ian Struble <ia...@broken.net>.
On Tue, 8 Aug 2000, Stas Bekman wrote:
> On 8 Aug 2000, Randal L. Schwartz wrote:
>
> > >>>>> "Stas" == Stas Bekman <st...@stason.org> 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. :^)
Re: mod_perl rules! updated stats
Posted by Stas Bekman <st...@stason.org>.
On 8 Aug 2000, Randal L. Schwartz wrote:
> >>>>> "Stas" == Stas Bekman <st...@stason.org> 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:stas@stason.org http://apachetoday.com http://jazzvalley.com
http://singlesheaven.com http://perlmonth.com perl.org apache.org
Re: mod_perl rules! updated stats
Posted by Stas Bekman <st...@stason.org>.
On Thu, 10 Aug 2000, Billy Donahue wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> On 10 Aug 2000, Randal L. Schwartz wrote:
> > Ask> On 8 Aug 2000, Randal L. Schwartz wrote:
> >
> > >> $VERSION = (qw$Revision: 1.6 $ )[-1];
> >
> > Ask> in 4 revisions you would have regretted that if you actually used
> > Ask> the $VERSION for anything, no?
> >
> > Then it's time for version 2! :)
>
> This raises an interesting question...
>
> Is it possible to integrate the new perl-5.6.0 `v4.2.20' version-quoting
> with CVS tags?
That's easy. I always use the following code:
$Apache::VMonitor::VERSION = do { my @r = (q$Revision: 1.2 $ =~
/\d+/g); sprintf "%d."."%02d" x $#r, @r };
So now you add "v." in the format part and you are all set!
$Apache::VMonitor::VERSION = do { my @r = (q$Revision: 1.2 $ =~
/\d+/g); sprintf "v.%d."."%02d" x $#r, @r };
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:stas@stason.org http://apachetoday.com http://jazzvalley.com
http://singlesheaven.com http://perlmonth.com perl.org apache.org
Re: mod_perl rules! updated stats
Posted by Billy Donahue <bi...@dadadada.net>.
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On 10 Aug 2000, Randal L. Schwartz wrote:
> Ask> On 8 Aug 2000, Randal L. Schwartz wrote:
>
> >> $VERSION = (qw$Revision: 1.6 $ )[-1];
>
> Ask> in 4 revisions you would have regretted that if you actually used
> Ask> the $VERSION for anything, no?
>
> Then it's time for version 2! :)
This raises an interesting question...
Is it possible to integrate the new perl-5.6.0 `v4.2.20' version-quoting
with CVS tags?
- --
"The Funk, the whole Funk, and nothing but the Funk."
Billy Donahue <ma...@dadadada.net>
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.2 (GNU/Linux)
Comment: pgpenvelope 2.9.0 - http://pgpenvelope.sourceforge.net/
iD8DBQE5k0mo+2VvpwIZdF0RApXBAJ0aV66izcYjFxfK27KMakpGm3OhkwCdF92q
+T5KtULpW5wPEGyWNBmpV8E=
=vjDR
-----END PGP SIGNATURE-----
Re: mod_perl rules! updated stats
Posted by "Randal L. Schwartz" <me...@stonehenge.com>.
>>>>> "Ask" == Ask Bjoern Hansen <as...@valueclick.com> writes:
Ask> On 8 Aug 2000, Randal L. Schwartz wrote:
>> $VERSION = (qw$Revision: 1.6 $ )[-1];
Ask> in 4 revisions you would have regretted that if you actually used
Ask> the $VERSION for anything, no?
Then it's time for version 2! :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<me...@stonehenge.com> <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!
Re: mod_perl rules! updated stats
Posted by Ask Bjoern Hansen <as...@valueclick.com>.
On 8 Aug 2000, Randal L. Schwartz wrote:
> $VERSION = (qw$Revision: 1.6 $ )[-1];
in 4 revisions you would have regretted that if you actually used
the $VERSION for anything, no?
- ask
--
ask bjoern hansen - <http://www.netcetera.dk/~ask/>
more than 70M impressions per day, <http://valueclick.com>
Re: mod_perl rules! updated stats
Posted by "Randal L. Schwartz" <me...@stonehenge.com>.
>>>>> "Stas" == Stas Bekman <st...@stason.org> 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
<me...@stonehenge.com> <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!