From 745e785e7c5eb6da4524806ddb41fb21a20abd1e Mon Sep 17 00:00:00 2001
From: Paul Mutton <pjm2@i-scream.org>
Date: Fri, 25 May 2001 17:58:28 +0000
Subject: [PATCH] A very simple (oh i love perl) webpage for viewing download
statistics from the i-scream download_log
---
cgi-bin/logviewer.cgi | 30 ++++++++++++++++++++++++++++++
1 file changed, 30 insertions(+)
create mode 100755 cgi-bin/logviewer.cgi
diff --git a/cgi-bin/logviewer.cgi b/cgi-bin/logviewer.cgi
new file mode 100755
index 0000000..df05c69
--- /dev/null
+++ b/cgi-bin/logviewer.cgi
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+
+
+#------------------------------------------------------------
+# logviewer.cgi
+#
+# i-scream download log viewer
+# Copyright Paul Mutton, 2001.
+#------------------------------------------------------------
+
+print "Content-type: text/html\n\n";
+
+print '<html><body><table border="1">';
+
+open(FILE, "<download_log");
+while($line = <FILE>) {
+ @row = split(/\|/, $line);
+ print <<EOT;
+ <tr>
+ <td>$row[0]</td>
+ <td>$row[1]</td>
+ <td>$row[2]</td>
+ <td>$row[3]</td>
+ <td>$row[4]</td>
+ <td>$row[5]</td>
+ </tr>
+EOT
+}
+
+print "</table></body></html>";
\ No newline at end of file
--
2.44.0