# HG changeset patch # User Heiko Schlittermann # Date 1231230677 -3600 # Node ID 246d80ec66536f79e788a062ffac07bbff48e886 # Parent 2d41fac09084207b97515ec57e38dfc914a10130 Added RESET test to examples/client. diff -r 2d41fac09084 -r 246d80ec6653 README --- /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 diff -r 2d41fac09084 -r 246d80ec6653 examples/client --- 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;