equal
deleted
inserted
replaced
11 MAIN: { |
11 MAIN: { |
12 my $q = new Quancom $ARGV[0]; |
12 my $q = new Quancom $ARGV[0]; |
13 |
13 |
14 my $r; |
14 my $r; |
15 |
15 |
16 # switch on/off all lights on the first relais |
16 # reset |
17 $r = $q->cmd("WB0100FF"); |
17 $r = $q->cmd("SL000700000001"); |
18 print $r->ok ? $r->data : $r->error_message, "\n"; |
18 print $r->ok ? $r->data : $r->error_message, "\n"; |
19 |
19 |
20 sleep 1; |
20 sleep 1; |
21 $r = $q->cmd("WB010000"); |
21 $r = $q->cmd("WX0100FFFFFFFFFFFFFFFF"); |
|
22 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
23 |
|
24 sleep 1; |
|
25 # switch off all lights |
|
26 $r = $q->cmd("WX01000000000000000000"); |
|
27 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
28 |
|
29 sleep 1; |
|
30 $r = $q->cmd("WB0100FF"); |
22 print $r->ok ? $r->data : $r->error_message, "\n"; |
31 print $r->ok ? $r->data : $r->error_message, "\n"; |
23 |
32 |
24 sleep 1; |
33 sleep 1; |
25 $r = $q->cmd("WB010001"); # 1 bit setzen |
34 $r = $q->cmd("WB010001"); # 1 bit setzen |
26 print $r->ok ? $r->data : $r->error_message, "\n"; |
35 print $r->ok ? $r->data : $r->error_message, "\n"; |