Threadhead
Member
I don't need this for the ElkM1 perl script, but I sure can use this on another project. A big THANKS for the info.For those of you wanting a way to access your ElkM1 via the Serial port here's another option. <snip>
I don't need this for the ElkM1 perl script, but I sure can use this on another project. A big THANKS for the info.For those of you wanting a way to access your ElkM1 via the Serial port here's another option. <snip>

I don't need this for the ElkM1 perl script, but I sure can use this on another project. A big THANKS for the info.For those of you wanting a way to access your ElkM1 via the Serial port here's another option. <snip>
Hi floks-
Been playing with the script for a few days, but I seem to be missing where I configure the Access Code. I have two devices configured with the RP Access Code and am not able to get any data out of them with the std test script...
Any ideas?
Thanks
Elmars
<       'PLCStatusReply: bank='.$self->getBank.', status='.join ',', map { $self->getStatus($i)} (0..63);
to
>       'PLCStatusReply: bank='.$self->getBank.', status='.join ',', map { $self->getStatus($_)} (0..63);<         },
<         'index' => {
<             allow => sub { ( $_[0] >= 1 and $_[0] <= 256 ) },
<             var         => \$index,
<             description => 'an device index from 1..256'
to
>             'index' => {
>               allow => sub { ( $_[0] >= 1 and $_[0] <= 256 ) },
>               var         => \$index,
>               description => 'an device index from 1..256'
>            }<     $self->sendCommand( sprintf( 'pf%c%02d', $house, $unit ) );
to
>     $self->sendCommand( sprintf( 'pt%s%02d', $house, $unit ) );<     $self->sendCommand( sprintf( 'ua%05d', $code ) );
to
>     $self->sendCommand( sprintf( 'ua%06d', $code ) );<           . ". Adding to queue.\n";
to
>           . ". Adding to queue.\n" if ( $self->{debug}) ;crossbar said:Does anyone know of any existing Web based M1 control interfaces (besides the deprecated XEP Java interface)?
