X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;f=cgi-bin%2Flogviewer.cgi;fp=cgi-bin%2Flogviewer.cgi;h=df05c6948e77f983f6115a60d5b982541c6949bc;hb=745e785e7c5eb6da4524806ddb41fb21a20abd1e;hp=0000000000000000000000000000000000000000;hpb=885a06c3c6ce976e035e79d66cec3eb23a5d4e9f;p=www.i-scream.org.git 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