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 |
|
} |
108 |
|
|
109 |
|
<p> </p> |
110 |
|
|
111 |
< |
<form action="download.cgi" method="POST"> |
111 |
> |
<form action="/cgi-bin/download.cgi" method="POST"> |
112 |
|
<table border="0" align="center"> |
113 |
|
<tr> |
114 |
|
<td><font face="arial,sans-serif">Filename:</font></td> |
155 |
|
sub print_html ($) { |
156 |
|
my ($filename) = @_; |
157 |
|
print `cat $filename`; |
158 |
< |
} |
158 |
> |
} |