#!/local/bin/perl
#
# usage.byurl -- summerize log by URL
#
# $Id: usage.byurl,v 2.3 1993/06/29 02:40:37 sanders Exp $
#

select(STDIN); $| = 1; select(STDOUT); $|=1;

sub fold {
    $_[0] =~ s,^(/decode_walk)[/\?].*,\1, && return 1;
    $_[0] =~ s,^(/decode-walk)[/\?].*,\1, && return 1;
    $_[0] =~ s,^(/bookmark)[/\?].*,\1,    && return 1;
    $_[0] =~ s,^(/finger)[/\?].*,\1,      && return 1;
    $_[0] =~ s,^(/date)[/\?].*,\1,        && return 1;
    $_[0] =~ s,^(/calendar)[/\?].*,\1,    && return 1;
    $_[0] =~ s,^(/bsdi-man)[/\?].*,\1,    && return 1;
    $_[0] =~ s,^(/faces)[/\?].*,\1,       && return 1;
    0;
}
while (<>) {
    next if /^-/;
    $b = '**empty**' unless ($b) = m/GET ([^ \t\r\n]*)/;
    &fold($b);
    $count{$b}++;
}

# -- summerize --
# foreach $i (keys(%count)) {
#     $count{$i} <= 10 && do {
#         $count{'**junk**'} += $count{$i};
#         $count{$i} = 0;
#     };
# }

foreach $i (keys(%count)) {
    printf("%6d %s\n", $count{$i}, $i) if $count{$i} > 0;
}