X10 ActiveHome Pro device.
#!/usr/bin/perl -w # Written By Paul DeMarco # Auguest 28, 2005 # CM15A Turns device A5 On or Off use Fcntl; sysopen( CM15A, "/dev/usb/cm15a0", O_RDWR |O_NOCTTY | O_NONBLOCK ) || die "Cannot open device $!"; syswrite CM15A, pack( "CC", 4, 0x61 ), 2; sleep 1; # can be less #syswrite CM15A, pack( "CC", 6, 0x62 ), 2; # ON syswrite CM15A, pack( "CC", 6, 0x63 ), 2; # OFF close( CM15A );
#!/usr/bin/perl use Fcntl; use ControlX10::CM15A qw( send_cm15a 0.00 ); sysopen( CM15A, "/dev/usb/cm15a0", O_RDWR |O_NOCTTY | O_NONBLOCK ) || die "Cannot open device $!"; #send_cm15a( \*CM15A, "AO" ); # turn all lights on house code A ON send_cm15a( \*CM15A, "AN" ); # turn all lights on house code A OFF #send_cm15a( \*CM15A, "A5J" ); # turn A5 ON #send_cm15a( \*CM15A, "A5K" ); # turn A5 OFF #send_cm15a( \*CM15A, "A3J" ); # turn A3 ON #send_cm15a( \*CM15A, "A3K" ); # turn A3 OFF close( CM15A );