#!/usr/local/bin/perl
require '/u/staff/paul/cgi_lib.pl';
print &PrintHeader();
if ($ENV{'REQUEST_METHOD'} ne "POST") { 
   print "<pre>";
   print "This script can only be used with the POST METHOD\n";
   print "If you don't understand this, see this ";
   print "<A HREF=\"http://www.ncsa.uiuc.edu/SDG/Software/Mosaic/Docs/fill-out-forms/overview.html\">forms overview</A>.\n";
   print "</pre>";
   exit(1);
};

if ($ENV{'CONTENT_TYPE'} ne "application/x-www-form-urlencoded") {
        print "<pre>";
        print "This script can only be used to decode form results. \n";
	print "</pre>";
        exit(1); 
};
do ReadParse();
print "<TITLE> www.csci.csusb.edu Server Stats </TITLE>";
print "<pre>";
print "<b>The search string <i>", $in{'search'},"</i> produced the following output:</b>\n\n";
open (LOG,"</usr/local/etc/httpd/logs/access_log");
$i=0;
while (<LOG>){
    if (/$in{'search'}/){
       print if ($in{'all_lines'} eq "on");
       $i++;
    };
 };

  print "The number of lines that <i>",$in{'search'}, "</i> occurs is: <b>",$i,"</b>"  if($in{'summary'} eq "on" );
    
print "</pre>";