i-scream downloads

X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;f=cgi-bin%2Fdownload.cgi;h=fb3a69414230a9a1904c19d5f570e31fd041ba03;hb=374eadca4d94df9fd11726246adbd2a42236e131;hp=d555c7fdc613eaa01b421738c7c00366b4974d22;hpb=cd95dd29ffb6fd7e70b0ee80e093d973e18e780c;p=www.i-scream.org.git diff --git a/cgi-bin/download.cgi b/cgi-bin/download.cgi index d555c7f..fb3a694 100755 --- a/cgi-bin/download.cgi +++ b/cgi-bin/download.cgi @@ -1,11 +1,11 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl #-------------------------------------------------------------- # download.cgi # -# A Perl CGI script that requests a user's email address -# before they may download a build from the i-scream web site. -# It is not essential for them to enter their email address. +# A Perl CGI script that requests some details from the user +# before they download a build from the i-scream web site. +# To assist the paranoid, all fields are optional. # # Copyright Paul Mutton, 2001. #-------------------------------------------------------------- @@ -19,12 +19,15 @@ $| = 1; #-------------------------------------------------------------- # Essential Settings #-------------------------------------------------------------- -my $build_dir = "/builds"; -my $log_file = "download_log"; +my ($build_dir) = "/downloads"; +my ($log_file) = "download_log"; +my ($left) = "../left.inc" ; +my ($title) = "../title.inc"; +my ($bottom) = "../bottom.inc"; #-------------------------------------------------------------- -my $query = new CGI; +my ($query) = new CGI; my ($file_name) = ($query->param('file_name') =~ /^\s*(.*)\s*$/); my ($your_name) = ($query->param('your_name') =~ /^\s*(.*)\s*$/); @@ -45,21 +48,52 @@ 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 "Location: $build_dir/$file_name\n\n"; + print $query->redirect("$build_dir/$file_name"); } 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. +

Filename:	$file_name	Filename:	$file_name
Your name:	Your name:
Email address:	Email address:
Country:	Country:

i-scream builds