13 my $path = shift @ARGV;
14 die "Usage: $0 queue/IMEI\n" unless $path;
18 if ( $path =~ m{$queue/(\w+)/} ) {
21 die "can't find IMEI in $path\n";
26 if ( $ARGV[0] eq m/interval/ ) {
28 $raw = write_parameter_frame( "\x21" => "\x04" . pack('l',60) );
31 $raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00",
36 "\x1a\x21\x22\x23\x24\x33\x34\x35\x3b" );
39 # temporary store to done
41 write_file "$queue/$imei/.todo.$t", $raw;
42 # atomic rename to ensure that file is complete
44 rename "$queue/$imei/.todo.$t", "$queue/$imei/.pending/$t";