BEGIN {
require './inc';
}
use Net::Ident qw(:apache lookupFromInAddr);
use Apache;
use Apache::Constants qw(:common);
use Socket;
my $r = Apache->request;
$r->content_type("text/plain");
$r->send_http_header;
my $c = $r->connection;
my $localaddr = $c->local_addr;
my $remoteaddr = $c->remote_addr;
my($localport, $localip) = sockaddr_in($localaddr);
my($remoteport, $remoteip) = sockaddr_in($remoteaddr);
$r->print("You are connecting from ", inet_ntoa($remoteip), ":$remoteport to ",
inet_ntoa($localip), ":$localport\n");
my $user = lookupFromInAddr($localaddr, $remoteaddr, 5) || "LOOKUP FAILED!\n";
$r->print("function lookupFromInAddr says you are: $user\n");
$user = $c->ident_lookup(5) || "LOOKUP FAILED!\n";
$r->print("ident_lookup method says you are: $user\n");
OK;