From: Paul Mutton <pjm2@i-scream.org>
Date: Sat, 5 May 2001 18:03:38 +0000 (+0000)
Subject: Logs the remote address of the client
X-Git-Tag: PRE_WWW_REDESIGN~219
X-Git-Url: http://git.i-scream.org/?a=commitdiff_plain;h=51cf12e9a7f2cf419e01be468deb80302c8de485;p=www.i-scream.org.git

Logs the remote address of the client
---

diff --git a/cgi-bin/download.cgi b/cgi-bin/download.cgi
index b2f2a71..7134d47 100755
--- a/cgi-bin/download.cgi
+++ b/cgi-bin/download.cgi
@@ -48,7 +48,7 @@ if (!defined($file_name) || $file_name eq "") {
 
 if (defined($submit) && $submit eq "Download") {
     open(LOGFILE, ">>$log_file");
-    print LOGFILE "$date|$file_name|$your_name|$email_address|$country\n";
+    print LOGFILE "$date|$ENV{'REMOTE_ADDR'}|$file_name|$your_name|$email_address|$country\n";
     close(LOGFILE);
     print $query->redirect("$build_dir/$file_name");
 }
@@ -155,4 +155,4 @@ exit;
 sub print_html ($) {
     my ($filename) = @_;
     print `cat $filename`;
-}
\ No newline at end of file
+}