--- web/cgi-bin/download.cgi 2001/03/31 12:00:29 1.3 +++ web/cgi-bin/download.cgi 2001/05/05 18:03:38 1.6 @@ -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"); } @@ -90,10 +90,10 @@ END &print_html($title); print < +
-
+

i-scream builds

At the current moment, all i-scream builds may be downloaded free @@ -101,28 +101,29 @@ END regarding the i-scream montoring system, then we would recommend that you provide your contact details below. All fields are optional. +

 

-
+ - - + + - + - + - + @@ -143,10 +144,6 @@ EOT
Filename:$file_nameFilename:$file_name
Your name:Your name:
Email address:Email address:
Country:Country:
- - - - END } @@ -158,4 +155,4 @@ exit; sub print_html ($) { my ($filename) = @_; print `cat $filename`; -} \ No newline at end of file +}