thermometer.pl

#!/usr/bin/perl -w
# First, start the daemon.
#   ./thermometer.pl --user=<uid>


use warnings;
use strict;

use lib qw(../Raise);

use Log::Report;
use Any::Daemon;
use Getopt::Long     qw/GetOptions :config no_ignore_case bundling/;
use LWP::UserAgent;
use MIME::Lite;
use MIME::Base64;
use Getopt::Std;
use JSON;
use YAML::XS;
use Data::Dumper;

use Kinetic::Raise;


use constant DEFAULT_CONFIG_FILE => 'config.yml';


#
## get command-line options
#

my $mode     = 0;     # increase output

my $config_filename;

my %os_opts  = ();

my %run_opts = ();

GetOptions
   'background|bg!' => \$run_opts{background},
   'group|g=s'      => \$os_opts{group},
   'pid-file|p=s'   => \$os_opts{pid_file},
   'user|u=s'       => \$os_opts{user},
   'config=s'       => \$config_filename,
   'v+'             => \$mode  # -v -vv -vvv
    or exit 1;

$run_opts{background} ||= 1;

#
## initialize the thermostat
#

my $config = read_config($config_filename || DEFAULT_CONFIG_FILE);

die "No config file available $@" unless $config->{'user'};

# print Dumper $config;

$run_opts{max_childs} ||= ($config->{max_children} || 1);
$os_opts{user} ||= $config->{user};
$os_opts{group} ||= $config->{group};
$os_opts{pid_file} ||= ($config->{pid_file} || '/tmp/thermometer.pid');

#
## initialize the daemon activities
#

# From now on, all errors and warnings are also sent to syslog,
# provided by Log::Report. Output still also to the screen.
dispatcher SYSLOG => 'syslog', accept => 'INFO-', identity => 'thermometer daemon', facility => 'local0';
dispatcher mode => $mode, 'ALL' if $mode;
#warn "Mode is $mode";

my $daemon;
$daemon = Any::Daemon->new(%os_opts);


foreach my $k (keys %{ $config->{devices} }) {

#  info "starting device $k";

  if ($config->{devices}->{$k}->{type} eq 'thermometer') {
    $daemon->run(child_task => &run_temperature_task($k, $config->{devices}->{$k}), 
		 %run_opts
		);
  } else {
    warning "No handler for device $k with type $config->{devices}->{$k}->{type}";
  }


}


exit 1;   # will never be called

#
# the task sub routines return a closure that has been properly configured. 
#

sub run_temperature_task(@) {
  my ($name, $config) = @_;

#  info Dumper $config;

  warning "No host name for termperature sensor $name" unless $config->{host};
  warning "No event channel identifier for termperature sensor $name" unless $config->{eci};

  my $thermo_url = "http://$config->{host}/tstat";

  my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(GET => $thermo_url);

  my $event = Kinetic::Raise->new('thermostat',
				  'temperature',
				  {'eci' => $config->{eci}}
				 );

  my $sleep_sec = $config->{sleep_secs} || 60;


  return sub {


    warning "Starting temperature daemon";
    # initialization
    radstat_request($ua, "$thermo_url", "initialization", {t_type_post => 1} );


    while(1) {   

      my $res = $ua->request($req);


      if ($res->is_success) {

	my $scalar = from_json($res->content);
#	info "Temperature is " . $scalar->{ 'temp' } . "\n";
	warning "Temperature is " . $scalar->{ 'temp' } . "\n";

	my $response = $event->raise({'temperature' => $scalar->{ 'temp' },
				      'mode' => $scalar->{ 'tmode' } == 0 ? "off" :
				                $scalar->{ 'tmode' } == 1 ? "heat" :
				                $scalar->{ 'tmode' } == 2 ? "cool" :
				                $scalar->{ 'tmode' } == 3 ? "auto" : "unknown",
				      'target' => $scalar->{'t_heat'} || $scalar->{'t_cool'} || '99999',
				      'fan' => $scalar->{'fmode'} == 0 ? "auto" :
				               $scalar->{'fmode'} == 1 ? "circulate" :
				               $scalar->{'fmode'} == 2 ? "on" : "unknown",
				     }
				    );

#	warning Dumper $response->{'directives'};

	foreach my $d (@{$response->{'directives'}}) {
	   if ($d->{'name'} eq 'radstat') {
	     my $o = $d->{'options'};
	     if ($o->{'action'} eq 'set_message') {
	       radstat_request($ua, "$thermo_url/pma", "message set", {message => $o->{'message'}} );
	     } elsif ($o->{'action'} eq 'set_color') {
	       my $color = ($o->{'led'} eq "green")  ? 1 :
                           ($o->{'led'} eq "yellow") ? 2 :
                           ($o->{'led'} eq "red")    ? 4 :
                                                       0 ;   # off
	       radstat_request($ua, "$thermo_url/led", "LED color change ($o->{led})" , {energy_led => $color});
	     } elsif ($o->{'action'} eq 'set_temperature') {
	       # my $m = $o->{'mode'} eq 'off'  ? 0 :
               #         $o->{'mode'} eq 'heat' ? 1 :
               #         $o->{'mode'} eq 'cool' ? 2 :
               #         $o->{'mode'} eq 'auto' ? 3 :
               #                                  0;
       	       # radstat_request($ua, $thermo_url, "Set mode ($o->{'mode'}})" , 
	       # 		       {tmode => $m}
	       # 		      );
       	       # radstat_request($ua, $thermo_url, "Set target temp ($o->{'temperature'})" , 
	       # 		       {a_heat => int $o->{'temperature'}}
	       # 		      );

	       if ($o->{'mode'} eq 'heat') {
		 radstat_request($ua, $thermo_url, "Set mode ($o->{'mode'})" , 
				 {a_heat => int $o->{'temperature'}}
				);
	       } elsif ($o->{'mode'} eq 'cool') {
		 radstat_request($ua, $thermo_url, "Set mode ($o->{'mode'})" , 
				 {a_cool => int $o->{'temperature'}}
				);
	       } else {
		 # radstat_request($ua, $thermo_url, "Set mode ($o->{'mode'}})" , 
		 # 		 {tmode => $o->{'mode'}}
		 # 		);
		 
	       }
	     } elsif ($o->{'action'} eq 'turn_off') {
	       radstat_request($ua, $thermo_url, "Set mode ($o->{'mode'}})" , 
			       {tmode => 0}
			      );
	     }
	   }
	 }

      } else {
	warning "Can't connect to thermostat: " + $res->message;
      }

      sleep $sleep_sec;
    }

    exit 0;
    
  }


}


sub read_config {
    my ($filename) = @_;
    my $config;
    if ( -e $filename ) {
      $config = YAML::XS::LoadFile($filename) ||
	warning "Can't open configuration file $filename: $!";
    }

    return $config;
}


#
# radstat functions
#

sub radstat_request {
  my ($ua, $resource_uri, $message, $content ) = @_;
  my $post = HTTP::Request->new(POST => $resource_uri);
  my $json_content = to_json($content);
  warning "Sending $json_content";
  $post->content($json_content);
  my $res  = $ua->request($post);
  if ($res->is_success()) {
    parse_response($res, $message);
  } else {
    warning "HTTP request to $resource_uri failed: " .$res->message();
  }
  
}

sub parse_response {
  my($res, $message) = @_;
  my $content = from_json($res->content());
  if (defined $content->{'success'}) {
    warning "$message succeeded";
  } elsif (defined $content->{'error'}) {
    warning "$message failed";
  } else {
    warning "No status for $message";
    warning Dumper $res;
  }
}

1;