diff options
| author | Daniel Hess <daniel@rio-grande.ping.de> | 2007-12-02 17:36:48 +0000 |
|---|---|---|
| committer | Daniel Hess <daniel@rio-grande.ping.de> | 2007-12-02 17:36:48 +0000 |
| commit | 537c5264fbdaaf552050374524146656807ecf59 (patch) | |
| tree | 1f6333d4fed7b72cdf1a7f463b54f13ec5f7c847 /sitesummary-collector.cgi | |
| parent | fd4f771b65e8f23b50fa45f357f0d9e181c82b84 (diff) | |
| download | sitesummary-537c5264fbdaaf552050374524146656807ecf59.tar.gz sitesummary-537c5264fbdaaf552050374524146656807ecf59.tar.bz2 sitesummary-537c5264fbdaaf552050374524146656807ecf59.tar.xz | |
Use inet_aton to make binary version of ascii string from REMOTE_ADDR.
Diffstat (limited to 'sitesummary-collector.cgi')
| -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; |