Insteon PLM Ruby Code 355
From LinuxMCE
Version | Status | Date Updated | Updated By |
---|---|---|---|
710 | Unknown | N/A | N/A |
810 | Unknown | N/A | N/A |
1004 | Unknown | N/A | N/A |
1204 | Unknown | N/A | N/A |
1404 | Unknown | N/A | N/A |
Usage Information |
#### Written by Dan Damron #### #355 Process Initialize #### $red = 0x1b.chr + '[31m' $green = 0x1b.chr + '[32m' $yellow = 0x1b.chr + '[33m' $blue = 0x1b.chr + '[34m' $purple = 0x1b.chr + '[35m' $aqua = 0x1b.chr + '[36m' $grey = 0x1b.chr + '[37m' $redBack = 0x1b.chr + '[41m' $greenBack = 0x1b.chr + '[42m' $yellowBack = 0x1b.chr + '[43m' $blueBack = 0x1b.chr + '[44m' $purpleBack = 0x1b.chr + '[45m' $aquaBack = 0x1b.chr + '[46m' $greyBack = 0x1b.chr + '[47m' $blackBack = 0x1b.chr + '[48m' $remoteLinkRecord = '' #$remoteRecordReady = 0 $configstring = '' $configparams = [] $childdatabases = {} $newdevices = {} $state = {} $devicetemplate = {} $plmdatabase = [] $plmlastrecord = true $log = '' $cmdTo = '' $cmdFrom = '' $cmdPriority = '' $cmdType = '' $cmdID = '' $cmdParams = {} $children = {} $recvbuff = '' $wAIT = false $currentCmd = {} $flagsBroadcastMessage = 128 $flagsDirectMessage = 0 $flagsAckDirectMessage = 32 $flagsNackDirectMessage = 160 $flagsGroupBroadcaseMessage = 192 $flagsGroupCleanupDirectMessage = 64 $flagsGroupAckDirectMessage =96 $flagsGroupNackDirectMessage = 224 $cmdqueue = [] $currentcmd = 0 # to save state of command when receiving more data. $resetNext = 0 # used in Process IDLE to trap stalled responses. $savedstate = nil $dcequeue = [] $rerun = false $reported = false $X10HouseCodes = { '6', 'A', 'E', 'B', '2', 'C', 'A', 'D', '1', 'E', '9', 'F', '5', 'G', 'D', 'H', '7', 'I', 'F', 'J', '3', 'K', 'B', 'L', '0', 'M', '8', 'N', '4', 'O', 'C', 'P'} $X10UnitCodes = { '6', '1', 'E', '2', '2', '3', 'A', '4', '1', '5', '9', '6', '5', '7', 'D', '8', '7', '9', 'F', '10', '3', '11', 'B', '12', '0', '13', '8', '14', '4', '15', 'C', '16'} $X10CommandCodes = { '6', 'All Lights Off', 'E', 'Status = off', '2', 'On', 'A', 'Pre-Set Dim', '1', 'All Lights On', '9', 'Hail Ack', '5', 'Bright', 'D', 'Status=on', '7', 'Extended Code', 'F', 'Status Request', '3', 'Off', 'B', 'Pre-set Dim', '0', 'All Units Off', '8', 'Hail Request', '4', 'Dim', 'C', 'Extended Data(analog)'} $responseString = '<' + '/' + 'Response>' ############################## TEST Code below ################################# # testing Reading a devices Database # Common Insteon Device Memory Locations: # 0x0001 EESize - MSB of size of EEPROM chip in device # 0x0002 EEVersion - Firmware Revision number # 0x0020 EEOnLevel - Preset On-Level for lighting control # 0x0021 EERampRate - Ramp Rate for Lighting Control # 0x0030 EEX10BaseHouse - Base X10 House Code for device # 0x0031 EEX10BaseUnit - Base X10 Unit Code for device # # ALDB/L # Starts at the top of external serial eeprom and grows downward. # most limited-memory INSTEON devices, top of memory is 0x0FFF # Each Record is 8 bytes long, so the first record starts at # 0x0FF8, the second record starts at 0x0FF0 # # ALDB/L Record Format: # Record Control: 1 byte # Group: 1 Byte # ID: 3 Bytes HB MB LB # Data1: 1 Byte Link-specific data (eg. On-Level) # Data2: 1 Byte Link specific data (eg. Ramp Rates) # Data3: 1 Byte Link specific data (normally unused) # # Record Control Byte Bitmap: # 7: 1=Record in use, 0=Record is available # 6: 1=Controller of ID, 0=Responder of ID # 5: Product Dependant # 4: Product Dependant # 3: Product Dependant # 2: Product Dependant # 1: 1=Record has been used before, 0=High water mark (last record) # 0: Reserved #PLM cat 03 subcat 05 # param = {'Command' => 'StLnk', #'Parameter1' => '01', #Link code 0x01=controller #'Parameter2' => '8F' #All Link Group #} #$cmdqueue << param # param = {'Command' => 'CancelLnk'} #$cmdqueue << param #SndIns() # #Lets try the Assign to ALL-Link Group ### SUCCESS!!! #param = {'Command' => 'SndIns', #'Parameter1' => '0A', #HB #'Parameter2' => '8F', #MB #'Parameter3' => '5A', #LB #'Parameter4' => '0F', #Flags #'Parameter5' => '01', #Cmd1 #'Parameter6' => '8F' #Cmd2 #} # # #param = {'Command' => 'MngLnk', #'Parameter1' => '00', # Control Code #'Parameter2' => 'C2', #All Link Record Flags AKA Record Control Byte #'Parameter3' => '01', #All Link Group #'Parameter4' => '0A', #HB #'Parameter5' => '97', #MB #'Parameter6' => '0B', #LB #'Parameter7' => '01', #Link Data 1 ON-Level #'Parameter8' => '01', #Link Data 2 Ramp Rate #'Parameter9' => '00'} #Link Data 3 not used #$cmdqueue << param # # ## Test Device: LampLinc ID:0A.97.0B # Assign Test device to Group #param = {'Command' => 'SndIns', #'Parameter1' => '0A', #HB #'Parameter2' => '97', #MB #'Parameter3' => '0B', #LB #'Parameter4' => '0F', #Flags #'Parameter5' => '01', #Cmd1 #'Parameter6' => '01' #Cmd2 #} #$cmdqueue << param # # ############################## Real Code below ################################# log('MY DEVICE:' + device_.devid_.to_s) ################################################# #What I need to do and the order I need to do it. #done read PLM database #done get child devices #done read child devices configuration #done1 all child devices in the PLM database? #done if not, add their ID to the PLM database (new group numbers?) # get the status of each (child) device # compare the Database delta with the value stored in the configuration # Different? # read the child database # update configuration # check devices links to see if any are new # new link found, what to do?? send a message? # create new child device? # PING the new device and back to 1 ### # easiest way?.. create hash for PLM records # create hash for child devices is needed # (not needed if DBDelta is same) #reset the PLM $timeout = 3 #param = {'Command' => 'RstPLM'} #$cmdqueue << param #SndIns() #put IM in monitor mode.. param = {'Command' => 'SetCfg', 'Parameter1' => '40'} $cmdqueue << param SndIns() mainStart() ##children found... get the status of each child... #$children.each_key{|c| # if c.length > 2 #filter out X10 for now # #pack insteon message here, and send it out! # # receive message in parsemessage and relay commands back in it. # insteonID = c.chomp.split('.') # param = {'Command' => 'SndIns', # 'Parameter1' => insteonID[0], # 'Parameter2' => insteonID[1], # 'Parameter3' => insteonID[2], # 'Parameter4' => '0F', #flags # 'Parameter5' => '19', #Status Request # 'Parameter6' => '00'} #not used. # $cmdqueue << param ## below gets the device Cat/SubCat/Firmware # param = {'Command' => 'SndIns', # 'Parameter1' => insteonID[0], # 'Parameter2' => insteonID[1], # 'Parameter3' => insteonID[2], # 'Parameter4' => '0F', #flags # 'Parameter5' => '10', #PING # 'Parameter6' => '00'} #not used. # $cmdqueue << param # # end # }