X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=zc-send;h=a048c7f7846a5ce202a650967f67c70a418b79b7;hb=bd52d1bce868bf910ad8b47b01673bd14e61b109;hp=ff6a882ccc69a90f2a8ac41237a1128444d39ebf;hpb=c7836240ae5f90e9cf47152fd18e3fcddec63810;p=zc

diff --git a/zc-send b/zc-send
index ff6a882..a048c7f 100755
--- a/zc-send
+++ b/zc-send
@@ -21,15 +21,20 @@ if ( $path =~ m{$queue/(\w+)/} ) {
 	die "can't find IMEI in $path\n";
 }
 
-my $raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00",
+my $raw;
+
+if ( $ARGV[0] eq m/interval/ ) {
+	# heartbeat interval
+	$raw = write_parameter_frame( "\x21" => "\x04" . pack('l',60) );
+
+} else {	
+	$raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00",
 	"\x21",
 	"\x44",
 	"\x12",
 	"\x14",
 	"\x1a\x21\x22\x23\x24\x33\x34\x35\x3b" );
-
-# heartbeat interval
-my $raw = write_parameter_frame( "\x21" => "\x04" . pack('l',60) );
+}
 
 # temporary store to done
 my $t = time();