From ba3b4d7daf9a1fd5565e9b66d5b8407c0b236e75 Mon Sep 17 00:00:00 2001
From: Kai Lauterbach <klaute@gmail.com>
Date: Sat, 7 Sep 2013 23:48:31 +0200
Subject: [PATCH] Small script fix.

---
 tools/list2cube.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tools/list2cube.pl b/tools/list2cube.pl
index a03563e..15fbd13 100644
--- a/tools/list2cube.pl
+++ b/tools/list2cube.pl
@@ -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++;
     }
 }