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.3 by pjm2, Sat Mar 31 12:00:29 2001 UTC vs.
Revision 1.10 by tdb, Thu May 15 20:48:01 2003 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";
26 < my ($bottom) = "../bottom.inc";
24 > my ($left) = "../htdocs/left.inc" ;
25 > my ($title) = "../htdocs/title.inc";
26 > my ($bottom) = "../htdocs/bottom.inc";
27   #--------------------------------------------------------------
28  
29  
# 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 90 | Line 90 | END
90      &print_html($title);
91  
92      print <<EOT;
93 <        <table align="center" width="600">
93 >        <table align="center" width="500">
94           <tr>
95            <td>
96 <           <center><img src="/i-scream.gif" width="502" height="37" border="0"></center>
96 >           <font face="arial,sans-serif">
97             <center><h3>i-scream builds</h3></center>
98             <font size="2">
99 <            At the current moment, all i-scream builds may be downloaded <b>free
100 <            of charge</b>.  If you wish to be alerted infrequently about important issues
101 <            regarding the i-scream montoring system, then we would recommend that
102 <            you provide your contact details below.  All fields are optional.
99 >            If you wish your details to be kept so we can contact you in the
100 >            future about i-scream, please enter them below. At the moment we
101 >            are not using this information, but we may collate a list of
102 >            details for when we make a new major release. All details are
103 >            optional - do not feel obliged to enter anything!
104             </font>
105 +           </font>
106            </td>
107           </tr>
108          </table>
109          
110          <p>&nbsp;</p>
111          
112 <        <form action="download.cgi" method="POST">
112 >        <form action="/cgi-bin/download.cgi" method="POST">
113           <table border="0" align="center">
114            <tr>
115 <           <td>Filename:</td>
116 <           <td><b>$file_name</b><input type="hidden" name="file_name" value="$file_name"></td>
115 >           <td><font face="arial,sans-serif">Filename:</font></td>
116 >           <td><font face="arial,sans-serif"><b>$file_name</b></font><input type="hidden" name="file_name" value="$file_name"></td>
117            </tr>
118            <tr>
119 <           <td>Your name:</td>
119 >           <td><font face="arial,sans-serif">Your name:</font></td>
120             <td><input type="text" name="your_name" value=""></td>
121            </tr>
122            <tr>
123 <           <td>Email address:</td>
123 >           <td><font face="arial,sans-serif">Email address:</font></td>
124             <td><input type="text" name="email_address" value=""></td>
125            </tr>
126            <tr>
127 <           <td>Country:</td>
127 >           <td><font face="arial,sans-serif">Country:</font></td>
128             <td><input type="text" name="country" value=""></td>
129            </tr>
130            <tr>
# Line 143 | Line 145 | EOT
145            </td>
146           </tr>
147          </table>
146
147        </body>
148
149        </html>
148   END
149  
150   }
# Line 157 | Line 155 | exit;
155   # Print a file without escaping HTML: -
156   sub print_html ($) {
157      my ($filename) = @_;
158 <    print `cat $filename`;
159 < }
158 >    print `cat $filename 2>&1`;
159 > }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines