DWeather/dweather

   1 #!/usr/bin/perl
   2 #
   3 # dweather - a distributed weather station
   4 #
   5 # copyright (c) 2012 Dirk Koopman G1TLH
   6 #
   7 #
   8
   9 use strict;
  10 use warnings;
  11
  12 use lib qw(. ./blib ./lib ./DWeather/lib);
  13
  14 use DWeather;
  15 use DWeather::Logger;
  16 use DWeather::Debug;
  17 use AnyEvent;
  18
  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")});
  21
  22 dbginit();
  23 dbg("*** dweather started");
  24
  25 my $cv = AnyEvent->condvar;
  26 my @res = $cv->recv;
  27
  28 exit 0;
  29
  30
  31 sub terminate
  32 {
  33         my $m = shift;
  34         dbg("*** dweather ended" . ($m ? " $m" : ' normally'));
  35         exit(0);
  36 }