wip

[dweather.git] / DWeather / dweather

diff --git a/DWeather/dweather b/DWeather/dweather
new file mode 100644 (file)
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);
+}