Insteon PLM Ruby Code 756

#### Written by Dan Damron
#### #756 Report Child Devices ####


#here is where I send all my newly discovered children..


#I need to fire an event [54]
#with params_:
#12 Error Message (string)
#	if this is not empty, that means an error occurred.
#
#13 Text (string)
#	a list like this:
#	[internal id] \t
#	[description] \t
#	[room name] \t
#	[device template] \t
#	[floorplan id] \n


#First, Lets see if we actually 'get this command'
log($yellow+ '*#*#*#*#*#*#*#*# GOT #756 Report Child Devices! *#*#*#*#*#*#*#*#*'+ $grey)


##lets try sending an event..

#cmd = Command.new(37,-1000,1, 2, 54)
#cmd.params_[13] = "0A.97.0B\tTestLamp\t\t38\t\n"
#log(cmd.params_[13])
#SendCommand(cmd)

@work = ""
$childdatabases.each_key{|insteonID|
  @work += insteonID + "\t"
  # figure out what type of device to add here..
  log('Child:' + insteonID)
  log('Config:' + $childdatabases[insteonID].inspect)
  case $childdatabases[insteonID][0][0..1].hex # Device Category
  when 0x00 # Generalized Controllers
    case $childdatabases[insteonID][0][2..3].hex
    when 0x00
    when 0x01
    when 0x02
	
    end
  when 0x01 # Dimmable Lighting Control
    case $childdatabases[insteonID][0][2..3].hex
    when 0x00; @work += 'LampLinc V2 [2456D3]'
    when 0x01; @work += 'SwitchLinc V2 Dimmer 600W [2476D]'
    when 0x02; @work += 'In-LineLinc Dimmer [2475D]'
    when 0x03; @work += 'Icon Switch Dimmer [2876D]'
    when 0x04; @work += 'SwitchLinc V2 Dimmer 1000W [2476DH]'
    when 0x06; @work += 'LampLinc 2-pin [2456D2]'
    when 0x07; @work += 'Icon LampLinc V2 2-pin [2456D2]'
    when 0x09; @work += 'KeypadLinc Dimmer [2486D]'
    when 0x0A; @work += 'Icon In-Wall Controller [2886D]'
    when 0x0D; @work += 'SocketLinc [2454D]'
    when 0x13; @work += 'Icon SwitchLinc Dimmer for Lixar/Bell Canada [2676D-B]'
    when 0x17; @work += 'ToggleLinc Dimmer [2466D]'
    end
    @work += "\t\t38" # set Template 38
  when 0x02 # Switched Lighting Control
    case $childdatabases[insteonID][0][2..3].hex
    when 0x09;  @work += 'ApplianceLinc [2456S3]'
    when 0x0A;  @work += 'SwitchLinc Relay [2476S]'
    when 0x0B;  @work += 'Icon On Off Switch [2876S]'
    when 0x0C;  @work += 'Icon Appliance Adapter [2856S3]'
    when 0x0D;  @work += 'ToggleLinc Relay [2466S]'
    when 0x0E;  @work += 'Switchlinc Relay Countdown Timer [2476ST]'
    when 0x10;  @work += 'In-LineLinc Relay [2475D]'
    when 0x13;  @work += 'Icon SwitchLinc Relay for Lixar/Bell Canada [2676R-B]'
    end

    @work += "\t\t37" # Set Template 37
  when 0x03 # Network Bridges
  when 0x04 # Irrigation Control
    @work += 'Simplehomenet EZRain1 Sprinkler Controller'
    @work += "\t\t1780" # Set Template 1780

  when 0x05 # Climate Control
    case $childdatabases[insteonID][0][2..3].hex
    when 0x00; @work += 'Broan SMSC080 Exhaust Fan'
    when 0x01; @work += 'Simplehomenet EZTherm'
    when 0x02; @work += 'Broan SMSC110 Exhaust Fan'
    when 0x03; @work += 'Venstar RF Thermostat Module'
    when 0x04; @work += 'Simplehomenet EZStat Thermostat'
    end
    @work += "\t\t4" # Set Template 4
  when 0x06 # Pool and Spa Control
    @work += "\t\t" # Set Template Unknown
  when 0x07 # Sensors and Actuators
    @work += "\t\t" # Set Template Unknown
  when 0x08
    @work += "\t\t" # Set Template Unknown
  when 0x09
    @work += "\t\t" # Set Template Unknown
  when 0x0A
    @work += "\t\t" # Set Template Unknown
  when 0x0B
    @work += "\t\t" # Set Template Unknown
  when 0x0C
    @work += "\t\t" # Set Template Unknown
  when 0x0D
    @work += "\t\t" # Set Template Unknown
  when 0x0E
    @work += "\t\t" # Set Template Unknown
  when 0x0F
    @work += "\t\t" # Set Template Unknown
  when 0x10 # Security, Health, and Safety
    @work += "\t\t" # Set Template Unknown
  when 0x11 # Surveillance
    @work += "\t\t" # Set Template Unknown
  when 0x12 # Automotive
    @work += "\t\t" # Set Template Unknown
  when 0x13 # Pet care
    @work += "\t\t" # Set Template Unknown
  when 0x14 # Toys
    @work += "\t\t" # Set Template Unknown
  when 0x15 # Timekeeping
    @work += "\t\t" # Set Template Unknown
  when 0x16 # Holiday
    @work += "\t\t" # Set Template Unknown


  end
  @work += "\t\n"

}
log(@work)
cmd = Command.new(device_.devid_, -1000, 1, 2, 54)
cmd.params_[13] = @work
SendCommand(cmd)