first version

README

@@ -0,0 +1,3 @@
+lcdtool
+
+simple tool to get my lcd display to show what I want it to show ;-)

config.ini

@@ -0,0 +1,6 @@
+#lcdtool config
+name=PP
+screen_name=info
+heartbeat=off
+host=127.0.0.1
+port=13666

lcdtool.pl

@@ -0,0 +1,62 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use AnyEvent;
+use AnyEvent::Handle;
+use AnyEvent::Socket;
+use Config::Tiny;
+use Data::Dumper;
+use IO::LCDproc;
+
+my $config = Config::Tiny->read('config.ini');
+
+my @lines;
+
+my $client = IO::LCDproc::Client->new(name => $config->{_}->{name});
+my $screen = IO::LCDproc::Screen->new(name => $config->{_}->{screen_name}, heartbeat => $config->{_}->{heartbeat});
+$lines[1] = IO::LCDproc::Widget->new(
+             name => "first", align => "center", xPos => 1, yPos => 1
+            );
+$lines[2] = IO::LCDproc::Widget->new(
+              name => "second", align => "center", xPos => 1, yPos => 2
+             );
+
+$client->add( $screen );
+$screen->add( $lines[1] $lines[2] );
+$client->connect() or die "cannot connect: $!";
+$client->initialize();
+
+tcp_server(
+        $config->{_}->{host},
+        $config->{_}->{port},
+        sub {
+            my ($fh, $host, $port) = @_;
+            if (not $fh) {
+                die "cannot create listener";
+                return;
+            }
+
+            my $handle;
+            $handle = AnyEvent::Handle->new(
+                fh       => $fh,
+                on_eof   => sub { undef $handle },
+                on_error => sub { undef $handle },
+            );
+
+            $handle->push_read(line => sub { announce(@_); });
+        }
+);
+
+sub announce {
+    my ($handle,$command) = @_;
+    my ($line,$message) = split(/:/,$command,1);
+    print Dumper $line;
+    print Dumper $message;
+    $client->flushAnswers();
+}
+
+
+#$first->set( data => "First Line" );
+#$second->set( data => "1234567890" );
+AnyEvent->condvar->wait();

push.sh

@@ -0,0 +1,6 @@
+#!/bin/sh
+
+IP="127.0.0.1"
+PORT="23427"
+
+echo "$@" | nc -q 1 $IP $PORT