From 745e785e7c5eb6da4524806ddb41fb21a20abd1e Mon Sep 17 00:00:00 2001 From: Paul Mutton 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 ''; + +open(FILE, ") { + @row = split(/\|/, $line); + print < + + + + + + + +EOT +} + +print "

$row[0]

$row[1]

$row[2]

$row[3]

$row[4]

$row[5]

"; \ No newline at end of file -- 2.44.0