Added RESET test to examples/client.
authorHeiko Schlittermann <hs@schlittermann.de>
Tue, 06 Jan 2009 09:31:17 +0100
changeset 16 246d80ec6653
parent 15 2d41fac09084
child 17 ecc10b50b7a6
Added RESET test to examples/client.
README
examples/client
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/README	Tue Jan 06 09:31:17 2009 +0100
@@ -0,0 +1,1 @@
+Default IP:Port:    172.16.0.22:1001
--- 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;