#!/usr/bin/perl # author: Keith Simmons require 'portal.lib'; &parseIn(); print "Content-type: text/html\n\n"; print "\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 =\n; 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
[back]"; print "\n\n";