#!/usr/athena/bin/perl

undef $/;
foreach $m (@ARGV){
	open(M, $m);
	$min = (<M>);
	close(M);

	$min =~/called to order at [^b\n]+ by ([^\.\n]+)/;
	$running = $1;
	$min =~/adjourned at ([^\.\n ]+)\.?/;
	$adj = $1;
	$min =~ /taken and submitted by ([^\.]+)./;
	$sec = $1;

	($hour, $min, @stuff) = split(":", $adj);
	$end = ($hour*60)+$min;
	$len = $end-((19*60)+30);
	next if $len < 0;
	next if $len > 300;

	print("$m: $running/$sec = $adj ($len)\n");
	$ch{$running} += $len;
	$chn{$running}++;
	$sec{$sec} += $len;
	$secn{$sec}++;
}

foreach $c (sort keys %ch){
	$avg = int($ch{$c}/$chn{$c});
	print("$c: $avg ($ch{$c} minutes in $chn{$c} meetings)\n");
}
print("-------------------------------------------\n");

foreach $s (sort keys %sec){
	$avg = int($sec{$s}/$secn{$s});
	print("$s: $avg ($sec{$s} minutes in $secn{$s} meetings)\n");
}