i-scream downloads

X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;f=cgi-bin%2Fdownload.cgi;fp=cgi-bin%2Fdownload.cgi;h=0000000000000000000000000000000000000000;hb=85cbd3fe85b623bfa12c14aba57f5e60adf64b42;hp=51727ec1df5da4170750dcf2acf0a9d43e2f99c3;hpb=044ce3d999326b8748cd8f2821ed593298bb07ba;p=www.i-scream.org.git diff --git a/cgi-bin/download.cgi b/cgi-bin/download.cgi deleted file mode 100755 index 51727ec..0000000 --- a/cgi-bin/download.cgi +++ /dev/null @@ -1,159 +0,0 @@ -#!/usr/bin/perl - -#-------------------------------------------------------------- -# download.cgi -# -# 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. -#-------------------------------------------------------------- - -use strict; -use CGI; - -$| = 1; - - -#-------------------------------------------------------------- -# Essential Settings -#-------------------------------------------------------------- -my ($build_dir) = "/downloads"; -my ($log_file) = "download_log"; -my ($left) = "../htdocs/left.inc" ; -my ($title) = "../htdocs/title.inc"; -my ($bottom) = "../htdocs/bottom.inc"; -#-------------------------------------------------------------- - - -my ($query) = new CGI; - -my ($file_name) = ($query->param('file_name') =~ /^\s*(.*)\s*$/); -my ($your_name) = ($query->param('your_name') =~ /^\s*(.*)\s*$/); -my ($email_address) = ($query->param('email_address') =~ /^\s*(.*)\s*$/); -my ($country) = ($query->param('country') =~ /^\s*(.*)\s*$/); -my ($submit) = ($query->param('submit') =~ /^\s*(.*)\s*$/); -my ($date) = scalar localtime time; - -$your_name =~ s/\|//g; -$email_address =~ s/\|//g; -$country =~ s/\|//g; - -if (!defined($file_name) || $file_name eq "") { - print "Content-type: text/html\n\n"; - print "You must specify a filename for use with the i-scream downloader."; - exit; -} - -if (defined($submit) && $submit eq "Download") { - open(LOGFILE, ">>$log_file"); - 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 <<"END"; - - - - - - - - i-scream downloads - - - - - - - - - - - - - -

-END - - &print_html($left); - - print <<"END"; -	-END - - &print_html($title); - - print < -
- - i-scream builds - - 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! - - -

- -

- - - - - -EOT - - &print_html($bottom); - - print <<"END"; - - - - -END - -} - -exit; - - -# Print a file without escaping HTML: - -sub print_html ($) { - my ($filename) = @_; - print `cat $filename 2>&1`; -}

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

i-scream builds