--- web/cgi-bin/download.cgi 2001/03/31 11:42:06 1.2 +++ web/cgi-bin/download.cgi 2001/03/31 12:08:00 1.5 @@ -21,6 +21,9 @@ $| = 1; #-------------------------------------------------------------- my ($build_dir) = "/builds"; my ($log_file) = "download_log"; +my ($left) = "../left.inc" ; +my ($title) = "../title.inc"; +my ($bottom) = "../bottom.inc"; #-------------------------------------------------------------- @@ -51,15 +54,46 @@ if (defined($submit) && $submit eq "Download") { } else { print "Content-type: text/html\n\n"; - - print < + + + - - - + + + i-scream downloads + + + + + + + +
+ +
+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 @@ -67,28 +101,29 @@ else { regarding the i-scream montoring system, then we would recommend that you provide your contact details below. All fields are optional. +

 

-
+ - - + + - + - + - + @@ -102,7 +137,22 @@ else { EOT -} + &print_html($bottom); + print <<"END"; -exit; \ No newline at end of file + + +
Filename:$file_nameFilename:$file_name
Your name:Your name:
Email address:Email address:
Country:Country:
+END + +} + +exit; + + +# Print a file without escaping HTML: - +sub print_html ($) { + my ($filename) = @_; + print `cat $filename`; +} \ No newline at end of file