diff -r ecc10b50b7a6 -r a6bc8818d069 examples/client --- a/examples/client Tue Jan 06 10:56:28 2009 +0100 +++ b/examples/client Tue Jan 06 15:07:03 2009 +0100 @@ -14,8 +14,16 @@ my $r; # reset - $r = $q->full_reset; - print $r->ok ? $r->data : $r->error_message, "\n"; + $q->full_reset->ok or die $q->last_result->error_message; + + # does not work + #$q->cmd("RB 0007")->ok or die $q->last_result->error_message; + #print "***: " . $q->last_result->data . "\n"; + #$q->set_timeout(5)->ok or die $q->last_result->error_message; + #$q->cmd("WB 0100 FF")->ok or die $q->last_result->error_message; + #$q->cmd("RB 0007")->ok or die $q->last_result->error_message; + #print "***: " . $q->last_result->data . "\n"; + #exit; foreach ( qw( @@ -28,21 +36,22 @@ WL.0100.00.55.00.55 SL.0100.00.55.00.55 CL.0100.00.55.00.55 + WX.0100.FF.FF.FF.FF.FF.FF.FF.FF ) ) { $r = $q->cmd($_); print "err: " . $r->error_message . "\n" if not $r->ok; - /.(.)\.(....)/; - $r = $q->cmd("R$1$2"); - if ($r->ok) { - print "got: " . $r->data . "\n"; - } - else { - print "err: " . $r->error_message . "\n" if not $r->ok; - } - sleep 1; + /.(.)\.(....)/; + $r = $q->cmd("R$1$2"); + if ($r->ok) { + print "got: " . $r->data . "\n"; + } + else { + print "err: " . $r->error_message . "\n" if not $r->ok; + } + sleep 1; } }