#!/usr/bin/perl
# @(#) pages3.pl v1.2 (7/20/96)
# Written by Sarang Gupta (sarang@sarangworld.com)
$u=$ENV{'USER'};open(A,"grep $u $ARGV[0]|");
while(<A>){split;if($_[9]!~/-/){$_[6]=~s/~|%7E//g;$t+=$_[9];$p{$_[6]}++}};
@e=("/$u","/$u/","/$u/home.html","/$u/index.html");
print "***TOTAL BYTES TRANSFERRED: $t\n";
for (@e) {$p{"***HOME PAGE HITS"}+=$p{$_};delete($p{$_})}
for (sort {$p{$b}<=>$p{$a}} keys %p) {print "$_: $p{$_}\n"}


# Please visit http://www.sarangworld.com/perlscript.php3 for a full list
# of my Perl scripts, or http://www.sarangworld.com/ to see my website