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)?