From b2a928bba7f65a157ed44f700c5a5a2a0f7af15c Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 11 Dec 2014 19:45:25 +0100
Subject: [PATCH] first chat with boiler

---
 dialog.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 dialog.pl

diff --git a/dialog.pl b/dialog.pl
new file mode 100755
index 0000000..8f50b5e
--- /dev/null
+++ b/dialog.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Data::Dump qw(dump);
+use Device::SerialPort qw(:STAT);
+
+my $port = Device::SerialPort->new('/dev/ttyUSB0');
+$port->baudrate(9600);
+$port->databits(8);
+$port->parity('none');
+$port->stopbits(1);
+$port->handshake('none');
+
+# disable timeouts
+$port->read_char_time(500);
+$port->read_const_time(1000);
+
+sub v {
+	my ($hex,$desc) = @_;
+	my $bytes;
+	$bytes .= pack('C', hex('0x' . $_)) foreach split(/\s+/,$hex);
+	warn "# $desc\n";
+	warn ">> $hex ",dump( $bytes );
+	$port->write( $bytes );
+
+	my $len = $port->read(1);
+	warn "<< len: ",ord($len);
+	my $data = $port->read(ord($len) - 1);
+	warn "<< ",dump($data);
+
+}
+
+v '07 02 00 00 00 04 C4', "hardware version";
+
-- 
2.20.1