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";
24 my $raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00",
29 "\x1a\x21\x22\x23\x24\x33\x34\x35\x3b" );
32 my $raw = write_parameter_frame( "\x21" => "\x04" . pack('l',60) );
34 # temporary store to done
36 write_file "$queue/$imei/.todo.$t", $raw;
37 # atomic rename to ensure that file is complete
39 rename "$queue/$imei/.todo.$t", "$queue/$imei/.pending/$t";