DWeather/dweather

   1 #!/usr/bin/perl
   2 #
   3 # dweather - a distributed weather station
   4 #
   5 # Copyright (c) 2012-2014 Dirk Koopman G1TLH
   6 #
   7 #
   8
   9 use strict;
  10 use warnings;
  11 use 5.01001;
  12
  13 use lib qw(. ./blib ./lib ./DWeather/lib);
  14
  15 use DWeather;
  16 use DWeather::Logger;
  17 use DWeather::Debug;
  18 use AnyEvent;
  19
  20 dbginit();
  21 dbg("*** dweather started");
  22
  23 exit 0;
  24
  25
  26 sub terminate
  27 {
  28         my $m = shift;
  29         dbg("*** dweather ended" . ($m ? " $m" : ' normally'));
  30         exit(0);
  31 }