examples/client
changeset 16 246d80ec6653
parent 15 2d41fac09084
child 17 ecc10b50b7a6
--- 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;