cgi-bin/logviewer.cgi

   1 #!/usr/bin/perl -w
   2
   3
   4 #------------------------------------------------------------
   5 # logviewer.cgi
   6 #
   7 # i-scream download log viewer
   8 # Copyright Paul Mutton, 2001.
   9 #------------------------------------------------------------
  10
  11 print "Content-type: text/html\n\n";
  12
  13 print '<html><body><table border="1">';
  14
  15 open(FILE, "<download_log");
  16 while($line = <FILE>) {
  17     @row = split(/\|/, $line);
  18     print <<EOT;
  19  <tr>
  20   <td>$row[0]</td>
  21   <td>$row[1]</td>
  22   <td>$row[2]</td>
  23   <td>$row[3]</td>
  24   <td>$row[4]</td>
  25   <td>$row[5]</td>
  26  </tr>
  27 EOT
  28 }
  29
  30 print "</table></body></html>";