#!/usr/bin/perl

#NAME
#  ____ -

#SYNOPSIS
#  ____ [file]..

#DESCRIPTION

#OPTIONS

#EXAMPLES

#FILES

#BUGS

#SEE ALSO

#AUTHOR
#  John Chambers <jc@trillian.mit.edu>

($me = $0) =~ s".*/"";
$! = 1;
$V = 1;

$cmd = 'grep " T X:" hst/*';
unless (open(P,"$cmd |")) {
	print STDERR "$me: Can't exec \"$cmd\" ($!)\n";
	die $!;
}

#1204043004 T X:132288 T:150417 F:73780 H:trillian.mit.edu
for $line (<P>) {
	print $line if $V>2;
	if (($X,$T,$F,$H) = ($line =~
			/^.*\s+T\s+X:(\d+)\s+T:(\d+)\s+F:(\d+)\s+H:(.*)\s*$/)) {
		print "X=$X	T=$T	F=$F	$H\n" if $V>2;
		$H =~ s/\.+$//;
		$n = $V{$H};
		$T{$H} = $T if $T > $T{$H};
		$X{$H} = $X if $X > $X{$H};
		$F{$H} = $F if $F > $F{$H};
		if      ($T > $n) {$V{$H} = $T; print "T=$T	$H\n" if $V>1;
		} elsif ($X > $n) {$V{$H} = $X; print "X=$X	$H\n" if $V>1;
		}
	}
}
close P;

($ss,$mm,$hh,$DD,$MM,$CY) = gmtime($now = time); ++$MM; $CY += 1900;
$ts = sprintf("%04d%02d%02d",$CY,$MM,$DD);
$ofile = "$me-$ts";
unless (open(O,">$ofile")) {
	print STDERR "$me: Can't write \"$ofile\" ($!)\n";
	die $!;
}
print O "  Tunes  Titles   Files Host\n";
for $h (sort keys %V) {
	$T = $T{$h}; $Ttotal += $T;
	$X = $X{$h}; $Xtotal += $X;
	$F = $F{$h}; $Ftotal += $F;
	printf   "%7d	%7d	%7d	%s\n",$X,$T,$F,$h if $V>1;
	printf O "%7d	%7d	%7d	%s\n",$X,$T,$F,$h;
}
print O "  -----  ------   -----\n";
	printf O "%7d	%7d	%7d	total\n",$Xtotal,$Ttotal,$Ftotal;