#!/usr/bin/perl
$t=$ARGV[0];
$t*=1000;
$f=$ARGV[1];
print "shift $t file $f\n";
open(I,"$f");
$on=0;
while($l=<I>) {
	if($l=~/^228/) { $on=1;}
	if(($on==1)&&($l=~/-->/)) {
		@as=split(/[\:\,\-\>\s]+/,$l);
		($a,$b,$c,$d)=tadd($as[0],$as[1],$as[2],$as[3],$t);
		($e,$f,$g,$h)=tadd($as[4],$as[5],$as[6],$as[7],$t);
		$l=sprintf("%02d:%02d:%02d,%03d --> %02d:%02d:%02d,%03d\n",$a,$b,$c,$d,$e,$f,$g,$h);
	}
	print $l;
}
close(I);

sub tadd {
	my ($a,$b,$c,$d,$e)=@_;
	$e += $d;
	$d = $e % 1000;
	$e = ($e-$d)/1000;
	$e += $c;
	$c = $e % 60;
	$e = ($e-$c)/60;
	$e += $b;
	$b = $e % 60;
	$e = ($e-$b)/60;
	$e += $a;
	return ($a,$b,$c,$d);
}