#--------------------------------------------------------------
# Essential Settings
#--------------------------------------------------------------
-my ($build_dir) = "/builds";
+my ($build_dir) = "/downloads";
my ($log_file) = "download_log";
my ($left) = "../left.inc" ;
my ($title) = "../title.inc";
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");
}
<p> </p>
- <form action="download.cgi" method="POST">
+ <form action="/cgi-bin/download.cgi" method="POST">
<table border="0" align="center">
<tr>
<td><font face="arial,sans-serif">Filename:</font></td>
# 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`;
+}