#!/usr/athena/bin/perl

open(HP, "/afs/sipb.mit.edu/project/www/data/home.DATA");
while(<HP>){
    ($user, $page, $name) = split("",$_);
    next if $page=~/http/;
    $path = "/afs/sipb/project/www/root".$page;
    $wc = `wc $path`;
    ($lines, $words, $bytes, $p) = split(" ", $wc);
    $btot+=$bytes;
    $ct++;
    $avg = int($btot/$ct);
    print("$p: $bytes / (avg: $avg)\n");
}
