#!/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);
}