Small script fix.

This commit is contained in:
Kai Lauterbach 2013-09-07 23:48:31 +02:00
parent 4788e00042
commit ba3b4d7daf

View file

@ -5,6 +5,7 @@
# license: GPL v3
#
use Time::HiRes qw(usleep nanosleep);
my @list = <STDIN>;
my $i = 0;
@ -15,7 +16,10 @@ foreach my $line (@list)
{
my $frame = hex(substr($line,2,8));
print "Adding ". $line. " with ". ($frame >> 27). " delay\n";
system("../client/clcc --save --pos $i --delay ". ($frame >> 27)." --frame $line");
my $cframe = $frame & 0x07ffffff;
#printf("0x%08x\n", $cframe);
system("../client/clcc --save --pos $i --delay ". ($frame >> 27)." --frame $cframe");
usleep(250000);
$i++;
}
}