Re: [mh] The Insteon Keypad challange

[George F. <fa...@sh...>]

On Sun, 2009-11-22 at 07:18 -0500, Gregg Liming wrote:
> George Farris wrote:
> 
> > It doesn't work, see below.  I wiped out all my files and only have the
> > insteon.mht file.  This 
> > 
> > george@ve7frg:~/mh $ cat insteon.mht
> 
> Can you also do the same for insteon.mhp?  You can send it to me 
> off-list if it's large.
> 
> Gregg

Here there are, the only change is I tried adding a surrogate and
controlling the led directly.  The interesting part is this:

11/22/09 11:13:29 AM Running: plm log links
11/22/09 11:13:29 AM [Insteon_PLM] cntlr(11) record to $some_lamp (d1=01, d2=00, d3=00)
11/22/09 11:13:29 AM [Insteon_PLM] responder record to $my_kpl_light(01) (d1=00, d2=00, d3=00)
11/22/09 11:13:29 AM [Insteon_PLM] responder record to $my_kpl_A(03) (d1=00, d2=00, d3=00)
11/22/09 11:13:29 AM [Insteon_PLM] cntlr(11) record to $my_kpl_light (d1=01, d2=00, d3=00)
11/22/09 11:13:29 AM [Insteon_PLM] cntlr(a0) record to $my_kpl_light (d1=01, d2=00, d3=00)

NOTE:
cntlr(a0) points to my_kpl_light not $my_kpl_A(03), very strange but maybe that's normal

other log links are:
11/22/09 11:14:33 AM Running: my kpl light log links
11/22/09 11:14:33 AM [Insteon_Device] link table for $my_kpl_light (devcat: 011b):
11/22/09 11:14:33 AM [Insteon_Device] aldb 0f4288011 [0x0FE8] contlr(01) record to $plm(01), (d1:ff, d2:1f, d3:00)
11/22/09 11:14:33 AM [Insteon_Device] aldb 0f4288031 [0x0FF0] contlr(03) record to $plm(01), (d1:ff, d2:1f, d3:00)
11/22/09 11:14:33 AM [Insteon_Device] aldb 0f4288110 [0x0FE0] rspndr(01) record to $plm(11): onlevel=100% and ramp=0.1s (d3:00)
11/22/09 11:14:33 AM [Insteon_Device] aldb 0f4288a00 [0x0FD8] rspndr(01) record to $plm(a0): onlevel=100% and ramp=0.1s (d3:00)
11/22/09 11:14:33 AM [Insteon_Device] aldb 1203bb031 [0x0FF8] contlr(03) record to $some_lamp(01), (d1:ff, d2:1f, d3:00)
11/22/09 11:14:33 AM [Insteon_Device] adlb [0x0FD0] is empty

11/22/09 11:15:03 AM Running: some lamp log links
11/22/09 11:15:03 AM [Insteon_Device] link table for $some_lamp (devcat: 0100):
11/22/09 11:15:03 AM [Insteon_Device] aldb 0f4288110 [0x0FF0] rspndr(01) record to $plm(11): onlevel=100% and ramp=0.1s (d3:00)
11/22/09 11:15:03 AM [Insteon_Device] aldb 12b873030 [0x0FF8] rspndr(01) record to $my_kpl_light(03): onlevel=100% and ramp=0.1s (d3:00)
11/22/09 11:15:03 AM [Insteon_Device] adlb [0x0FE8] is empty



george@ve7frg:~/mh $ cat insteon.mht 
Format = A
# -*- mode: perl-mode; -*-
#
# See mh/lib/read_table_A.pl  for definition of Format=A items
#
 
# My Insteon PLM Interface
INSTEON_PLM,  plm
 
# LampLinc
IPLD,  12.03.BB, some_lamp,      All_Lights|Inside, plm

# KeypadLinc 6 button
IPLL,  12.B8.73:01, my_kpl_light, All_Lights|Inside,   plm
IPLL,  12.B8.73:03, my_kpl_A, buttons,   plm


IPLL, plm:11, my_scene,  scenes, plm
SCENE_MEMBER, some_lamp, my_scene, 100%, 0.1s
SCENE_MEMBER, my_kpl_A, my_scene
SCENE_MEMBER, some_lamp, my_kpl_A, 100%

IPLL, plm:A0, some_lamp_button_link, hidden, plm
SCENE_MEMBER, my_kpl_A, some_lamp_button_link, surrogate



george@ve7frg:~/mh $ cat insteon.mhp
#
#@ Do NOT edit this file.  It was auto-generated from insteon.mht.
#
# Category = Other

# -*- mode: perl-mode; -*-
#
#
# Init results: 0 
# My Insteon PLM Interface

$plm                                 =  new Insteon_PLM('Insteon_PLM');
# LampLinc

$some_lamp                           =  new Insteon_Device($plm, '12.03.BB', );
$All_Lights                          =  new Group;
$All_Lights                          -> add($some_lamp);
$Inside                              =  new Group;
$Inside                              -> add($some_lamp);
# KeypadLinc 6 button

$my_kpl_light                        =  new Insteon_Link($plm, '12.B8.73:01', );
$All_Lights                          -> add($my_kpl_light);
$Inside                              -> add($my_kpl_light);

$my_kpl_A                            =  new Insteon_Link($plm, '12.B8.73:03', );
$buttons                             =  new Group;
$buttons                             -> add($my_kpl_A);

$my_scene                            =  new Insteon_Link($plm, '00.00.00:11', );
$scenes                              =  new Group;
$scenes                              -> add($my_scene);
use Scene;
$my_scene                            -> add($some_lamp,'100%','0.1s');
$my_scene                            -> add($my_kpl_A);
$my_kpl_A                            -> add($some_lamp,'100%');

$some_lamp_button_link               =  new Insteon_Link($plm, '00.00.00:A0', );
$some_lamp_button_link               -> hidden(1);
$some_lamp_button_link               -> add($my_kpl_A,'surrogate');


Cheers

PS:  Gregg I can send you the mh.log file if required.

Thanks
George