#!/afs/net/tools/@sys/perl -s

$| = 1;

while (1) {
	open(RVDLOADA, "/etc/athena/rvdload zarquon |");
	open(RVDLOADB, "/etc/athena/rvdload typhon |");
	open(RVDLOADC, "/etc/athena/rvdload poly |");
	<RVDLOADA>;
	($foo, $rcvdA) = split(/[ \t\n]+/, <RVDLOADA>);
	<RVDLOADA>;
	($foo, $sentA) = split(/[ \t\n]+/, <RVDLOADA>);

	<RVDLOADB>;
	($foo, $rcvdB) = split(/[ \t\n]+/, <RVDLOADB>);
	<RVDLOADB>;
	($foo, $sentB) = split(/[ \t\n]+/, <RVDLOADB>);

	<RVDLOADC>;
	($foo, $rcvdC) = split(/[ \t\n]+/, <RVDLOADC>);
	<RVDLOADC>;
	($foo, $sentC) = split(/[ \t\n]+/, <RVDLOADC>);

        ($sec, $min, $hour) = localtime(time);
	printf("%02s:%02s:%02s\t%d\t%d\t%d\t%d\t%d\t%d\n", $hour, $min, $sec,
		$rcvdA, $sentA, $rcvdB, $sentB, $rcvdC, $sentC);
	sleep 59;
}