--- a/examples/client Tue Jan 06 02:01:26 2009 +0100
+++ b/examples/client Tue Jan 06 09:31:17 2009 +0100
@@ -13,12 +13,21 @@
my $r;
- # switch on/off all lights on the first relais
- $r = $q->cmd("WB0100FF");
+ # reset
+ $r = $q->cmd("SL000700000001");
print $r->ok ? $r->data : $r->error_message, "\n";
sleep 1;
- $r = $q->cmd("WB010000");
+ $r = $q->cmd("WX0100FFFFFFFFFFFFFFFF");
+ print $r->ok ? $r->data : $r->error_message, "\n";
+
+ sleep 1;
+ # switch off all lights
+ $r = $q->cmd("WX01000000000000000000");
+ print $r->ok ? $r->data : $r->error_message, "\n";
+
+ sleep 1;
+ $r = $q->cmd("WB0100FF");
print $r->ok ? $r->data : $r->error_message, "\n";
sleep 1;