From: Paul Mutton Date: Fri, 25 May 2001 17:58:28 +0000 (+0000) Subject: A very simple (oh i love perl) webpage for viewing download statistics X-Git-Tag: PRE_WWW_REDESIGN~179 X-Git-Url: http://git.i-scream.org/?a=commitdiff_plain;h=745e785e7c5eb6da4524806ddb41fb21a20abd1e;p=www.i-scream.org.git A very simple (oh i love perl) webpage for viewing download statistics from the i-scream download_log --- 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