#!/sprite/cmds/perl

&init;
$tape = $ARGV[0];
shift;
while(<>) {
    if (/^$tape/) {
	($f1, $f2, $f3, $size, $f4, $f5, $f6, $date) = split(' ');
	if ($date != $yesterday) {
	    if ($yesterday != -1) {
		$dates[$days] = $yesterday;
		$sizes[$days] = $total;
		$files[$days] = $file;
	    }
	    $total = 0;
	    $file = 0;
	    $days++;
	    $yesterday = $date;
	}
	$total += $size;
	$file++;
    }
    if (/.*Initializing.*\b$tape$/) {
	&init;
    }
}
$dates[$days] = $yesterday;
$sizes[$days] = $total;
$files[$days] = $file;
$days++;

$total = 0;
$file = 0;
for ($i = 0; $i < $days; $i++) {
    printf("Date: %d, %d files, %.2f MB\n", $dates[$i],
	$files[$i], $sizes[$i]);
    $total += $sizes[$i];
    $file += $files[$i];
}
printf("Totals : %d files, %.2f MB\n", $file, $total);

sub init {
    $yesterday = -1;
    $days = -1;
};