VRMLgraph is still on i-scream.org.uk until Paul moves it :-)

[www.i-scream.org.git] / cgi-bin / download.cgi

diff --git a/cgi-bin/download.cgi b/cgi-bin/download.cgi
index b2f2a71342698617f98311bc99334f673a82bdf7..51727ec1df5da4170750dcf2acf0a9d43e2f99c3 100755 (executable)
--- a/cgi-bin/download.cgi
+++ b/cgi-bin/download.cgi
@@ -19,11 +19,11 @@ $| = 1;
 #--------------------------------------------------------------
 # Essential Settings
 #--------------------------------------------------------------
-my ($build_dir) = "/builds";
+my ($build_dir) = "/downloads";
 my ($log_file) = "download_log";
-my ($left) = "../left.inc" ;
-my ($title) = "../title.inc";
-my ($bottom) = "../bottom.inc";
+my ($left) = "../htdocs/left.inc" ;
+my ($title) = "../htdocs/title.inc";
+my ($bottom) = "../htdocs/bottom.inc";
 #--------------------------------------------------------------
 
 
@@ -48,7 +48,7 @@ if (!defined($file_name) || $file_name eq "") {
 
 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");
 }
@@ -96,10 +96,11 @@ END
            <font face="arial,sans-serif">
            <center><h3>i-scream builds</h3></center>
            <font size="2">
-            At the current moment, all i-scream builds may be downloaded <b>free
-            of charge</b>.  If you wish to be alerted infrequently about important issues
-            regarding the i-scream montoring system, then we would recommend that
-            you provide your contact details below.  All fields are optional.
+            If you wish your details to be kept so we can contact you in the
+            future about i-scream, please enter them below. At the moment we
+            are not using this information, but we may collate a list of
+            details for when we make a new major release. All details are
+            optional - do not feel obliged to enter anything!
            </font>
            </font>
           </td>
@@ -154,5 +155,5 @@ exit;
 # 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`;
+}