#!/usr/bin/perl # author: Keith Simmons require 'portal.lib'; &parseIn(); print "Content-type: text/html\n\n"; print "\n\nkeith simmons - revelation to pi"; print "\n"; print "\n\n\n
";

@pi = ("3","1","4","1","5","9","2","6","5","3","5","8","9","7","9","3","2","3","8","4","6","2","6","4","3","3","8","3","2","7","9","5","0","2","8","8","4","1","9","7","1","6","9","3","9","9","3","7","5","1","0","5","8","2","0","9","7","4","9","4","4","5","9","2","3","0","7","8","1","6","4","0","6","2","8","6","2","0","8","9","9","8","6","2","8","0","3","4","8","2","5","3","4","2","1","1","7","0","6","7","9","8","2","1","4","8","0","8","6","5","1","3","2","8","2","3","0","6","6","4","7","0","9","3","8","4","4","6","0","9","5","5","0","5","8","2","2","3","1","7","2","5","3","5","9","4","0","8","1","2","8","4","8","1","1","1","7","4","5","0","2","8","4","1","0","2","7","0","1","9","3","8","5","2","1","1","0","5","5","5","9","6","4","4","6","2","2","9","4","8","9","5","4","9","3","0","3","8","1","9","6","4","4","2","8","8","1","0","9","7","5","6","6","5","9","3","3","4","4","6","1","2","8","4","7","5","6","4","8","2","3","3","7","8","6","7","8","3","1","6","5","2","7","1","2","0","1","9","0","9","1","4","5","6","4","8","5","6","6","9","2","3","4","6","0","3","4","8","6","1","0","4","5","4","3","2","6","6","4","8","2","1","3","3","9","3","6","0","7","2","6","0","2","4","9","1","4","1","2","7","3","7","2","4","5","8","7","0","0","6","6","0","6","3","1","5","5","8","8","1","7","4","8","8","1","5","2","0","9","2","0","9","6","2","8","2","9","2","5","4","0","9","1","7","1","5","3","6","4","3","6","7","8","9","2","5","9","0","3","6","0","0","1","1","3","3","0","5","3","0","5","4","8","8","2","0","4","6","6","5","2","1","3","8","4","1","4","6","9","5","1","9","4","1","5","1","1","6","0","9","4","3","3","0","5","7","2","7","0","3","6","5","7","5","9","5","9","1","9","5","3","0","9","2","1","8","6","1","1","7","3","8","1","9","3","2","6","1","1","7","9","3","1","0","5","1","1","8","5","4","8","0","7","4","4","6","2","3","7","9","9","6","2","7","4","9","5","6","7","3","5","1","8","8","5","7","5","2","7","2","4","8","9","1","2","2","7","9","3","8","1","8","3","0","1","1","9","4","9","1","2","9","8","3","3","6","7","3","3","6","2","4","4","0","6","5","6","6","4","3","0","8","6","0","2","1","3","9","4","9","4","6","3","9","5","2","2","4","7","3","7","1","9","0","7","0","2","1","7","9","8","6","0","9","4","3","7","0","2","7","7","0","5","3","9","2","1","7","1","7","6","2","9","3","1","7","6","7","5","2","3","8","4","6","7","4","8","1","8","4","6","7","6","6","9","4","0","5","1","3","2","0","0","0","5","6","8","1","2","7","1","4","5","2","6","3","5","6","0","8","2","7","7","8","5","7","7","1","3","4","2","7","5","7","7","8","9","6","0","9","1","7","3","6","3","7","1","7","8","7","2","1","4","6","8","4","4","0","9","0","1","2","2","4","9","5","3","4","3","0","1","4","6","5","4","9","5","8","5","3","7","1","0","5","0","7","9","2","2","7","9","6","8","9","2","5","8","9","2","3","5","4","2","0","1","9","9","5","6","1","1","2","1","2","9","0","2","1","9","6","0","8","6","4","0","3","4","4","1","8","1","5","9","8","1","3","6","2","9","7","7","4","7","7","1","3","0","9","9","6","0","5","1","8","7","0","7","2","1","1","3","4","9","9","9","9","9","9","8","3","7","2","9","7","8","0","4","9","9","5","1","0","5","9","7","3","1","7","3","2","8","1","6","0","9","6","3","1","8","5","9","5","0","2","4","4","5","9","4","5","5","3","4","6","9","0","8","3","0","2","6","4","2","5","2","2","3","0","8","2","5","3","3","4","4","6","8","5","0","3","5","2","6","1","9","3","1","1","8","8","1","7","1","0","1","0","0","0","3","1","3","7","8","3","8","7","5","2","8","8","6","5","8","7","5","3","3","2","0","8","3","8","1","4","2","0","6","1","7","1","7","7","6","6","9","1","4","7","3","0","3","5","9","8","2","5","3","4","9","0","4","2","8","7","5","5","4","6","8","7","3","1","1","5","9","5","6","2","8","6","3","8","8","2","3","5","3","7","8","7","5","9","3","7","5","1","9","5","7","7","8","1","8","5","7","7","8","0","5","3","2","1","7","1","2","2","6","8","0","6","6","1","3","0","0","1","9","2","7","8","7","6","6","1","1","1","9","5","9","0","9","2","1","6","4","2","0","1","9","8","9","3","8","0","9","5","2","5","7","2","0","1","0","6","5","4","8","5","8","6","3","2","7","8","8","6","5","9","3","6","1","5","3","3","8","1","8","2","7","9","6","8","2","3","0","3","0","1","9","5","2","0","3","5","3","0","1","8","5","2","9","6","8","9","9","5","7","7","3","6","2","2","5","9","9","4","1","3","8","9","1","2","4","9","7","2","1","7","7","5","2","8","3","4","7","9","1","3","1","5","1","5","5","7","4","8","5","7","2","4","2","4","5","4","1","5","0","6","9","5","9","5","0","8","2","9","5","3","3","1","1","6","8","6","1","7","2","7","8","5","5","8","8","9","0","7","5","0","9","8","3","8","1","7","5","4","6","3","7","4","6","4","9","3","9","3","1","9","2","5","5","0","6","0","4","0","0","9","2","7","7","0","1","6","7","1","1","3","9","0","0","9","8","4","8","8","2","4","0","1","2","8","5","8","3","6","1","6","0","3","5","6","3","7","0","7","6","6","0","1","0","4","7","1","0","1","8","1","9","4","2","9","5","5","5","9","6","1","9","8","9","4","6","7","6","7","8","3","7","4","4","9","4","4","8","2","5","5","3","7","9","7","7","4","7","2","6","8","4","7","1","0","4","0","4","7","5","3","4","6","4"); #first 1280 digits of www.joyofpi.com/pi.htm
#check all data and fix if foobared...

