How can I query IPs of interfaces apache binds to? I need this to distinguish between internal and external requests in the userSession table.

Bernd

--
Trying to build a non-profit community portal for free-climbers around Magdeburg/Germany. Check out http://www.klettern-md.de (under construction).

Hi Bernd,

Can you explain more about what you're trying to do? Are you trying to find this info from a macro? a custom wobject?

Hi William,

I am trying to improve the UsersOnline macro. In one place, the number of visitors is determined by the following query:

SELECT COUNT(DISTINCT lastIp) FROM userSession where (lastPageView >= $epoch) and (userId = 1)

However, I noticed that the number of visitors is increased artificially by internal requests. I assume this is due to mod_proxy accessing mod_perl or maybe due to spectre. Anyway, I would like to filter out ips belonging to the loopback device and ips apache binds to. That should solve the problem. Any idea?

Bernd

--
Trying to build a non-profit community portal for free-climbers around Magdeburg/Germany. Check out http://www.klettern-md.de (under construction).

Are you saying that you don't already know what your internal IP ranges are?

$session->server gives you a reference to Apache2::ServerUtil, which can probably give you those IPs.

$session->server returns an object of type Apache2::ServerRec, in fact. The documentation of this field is incorrect and should be updated

If someone was interested, the following code is what I had been looking for:

# Query server hostname
my $hostname = $session->server->server_hostname();

# Look up server IP addresses
my $ip_clause;
my $res = Net::DNS::Resolver->new();
my $query = $res->search($hostname);
if ($query)
{
    foreach my $rr ($query->answer)
    {
        next unless $rr->type eq "A";
        # Generate SQL clause which excludes server IPs
        $ip_clause = $ip_clause . " AND STRCMP(lastIp, '" . $rr->address . "')";
    }
}

$ip_clause can now be added to SQL queries in order to filter out server ips.