#!/usr/bin/perl # generates a webpage with the color time shown on it # Steve Pomeroy ####################################### use ColorTime; print "Content-type:text/html\n\n"; $bgcolor=ColorTime::colorClock(time); if($ENV{'QUERY_STRING'} eq 'color'){ print "$bgcolor"; } else{ print< Time cycles...colors blend as time passes... EOS #print $times{getLowTime($mins)}." x ".$times{getHighTime($mins)}; #print "
\n".$ppercent; print<
EOS }