if ( $formdata{'start'} ) {
	$start = $formdata{'start'};
	
	if ( $start > 1000 ) {
		$start = 1000;
	} elsif ( $start < 0 ) {
		$start = 0;
	}

}

if ( $formdata{'offset'} ) {
	$offset = $formdata{'offset'};

	if ( $offset > 500 ) {
		$offset = 500;
	} elsif ( $offset < 0 ) {
		$offset = 0;
	}
	
	for( $i = 0; $i < $offset; $i++ ) {
		shift @pi;
	}
}

if ( $formdata{'lines'} ) {
	$lines = $formdata{'lines'};
	
	if ( $lines > 100 ) {
		$lines = 100;
	} elsif ( $lines < 0 ) {
		$lines = 0;
	}
}

if ( $formdata{'wpl'} ) {
	$wpl = $formdata{'wpl'};
	
	if ( $wpl > 7 ) {
		$wpl = 7;
	} elsif ( $wpl < 0 ) {
		$wpl = 0;
	}
}

open (INSTRM, "revjohn.txt");
@filecont = ;
close (INSTRM);

foreach $line (@filecont) { # parse form data into wordlist
	while ($line =~ /\s$/) {
		chop($line); # cut white space from end
	} 
	$line =~ s/^\d?\d:\d?\d //g; # cut reference numbers from line starts
	$line =~ s/ \d?\d:\d?\d / /g; # cut reference numbers from line middle 
	$line =~ s/ +/ /g; # condense multiple spaces
	if ( $line ) {
		@fileparsed = (@fileparsed, split (/\s+/,$line)); # split that shit
	}
}

for ( $i = 0; $i < $start; $i++ ) { # apply offset
	shift @fileparsed;
}

for ( $i = 0; $i < ($lines * $wpl); $i++ ) {
	$count++;

	for ( $j = 0; $j < @pi[$i]; $j++) { # shift file for value of pi digit.
		shift @fileparsed;
	}
	
	print @fileparsed[0];
	shift @fileparsed; #move ahead after print

	if ($count eq $wpl) {
		print "\n";
		$count=0;
	} else {
		print " ";
	} 

}

print "\n
\n

[back]"; print "\n\n";