#!/usr/bin/perl

# Takes history line input, and prints apparent arrival delay times.
# -jem@xpat.com

$daysec = 24 * 3600;

while(<>) {
        ($mid, $rectime, $sendtime) = /^(<.*>)\t(\d+)~.*~(\d+)\t/;
	next if ($rectime == 1);
        $delay = $rectime - $sendtime;
        $delayday = int($delay/$daysec);
        $delayhr = int(($delay-$delayday*$daysec)/3600);
        $delaymin = int(($delay-$delayday*$daysec-$delayhr*3600)/60);
        $delaysec = $delay-$delayday*$daysec-$delayhr*3600-$delaymin*60;
        print "$delayday d $delayhr h $delaymin m $delaysec s\t$mid\n";
}
