X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=DWeather%2Fdweather;fp=DWeather%2Fdweather;h=3844fcc7041933bd170854c19a7ce5de07f55ba1;hb=631bc0f2b224c9ebfd1dd5827814e5aba3e6d023;hp=0000000000000000000000000000000000000000;hpb=dc4a7b485f2c395471e3f7b64667da3625dcdc64;p=dweather.git

diff --git a/DWeather/dweather b/DWeather/dweather
new file mode 100644
index 0000000..3844fcc
--- /dev/null
+++ b/DWeather/dweather
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+#
+# dweather - a distributed weather station
+#
+# copyright (c) 2012 Dirk Koopman G1TLH
+#
+#
+
+use strict;
+use warnings;
+
+use lib qw(. ./blib ./lib ./DWeather/lib);
+
+use DWeather;
+use DWeather::Logger;
+use DWeather::Debug;
+use AnyEvent;
+
+my $sigint = AnyEvent->signal (signal => "INT", cb => sub { my $sig = shift; terminate("on signal $sig")});
+my $sigterm = AnyEvent->signal (signal => "TERM", cb => sub { my $sig = shift; terminate("on signal $sig")});
+
+dbginit();
+dbg("*** dweather started");
+
+my $cv = AnyEvent->condvar;
+my @res = $cv->recv;
+
+exit 0;
+
+
+sub terminate
+{
+	my $m = shift;
+	dbg("*** dweather ended" . ($m ? " $m" : ' normally'));
+	exit(0);
+}