--- web/cgi-bin/download.cgi 2001/03/31 12:04:13 1.4 +++ web/cgi-bin/download.cgi 2001/05/06 19:16:40 1.7 @@ -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"); } @@ -108,7 +108,7 @@ END

 

-
+ @@ -154,5 +154,5 @@ exit; # Print a file without escaping HTML: - sub print_html ($) { my ($filename) = @_; - print `cat $filename`; -} \ No newline at end of file + print `cat $filename 2>&1`; +}
Filename: