From 51cf12e9a7f2cf419e01be468deb80302c8de485 Mon Sep 17 00:00:00 2001 From: Paul Mutton Date: Sat, 5 May 2001 18:03:38 +0000 Subject: [PATCH] Logs the remote address of the client --- cgi-bin/download.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 +} -- 2.44.0