3 # dweather - a distributed weather station
5 # copyright (c) 2012 Dirk Koopman G1TLH
12 use lib qw(. ./blib ./lib ./DWeather/lib);
19 my $sigint = AnyEvent->signal (signal => "INT", cb => sub { my $sig = shift; terminate("on signal $sig")});
20 my $sigterm = AnyEvent->signal (signal => "TERM", cb => sub { my $sig = shift; terminate("on signal $sig")});
23 dbg("*** dweather started");
25 my $cv = AnyEvent->condvar;
34 dbg("*** dweather ended" . ($m ? " $m" : ' normally'));