perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Malcolm <mjhlists-modperl-20060...@liminalflux.net>
Subject Re: help about Apache::Scoreboard
Date Thu, 13 Dec 2007 14:26:12 GMT
On Wednesday 12 December 2007 11:36:34 pm Jeff Pang wrote:

> When added these code in my handler:
>
>
>     my $r = shift;
>
>     # We decline to handle subrequests: otherwise, a few lines down we
>     # could get into an infinite loop.
>     return DECLINED unless $r->is_initial_req;
>
> #
> # for limit-ip-conn
> #
>     my $ip_count = 0;
>     my $limit = $r->dir_config('MaxConnPerIP') || 0;
>     my $ip = $r->connection->remote_ip;
>     my $host = $r->connection->remote_host;
>     my $image = Apache::Scoreboard->image;
>
>     for (my $parent = $image->parent; $parent; $parent = $parent->next) {
>         my $server = $parent->server;
>         next if ($server->status =~ /^[\._SL]$/);
>         if (($ip eq $server->client) or ($host eq $server->client)) {
>             $ip_count++;
>         }
>     }
>
>     if ($ip_count > $limit and $limit) {
>         $r->log_reason("Client exceeded connection limit.", $r->filename);
>         return FORBIDDEN;
>     }

Just to confirm, you do have a "use Apache::Scoreboard" in there somewhere?


> I got many warnings in error_log:
>
> Use of uninitialized value in string eq at /opt/apache1.3/run/DLAuth.pm
> line 42. at /opt/apache1.3/run/DLAuth.pm line 42
>         DLAuth::handler('Apache=SCALAR(0x91cbe8c)') called at /dev/null
> line 0 eval {...} called at /dev/null line 0
>
> The line 42 is:
> if (($ip eq $server->client) or ($host eq $server->client)) {

What are the values of $ip, $host and $server->client at that point? 
The "uninitialised value" could be any of the above.

> And the handler (PerlAccessHandler) seems work not correctly.

Does it work as a perl request handler? (PerlHandler for mp2).
Can you get any values at all out of the ServerScore instance?



Mime
View raw message