48 |
|
|
49 |
|
if (defined($submit) && $submit eq "Download") { |
50 |
|
open(LOGFILE, ">>$log_file"); |
51 |
< |
print LOGFILE "$date|$file_name|$your_name|$email_address|$country\n"; |
51 |
> |
print LOGFILE "$date|$ENV{'REMOTE_ADDR'}|$file_name|$your_name|$email_address|$country\n"; |
52 |
|
close(LOGFILE); |
53 |
|
print $query->redirect("$build_dir/$file_name"); |
54 |
|
} |
154 |
|
# Print a file without escaping HTML: - |
155 |
|
sub print_html ($) { |
156 |
|
my ($filename) = @_; |
157 |
< |
print `cat $filename`; |
158 |
< |
} |
157 |
> |
print `cat $filename 2>&1`; |
158 |
> |
} |