radiothermostat auto-away

thermonitor.rb

#!/usr/bin/ruby

require 'rest-client'
require 'json'
require 'open-uri'
require 'xmlsimple'

INTERVAL=30
THRESHOLD=10

THERMOSTAT="10.0.0.4"
HOSTS=%w(10.0.0.16 10.0.0.17)

RELEASE = { :hold => 0 }
MODE_OFF = { :tmode => 0, :hold => 0 }
MODE_AUTO = { :tmode => 3, :hold => 0 }
HOLD_HEAT = { :tmode => 1, :hold => 1, :t_heat => 62 }
HOLD_COOL = { :tmode => 2, :hold => 1, :t_cool => 85 }

def detect
  HOSTS.inject(0) { |value,host| (system "ping -qn -c1 -w1 #{host} >/dev/null 2>&1") ? value+1 : value }
end

def get(path = "tstat")
  JSON.parse RestClient.get("http://#{THERMOSTAT}/#{path}", :accept => :json)
end

def post(data, path = "tstat")
  puts "POST #{path} #{data.inspect}"
  JSON.parse RestClient.post("http://#{THERMOSTAT}/#{path}", data.to_json, :content_type => :json, :accept => :json)
end

$away_state = nil
$return_state = nil

def is_away_state?
  return true if $away_state.nil?
  current_state = get
  $away_state.each_pair do |k,v|
    return false if current_state[k.to_s] != v
  end
  true
end

def home
  puts "#{Time.now} home"
  if not is_away_state?
    puts "Thermostat was changed manually."
  else
    puts((post $return_state).inspect) if $return_state
  end
  puts get.inspect
  puts
end

def away
  puts "#{Time.now} away"

  last_state = get
  case last_state["tmode"]
  when 0
    $away_state = nil
    $return_state = nil
    puts "Thermostat is off."
  when 1
    $away_state = HOLD_HEAT
    $return_state = RELEASE
  when 2
    $away_state = HOLD_COOL
    $return_state = RELEASE
  when 3
    $away_state = MODE_OFF
    $return_state = MODE_AUTO
  end
  puts((post $away_state).inspect) if $away_state
  puts get.inspect
  puts
end

def fetch_outside_temp
  uri = open('http://api.wunderground.com/weatherstation/WXCurrentObXML.asp?ID=KORBEAVE40')
  data = XmlSimple.xml_in(uri.read)
  data['temp_f'].first.to_f.round if data['temp_f']
end

def night_mode
  current_state = get
  tout = fetch_outside_temp
  if tout and current_state["tmode"] == 2 and tout >= 74 and tout < current_state["temp"]
    puts "Meeting outside temp #{tout}"
    puts post({ :t_cool => tout })
  end
end

count=THRESHOLD/2

puts "Restart."
loop do
  if 0 != detect
    home if count >= THRESHOLD
    begin
      night_mode
    rescue => error
      error.backtrace
    end
    count = 0
  else
    if 5 < count and count < THRESHOLD
      puts "#{Time.now} away check count=#{count}"
    elsif THRESHOLD == count
      away
    end
    count += 1
  end
  sleep INTERVAL
end