X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;f=cgi-bin%2Fdownload.cgi;h=3ad3ae8b7bed85c01adddc203dc886788a900d85;hb=1af4a32d227fe2d6fee3e572e1d0121addfba93d;hp=9ae0bbfab27f075390082fffe3393dc8e7f9690b;hpb=8ea93006c49527c3039efd9597e9e07573f16be6;p=www.i-scream.org.git diff --git a/cgi-bin/download.cgi b/cgi-bin/download.cgi index 9ae0bbf..3ad3ae8 100755 --- a/cgi-bin/download.cgi +++ b/cgi-bin/download.cgi @@ -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,11 +54,42 @@ 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 <
@@ -102,7 +136,26 @@ else { EOT + &print_html($bottom); + + print <<"END"; + +
+ + + + +END + } +exit; + -exit; \ No newline at end of file +# Print a file without escaping HTML: - +sub print_html ($) { + my ($filename) = @_; + print `cat $filename`; +} \ No newline at end of file