ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/download.cgi
(Generate patch)

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