#!/usr/bin/perl # # surveyt2.cgi-- Shows surveyd1.dat in table format # Alternates colors of lines of text # modified -- Mar 23, 1999 by J. White open(LAST,"surveyd2.dat"); $count = -1; $kolornum = 0; while () { ++$count; if ($kolornum == 0) {$kolornum = 1; $kolor = "000000";} else {$kolornum = 0; $kolor = "FF0000";} $alldata .= ""; $alldata .= $_.""; $allcount .= ""; $allcount .= $count.""; } close(LAST); # Print an HTML response to the user print <

SURVEY DEMO #2 DATA

$allcount

$alldata

EOF