| # | Line 48 | Line 48 | if (!defined($file_name) || $file_name eq "") { | |
|---|---|---|
| 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 | } | |
| # | Line 155 | Line 155 | exit; | |
| 155 | sub print_html ($) { | |
| 156 | my ($filename) = @_; | |
| 157 | print `cat $filename`; | |
| 158 | < | } |
| 158 | > | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |