#!/usr/bin/perl use CGI; require "haiku.inc.conf"; open (FILE, "counter.dat"); $counter = ; close(FILE); $counter = $counter + 1; open(FILE, ">counter.dat"); print FILE "$counter"; close(FILE); if (CGI::cookie('hits')) { $ccount = CGI::cookie('hits') + 1; } else { $ccount = 1; } $cookie = CGI::cookie(-name => "hits", -value => "$ccount", -expires => "+7d"); $percent = $ccount / $counter; $percent = $percent * 100; print CGI::header(-cookie => $cookie); open (FILE, $five_file); @five = ; close(FILE); open (FILE, $seven_file); @seven = ; close(FILE); srand; @colors = ("Olive", "Lime", "BlueViolet", "Chartreuse", "red", "yellow", "green", "blue", "black", "white", "grey", "orange", "purple", "pink"); $lines5 = @five; $lines7 = @seven; $combos = $lines5 * $lines7 * $lines5; print ""; if (CGI::param('auto')) { $refresh = CGI::param('auto'); print "\n" } print "Random Haikus"; print "\n"; print "
\n"; print "
\n"; print "Auto Reload | Manual Reload\n"; print "
\n"; print "
$five[int rand(@five)]
\n"; print "
$seven[int rand(@seven)]
\n"; print "
$five[int rand(@five)]
\n"; print "There are $combos Haikus, of which you've seen $ccount.
\n"; print "This is "; printf "%.2f", $percent; print "% of the total views ($counter)
\n"; print "_aa_\@reack.com | anal0g.org\n"; print "
\n"; print "";