<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/athena/bin/perl

require '/afs/sipb/user/mkgray/bin/bargraph.pl';
require 'getopts.pl';

sub usage {
    print("bonehead!\n");
}

&amp;usage if ! &amp;Getopts('d');

if($opt_d){
    while(&lt;&gt;){
	($g, $n, $host) = split;
	@hfields = split(/\./, $host);
	$dom = $hfields[$#hfields-1].'.'.$hfields[$#hfields];
	$domain{$dom}+=$n unless $hfields[$#hfields] &gt; 0;
	$total += $n;
    }
    print("MIT: $domain{'mit.edu'}, total: $total\n");
    print &amp;bargraph'draw(values %domain, keys %domain);
}

</pre></body></html>