#!/usr/bin/perl
#
# usage.byhost -- summerize log into host entries
#
# $Id: usage.byhost,v 2.3 1993/06/29 02:40:35 sanders Exp $
#
$log = $ARGV[0] || "/usr/local/www/log";
$sum = "usage.host";
if ( -f $sum ) {
    rename ($sum, "$sum-") || die "rename $sum $sum-: $!";
}
if ( -f "$sum-" ) {
    open(SUM, "< $sum-") || die "$sum-: $!";
    while(<SUM>) {
        chop;
        ($a, $b) = split(" ", $_, 2);
        $count{$b} += $a;
    }
    close(SUM);
}
open(SUM, "> /tmp/$sum") || die "$sum: $!";

open(LOG, $log) || die "$log: $!";
while(<LOG>) {
    next if /^-/;
    chop;
    s/ .*//;
    $count{$_}++;
}
close(LOG);

foreach $i (keys(%count)) {
    printf(SUM "%6d %s\n", $count{$i}, $i);
}
close(SUM);
system("sort -rn /tmp/$sum > $sum ; rm -f /tmp/$sum");