diff options
| -rw-r--r-- | sitesummary-collector.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sitesummary-collector.cgi b/sitesummary-collector.cgi index 199f4cc..38238ea 100644 --- a/sitesummary-collector.cgi +++ b/sitesummary-collector.cgi @@ -147,7 +147,7 @@ sub get_peerinfo { if ($ENV{'REMOTE_ADDR'}) { # CGI variable $peeripaddr = $ENV{'REMOTE_ADDR'}; $peeripaddr =~ m/(\d+).(\d+).(\d+).(\d+)/; # Untaint - $peeripaddr = "$1.$2.$3.$4"; + $peeripaddr = inet_aton("$1.$2.$3.$4"); $peername = gethostbyaddr($peeripaddr, AF_INET); } elsif (my $sockaddr = getpeername($sockethandle)) { my $peerport; |