#!/usr/local/bin/perl print "Content-type: text/html\n\n"; # use diagnostics; my($fortune, $nextline, $readin, $which, $fortunecount, $fortuneline, $tester); my @fortuneoffset; #fortune program. &chugCGI(*input); $which = $input{"direct"}; $fortune = "blendisms"; $readin=""; open (DATAFILE,$fortune.".rnd") || die "couldn't open $fortune.rnd file!"; if (defined DATAFILE){ while(defined($nextline=)) { #just in case a packed line $readin .= $nextline; #holds onto a \n.... } @fortuneoffset = unpack "L*",$readin; #file is a pack'd series of offsets close DATFILE; } $fortunecount = @fortuneoffset; #print "$fortunecount\n"; open(FILE,$fortune) || die "couldn't open $fortune.rnd file!"; srand; if($which eq ""){ $which = int(rand $fortunecount); # between 0 and number of fortunes - 1 } else { $which--; } $displaywhich = $which+1; seek (FILE, $fortuneoffset[$which], 0) ; my $fullfortune = ""; $fortuneline = ; #print "START:$fortuneline\n"; $tester = substr ($fortuneline, 0, 2); while($tester ne "%\n" && defined($fortuneline)) { # read til EOF or next fortune $fullfortune .= $fortuneline; $fortuneline = ; if(defined($fortuneline)){ $tester = substr ($fortuneline, 0, 2); } } close FILE; $prev = $displaywhich - 1; $next = $displaywhich + 1; print<<__EOQ__;

$fullfortune

?	#	A	<	^	>
Rand	/$fortunecount	About	Prev	Home	Next
b l e n d - o - m a t i c

__EOQ__ sub chugCGI { local (*in) = @_ if @_; local ($i, $key, $val); # Read in text if ($ENV{'REQUEST_METHOD'} eq "GET") { $in = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); } @in = split(/&/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Split into key and value. ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. # Convert %XX from hex numbers to alphanumeric $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # Associate key and value $in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator $in{$key} .= $val; } return length($in); }