e8z

#!/usr/bin/perl -w $formdata = $ENV{'QUERY_STRING'}; @pairs = split(/&/,$formdata); @pairs0 = split(/=/,$pairs[0]); @pairs1 = split(/=/,$pairs[1]); $lastLines = ""; print "content-type:text/html\n\n"; if ( $pairs0[1] eq "load" ) { # read data from data file $file = "/usr/local/apache/htdocs/wirefire/data/data"; open(INFO, $file); @lines = ; $lineNum = 0; foreach $line (@lines) { $lineNum = $lineNum + 1; # limit output to x lines if ( $lineNum > $#lines - 5 ) { $lastLines = "$lastLines$line
"; } } close(INFO); print 'e8z'; print ''; print '

'; print ''; print $lastLines; print ''; print '

'; print ''; print ''; }