#!/usr/local/bin/perl5
#	Perl5 Script
#	-------------------------------------------------------------
#	file:		statck.pl
#	author:		Michael Goshorn
#	purpose: 	extracts WidowNet stats from monthly FortNet stat html files
#	usage:   	command line: perl statck.pl input_files(s) >> output.file
# 	Revision History:
#		01/29/97	Michael Goshorn	Original
#	-------------------------------------------------------------



##  -------- MAIN --------------

my($rawline, $discard1, $discard2, $rawtext, $rawpage, $page) = "";
my($hits, $date) = 0;

if ($#ARGV < 0)	{	
	print "\n usage:\n\t perl statck.pl inputfile > outputfile";
		
} else	{
		
    while( <> )	{
	# look for start of record line with WidowNet
	## Replace WidowNet below with directory name of you choice

	if ( ( /WidowNet/) || (/widownet/) )	{ 
		$rawline = $_;
		($hits, $date, $discard1, $rawtext) = split (/:/, $rawline);
		($discard1, $rawpage, $discard2) = split (/>/, $rawtext); 
		($page, $discard2) = split (/</, $rawpage);
		print "$hits \t $page \n";

	} # end if
    } # end while
} # end else