#!/afs/athena/contrib/perl5/perl


while(<>){
    split;
    $uri = $_[6];
    next if ($uri=~/\.gif$/i);
    next if ($uri=~/\.jpg$/i);
    next if ($uri=~/\.jpeg$/i);
    next if ($uri=~/\.xbm$/i);
    next if ($uri=~/^\/cgi\/counter/);
    $ref = $_[10];

    if($ref ne "-"){
	$noref++;
    }
    &report if($ct++%1000 == 0);
}

sub report {
    print "--------------------------------------\n";
    print "--------------------- $ct -------------\n";
    print "--------------------------------------\n";
    print "Use referers: ", ($ct-$noref)/$ct, "\n";
}