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");
}
sub print_html ($) {
my ($filename) = @_;
print `cat $filename`;
-}
\ No newline at end of file
+}