ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/web/cgi-bin/download.cgi

Comparing web/cgi-bin/download.cgi (file contents):
Revision 1.4 by pjm2, Sat Mar 31 12:04:13 2001 UTC vs.
Revision 1.8 by pjm2, Fri May 25 17:38:36 2001 UTC

#	Line 19 | Line 19 | $| = 1;
19		#--------------------------------------------------------------
20		# Essential Settings
21		#--------------------------------------------------------------
22	<	my ($build_dir) = "/builds";
22	>	my ($build_dir) = "/downloads";
23		my ($log_file) = "download_log";
24		my ($left) = "../left.inc" ;
25		my ($title) = "../title.inc";
#	Line 48 | Line 48 | if (!defined($file_name) || $file_name eq "") {
48
49		if (defined($submit) && $submit eq "Download") {
50		open(LOGFILE, ">>$log_file");
51	<	print LOGFILE "$date|$file_name|$your_name|$email_address|$country\n";
51	>	print LOGFILE "$date|$ENV{'REMOTE_ADDR'}|$file_name|$your_name|$email_address|$country\n";
52		close(LOGFILE);
53		print $query->redirect("$build_dir/$file_name");
54		}
#	Line 108 | Line 108 | END
108
109		<p>&nbsp;</p>
110
111	<	<form action="download.cgi" method="POST">
111	>	<form action="/cgi-bin/download.cgi" method="POST">
112		<table border="0" align="center">
113		<tr>
114		<td><font face="arial,sans-serif">Filename:</font></td>
#	Line 154 | Line 154 | exit;
154		# Print a file without escaping HTML: -
155		sub print_html ($) {
156		my ($filename) = @_;
157	<	print `cat $filename`;
158	<	}
157	>	print `cat $filename 2>&1`;
158	>	}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines