ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/download.cgi
(Generate patch)

Comparing web/cgi-bin/download.cgi (file contents):
Revision 1.5 by pjm2, Sat Mar 31 12:08:00 2001 UTC vs.
Revision 1.9.2.1 by tdb, Sun May 11 19:52:45 2003 UTC

# Line 19 | Line 19 | $| = 1;
19   #--------------------------------------------------------------
20   # Essential Settings
21   #--------------------------------------------------------------
22 < my ($build_dir) = "/builds";
22 > my ($build_dir) = "/downloads";
23   my ($log_file) = "download_log";
24 < my ($left) = "../left.inc" ;
25 < my ($title) = "../title.inc";
26 < my ($bottom) = "../bottom.inc";
24 > my ($left) = "../htdocs/left.inc" ;
25 > my ($title) = "../htdocs/title.inc";
26 > my ($bottom) = "../htdocs/bottom.inc";
27   #--------------------------------------------------------------
28  
29  
# 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 96 | Line 96 | END
96             <font face="arial,sans-serif">
97             <center><h3>i-scream builds</h3></center>
98             <font size="2">
99 <            At the current moment, all i-scream builds may be downloaded <b>free
100 <            of charge</b>.  If you wish to be alerted infrequently about important issues
101 <            regarding the i-scream montoring system, then we would recommend that
102 <            you provide your contact details below.  All fields are optional.
99 >            If you wish your details to be kept so we can contact you in the
100 >            future about i-scream, please enter them below. At the moment we
101 >            are not using this information, but we may collate a list of
102 >            details for when we make a new major release. All details are
103 >            optional - do not feel obliged to enter anything!
104             </font>
105             </font>
106            </td>
# Line 154 | Line 155 | exit;
155   # Print a file without escaping HTML: -
156   sub print_html ($) {
157      my ($filename) = @_;
158 <    print `cat $filename`;
159 < }
158 >    print `cat $filename 2>&1`;
159 > }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines