2 files changed, 45 insertions, 0 deletions
diff --git a/ats-watch/99_ats-watch.rules b/ats-watch/99_ats-watch.rules
new file mode 100644
index 0000000..11a67da
--- /dev/null
+++ b/ats-watch/99_ats-watch.rules
@@ -0,0 +1,3 @@
+# /etc/udev/rules.d/99_ats-watch.rules
+
+SUBSYSTEMS=="usb", KERNEL=="ttyACM*", ATTRS{product}=="ats-watch", SYMLINK+="ats-watch"
diff --git a/ats-watch/ats-watch.pl b/ats-watch/ats-watch.pl
new file mode 100755
index 0000000..f374295
--- /dev/null
+++ b/ats-watch/ats-watch.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Device::SerialPort;
+use Mail::Sendmail;
+
+my $port = new Device::SerialPort("/dev/ats-watch"); 
+$port->baudrate(38400); 
+$port->parity("none"); 
+$port->databits(8); 
+$port->stopbits(1); 
+$port->handshake("none"); 
+$port->read_const_time(500);
+$port->read_char_time(5);
+$port->write_settings;
+
+$port->lookclear;
+$port->write("s");
+
+my %mail = ( To      => 'logs@helsinki.at',
+             From    => 'noreply@helsinki.at',
+           );
+
+while(1) {
+  my ($count, $line) = $port->read(100);
+  if($count > 0) {
+    if($line =~ /Status: (\w+), Input (\w) is selected \(A: (\w+), B: (\w+)\)/) {
+      my $state = $1;
+      if($3 ne 'Online' && $4 ne 'Online') {
+        $state = 'critical';
+      } elsif($3 ne 'Online' || $4 ne 'Online') {
+        $state = 'degraded';
+      }
+      $mail{Subject} = "[ATS-Watch] PDU0 state $state";
+      $mail{Message} = "Current State: $1\n" . "Current Input: $2\n" . "Input A: $3\n" . "Input B: $4\n";
+    } else {
+      $mail{Subject} = '[ATS-Watch] PDU0 state unknown';
+      $mail{Message} = $line;
+    }      
+    sendmail( %mail ) or print $Mail::Sendmail::error . "\n";
+  } 
+}