-my $raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00",
- "\x21",
- "\x44",
- "\x12",
- "\x14",
- "\x1a\x21\x22\x23\x24\x33\x34\x35\x3b" );
+my $raw;
+
+if ( $ARGV[0] =~ m/interval/ ) {
+ # heartbeat interval
+ my $interval = $ARGV[1] || 30 * 60;
+ print "set heartbeat interval to $interval s\n";
+ $raw = write_parameter_frame( "\x21" => "\x04" . pack('l',$interval) );
+} elsif ( $ARGV[0] =~ m/zero/ ) {
+ my $rel_zero = $ARGV[1] // 0;
+ print "Set relative zero $rel_zero\n";
+ $raw = write_parameter_frame( "\x3a" => "\x01" . pack('C',$rel_zero) );