X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;f=cgi-bin%2Fdownload.cgi;h=51727ec1df5da4170750dcf2acf0a9d43e2f99c3;hb=02d3da75029cbd8bff5d4c7ae13763de3b73e796;hp=9ae0bbfab27f075390082fffe3393dc8e7f9690b;hpb=8ea93006c49527c3039efd9597e9e07573f16be6;p=www.i-scream.org.git diff --git a/cgi-bin/download.cgi b/cgi-bin/download.cgi index 9ae0bbf..51727ec 100755 --- a/cgi-bin/download.cgi +++ b/cgi-bin/download.cgi @@ -19,8 +19,11 @@ $| = 1; #-------------------------------------------------------------- # Essential Settings #-------------------------------------------------------------- -my ($build_dir) = "/builds"; +my ($build_dir) = "/downloads"; my ($log_file) = "download_log"; +my ($left) = "../htdocs/left.inc" ; +my ($title) = "../htdocs/title.inc"; +my ($bottom) = "../htdocs/bottom.inc"; #-------------------------------------------------------------- @@ -45,27 +48,60 @@ 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"); } else { print "Content-type: text/html\n\n"; - - print < + + + - - - + + + i-scream downloads + + + + + + + +
+ + + @@ -73,22 +109,22 @@ else {

 

- +
+END + + &print_html($left); + + print <<"END"; + +END + + &print_html($title); + + print <
-
+

i-scream builds

- At the current moment, all i-scream builds may be downloaded free - of charge. 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! +
- - + + - + - + - + @@ -102,7 +138,22 @@ else { EOT + &print_html($bottom); + + print <<"END"; + + + +
Filename:$file_nameFilename:$file_name
Your name:Your name:
Email address:Email address:
Country:Country:
+END + } +exit; -exit; \ No newline at end of file + +# Print a file without escaping HTML: - +sub print_html ($) { + my ($filename) = @_; + print `cat $filename 2>&1`; +}