Insteon: Add Support for Thermostat i2 Devices

code/examples/Insteon_thermostat.pl

@@ -1,13 +1,13 @@
 # Category=HVAC
 
-$v_test_thermostat = new Voice_Cmd("Send Thermostat cmd [ping,poll_mode,mode_off,mode_heat,mode_cool,mode_auto,mode_pgm_heat,mode_pgm_cool,mode_pgm_auto,fan_on,fan_auto,poll_temp,poll_setpoint]");
+$v_test_thermostat = new Voice_Cmd("Send Thermostat cmd [poll_mode,mode_off,mode_heat,mode_cool,mode_auto,mode_pgm_heat,mode_pgm_cool,mode_pgm_auto,fan_on,fan_auto,poll_temp,poll_setpoint]");
 
 # Create the Object in user code:
 #use Insteon_Thermostat;
-#$thermostat = new Insteon_Thermostat($plm,'12.34.56');
+#$thermostat = new Insteon_Thermostat('12.34.56', $plm);
 
 # or in items.mht (read_table_A)
-#IPLT, 12.34.56,, thermostat, HVAC, plm
+#INSTEON_THERMOSTAT, 12.34.56,, thermostat, HVAC
 
 # poll_setpoint also runs poll_mode
 if ($Startup || $Reload) {
@@ -29,9 +29,7 @@
 
 
 if (my $state = said $v_test_thermostat) {
- if ($state eq 'ping') {
- $thermostat->ping();
- }elsif ($state eq 'poll_mode') {
+ if ($state eq 'poll_mode') {
  $thermostat->poll_mode();
  }elsif ($state eq 'poll_temp') {
  $thermostat->poll_temp();
@@ -89,4 +87,25 @@
  $thermostat->heat_setpoint(66);
  $thermostat->cool_setpoint(82);
  $thermostat->poll_setpoint();
-} 
+}
+
+## The examples show how the defined child objects can be Used to Track and Display
+## individual data points in the thermostat. Each of the child objects will 
+## display and permit the adjusting (if applicable) of one data point such as
+## fan mode or cool setpoint.
+
+#Define the Children
+$thermo_temp = new Insteon::Thermo_temp($thermostat);
+$thermo_fan = new Insteon::Thermo_fan($thermostat);
+$thermo_mode = new Insteon::Thermo_mode($thermostat);
+$thermo_humidity = new Insteon::Thermo_humidity($thermostat);
+$thermo_setpoint_h = new Insteon::Thermo_setpoint_h($thermostat);
+$thermo_setpoint_c = new Insteon::Thermo_setpoint_c($thermostat);
+
+#Add the Children to the HVAC Group
+$HVAC->add($thermo_temp);
+$HVAC->add($thermo_fan);
+$HVAC->add($thermo_mode);
+$HVAC->add($thermo_humidity);
+$HVAC->add($thermo_setpoint_h);
+$HVAC->add($thermo_setpoint_c);

lib/Insteon.pm

@@ -1088,6 +1088,32 @@ sub check_all_aldb_versions
  main::print_log("[Insteon] DEBUG4 Checking aldb version of all devices completed") if ($main::Debug{insteon} >= 4);
 }
 
+sub check_thermo_versions
+{
+ main::print_log("[Insteon] DEBUG4 Initializing thermostat versions") if ($main::Debug{insteon} >= 4);
+
+ my @thermo_devices = ();
+ push @thermo_devices, Insteon::find_members("Insteon::Thermostat");
+ foreach my $thermo_device (@thermo_devices)
+ {
+ if ($thermo_device->isa('Insteon::Thermostat') && 
+ $thermo_device->get_root()->engine_version eq "I2CS"){
+ main::print_log("[Insteon] DEBUG4 Setting thermostat "
+ . $thermo_device->get_object_name() . " to i2CS") 
+ if ($main::Debug{insteon} >= 4);
+ bless $thermo_device, 'Insteon::Thermo_i2CS';
+ $thermo_device->init();
+ }
+ else {
+ main::print_log("[Insteon] DEBUG4 Setting thermostat "
+ . $thermo_device->get_object_name() . " to i1") 
+ if ($main::Debug{insteon} >= 4);
+ bless $thermo_device, 'Insteon::Thermo_i1';
+ }
+ }
+ #main::print_log("[Insteon] DEBUG4 Checking thermostat version of all devices completed") if ($main::Debug{insteon} >= 4); 
+}
+
 =back
 
 =head2 INI PARAMETERS
@@ -1167,6 +1193,7 @@ sub _active_interface
  &main::Reload_post_add_hook(\&Insteon::BaseInterface::poll_all, 1);
  $init_complete = 0;
  &main::MainLoop_pre_add_hook(\&Insteon::init, 1);
+ &main::Reload_post_add_hook(\&Insteon::check_thermo_versions, 1);
  &main::Reload_post_add_hook(\&Insteon::generate_voice_commands, 1);
  }
  $$self{active_interface} = $interface if $interface;

lib/Insteon/BaseInsteon.pm

@@ -967,6 +967,9 @@ sub _process_command_stack
  or $message->command eq 'set_operating_flags'
  or $message->command eq 'get_operating_flags'
  or $message->command eq 'read_write_aldb'
+ or $message->command eq 'thermostat_control'
+ or $message->command eq 'thermostat_get_zone_info'
+ or $message->command eq 'extended_set_get'
  or $message->command eq 'ping'
  )
  {