git.rot13.org Git - zc/blob - zc-send

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use File::Slurp;
   6 use autodie;
   7
   8 use lib '.';
   9 use Protocol;
  10
  11 my $queue = "queue";
  12
  13 my $path = shift @ARGV;
  14 die "Usage: $0 queue/IMEI\n" unless $path;
  15
  16
  17 my $imei;
  18 if ( $path =~ m{$queue/(\w+)/} ) {
  19         $imei = $1;
  20 } else {
  21         die "can't find IMEI in $path\n";
  22 }
  23
  24 my $raw;
  25
  26 if ( $ARGV[0] =~ m/interval/ ) {
  27         # heartbeat interval
  28         my $interval = $ARGV[1] || 300;
  29         print "set heartbeat interval to $interval s\n";
  30         $raw = write_parameter_frame( "\x21" => "\x04" . pack('l',$interval) );
  31
  32 } else {
  33         print "read_parameter_frame\n";
  34         $raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00",
  35         "\x21",
  36         "\x44",
  37         "\x12",
  38         "\x14",
  39         "\x1a\x21\x22\x23\x24\x33\x34\x35\x3b" );
  40 }
  41
  42 # temporary store to done
  43 my $t = time();
  44 write_file "$queue/$imei/.todo.$t", $raw;
  45 # atomic rename to ensure that file is complete
  46
  47 rename "$queue/$imei/.todo.$t", "$queue/$imei/.pending/$t";
  48