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.7 by tdb, Sun May 6 19:16:40 2001 UTC

# 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
# Line 101 | Line 101 | END
101              regarding the i-scream montoring system, then we would recommend that
102              you provide your contact details below.  All fields are optional.
103             </font>
104 +           </font>
105            </td>
106           </tr>
107          </table>
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>Filename:</td>
115 <           <td><b>$file_name</b><input type="hidden" name="file_name" value="$file_name"></td>
114 >           <td><font face="arial,sans-serif">Filename:</font></td>
115 >           <td><font face="arial,sans-serif"><b>$file_name</b></font><input type="hidden" name="file_name" value="$file_name"></td>
116            </tr>
117            <tr>
118 <           <td>Your name:</td>
118 >           <td><font face="arial,sans-serif">Your name:</font></td>
119             <td><input type="text" name="your_name" value=""></td>
120            </tr>
121            <tr>
122 <           <td>Email address:</td>
122 >           <td><font face="arial,sans-serif">Email address:</font></td>
123             <td><input type="text" name="email_address" value=""></td>
124            </tr>
125            <tr>
126 <           <td>Country:</td>
126 >           <td><font face="arial,sans-serif">Country:</font></td>
127             <td><input type="text" name="country" value=""></td>
128            </tr>
129            <tr>
# Line 143 | Line 144 | EOT
144            </td>
145           </tr>
146          </table>
146 –
147 –        </body>
148 –
149 –        </html>
147   END
148  
149   }
# Line 157 | 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