[mh] x10.basic support

[Famille S. <fa...@fa...>]

In order to deal with x10.basic send by my rfxcom  I have done the following
modification in xPL_Items.pm

 

package xPL_X10Basic;

 

@xPL_X10Basic::ISA = ('xPL_Item');

 

sub new {

    my ($class, $p_source, $p_type, $p_statekey) = @_;

    my ($source,$deviceid) = $p_source =~ /(\S+):(\S+)/;

    $source = $p_source unless $source;

    my $self = $class->SUPER::new($source);

    $$self{type} = $p_type if $p_type;

    my $statekey = $p_statekey;

    $statekey = 'command';

    $self->SUPER::class_name('x10.basic');

    $$self{state_monitor} = "x10.basic : $statekey";

    $self->SUPER::device_monitor("device=$deviceid") if defined $deviceid;

    return $self;

}

 

 

And added in  read_table_A.pl between XPL_X10SECURITY and XPL_IRRIGATEWAY

 

    elsif($type eq "XPL_X10BASIC") {

        ($address, $name, $grouplist, @other) = @item_info;

        $other = join ', ', (map {"'$_'"} @other); # Quote data

        if($other){

            $object = "xPL_X10Basic('$address',$other)";

        }

        else{

            $object = "xPL_X10Basic('$address')";

        }

        if( ! $packages{xPL_Items}++ ) {   # first time for this object
type?

            $code .= "use xPL_Items;\n";

        }

    }

 

 

Would somebody be kind to commit it  ? 

 

Roger