projects
/
zc
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Set relative zero
[zc]
/
zc-send
diff --git
a/zc-send
b/zc-send
index
4287368
..
4d9639f
100755
(executable)
--- a/
zc-send
+++ b/
zc-send
@@
-28,6
+28,10
@@
if ( $ARGV[0] =~ m/interval/ ) {
my $interval = $ARGV[1] || 300;
print "set heartbeat interval to $interval s\n";
$raw = write_parameter_frame( "\x21" => "\x04" . pack('l',$interval) );
my $interval = $ARGV[1] || 300;
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) );
} else {
print "read_parameter_frame\n";
} else {
print "read_parameter_frame\n";
@@
-36,7
+40,7
@@
if ( $ARGV[0] =~ m/interval/ ) {
"\x44",
"\x12",
"\x14",
"\x44",
"\x12",
"\x14",
- "\x1a\x21\x22\x23\x24\x33\x34\x35\x3b" );
+ "\x1a\x21\x22\x23\x24\x33\x34\x35\x3
a\x3
b" );
}
# temporary store to done
}
# temporary store to done