#! /usr/bin/perl

# should probably called on blib environment:
# perl -Mblib examples/client ...

use strict;
use warnings;
use Quancom;
use Data::Dumper;

MAIN: {
    my $q = new Quancom $ARGV[0];

    my $r;

    # reset
    $r = $q->full_reset;
    print $r->ok ? $r->data : $r->error_message, "\n";

    foreach (
        qw(
        WX.0100.FF.FF.FF.FF.FF.FF.FF.FF
        WX.0100.00.00.00.00.00.00.00.00
        WB.0100.FF
        WB.0100.01
        WB.0100.55
        WB.0100.AA
        WL.0100.00.55.00.55
        SL.0100.00.55.00.55
        CL.0100.00.55.00.55
        )
      )
    {
        $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;
    }

}

