projects
/
vrDialog
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't dump response length without DEBUG=1
[vrDialog]
/
dialog.pl
diff --git
a/dialog.pl
b/dialog.pl
index
7daf81c
..
0308a80
100755
(executable)
--- a/
dialog.pl
+++ b/
dialog.pl
@@
-5,6
+5,8
@@
use strict;
use Data::Dump qw(dump);
use Device::SerialPort qw(:STAT);
use Data::Dump qw(dump);
use Device::SerialPort qw(:STAT);
+my $debug = $ENV{DEBUG} || 0;
+
my $port = Device::SerialPort->new('/dev/ttyUSB0');
$port->baudrate(9600);
$port->databits(8);
my $port = Device::SerialPort->new('/dev/ttyUSB0');
$port->baudrate(9600);
$port->databits(8);
@@
-61,7
+63,7
@@
retry:
$port->write( $bytes );
my $data = $port->read(1);
$port->write( $bytes );
my $data = $port->read(1);
- warn "<< len: ",ord($data);
+ warn "<< len: ",ord($data)
if $debug
;
goto retry if ord($data) == 0;
goto retry if ord($data) == 0;
@@
-77,3
+79,6
@@
v '07 0A 00 00 00 04 44', 'software version';
v '07 00 01 00 06 0E EA', 'temperatures';
v '07 00 01 00 06 0E EA', 'temperatures';
+v '07 00 00 00 26 0A A6', 'last errros';
+
+v '07 00 00 00 26 00 AC', 'last errros (with invalid length)';