diff options
| -rw-r--r-- | sitesummary-collector.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sitesummary-collector.cgi b/sitesummary-collector.cgi index 1028190..68ab091 100644 --- a/sitesummary-collector.cgi +++ b/sitesummary-collector.cgi @@ -151,6 +151,8 @@ sub get_peerinfo { $peername = gethostbyaddr($peeripaddr, AF_INET); } elsif ($ENV{'REMOTE_ADDR'}) { # CGI variable $peeripaddr = $ENV{'REMOTE_ADDR'}; + $peeripaddr =~ m/(\d+).(\d+).(\d+).(\d+)/; # Untaint + $peeripaddr = "$1.$2.$3.$4"; $peername = gethostbyaddr($peeripaddr, AF_INET); } else { # Running on the command line, use test host @@ -161,7 +163,5 @@ sub get_peerinfo { syslog('warning', "%s", "client without DNS entry connected from \[$peeripaddr\]"); $peername = "$peeripaddr"; } - $peeripaddr =~ m/(\d+).(\d+).(\d+).(\d+)/; # Untaint - $peeripaddr = "$1.$2.$3.$4"; return ($peeripaddr, $peername); } |