--- a/lib/Quancom.pm Tue Jan 06 10:56:28 2009 +0100
+++ b/lib/Quancom.pm Tue Jan 06 15:07:03 2009 +0100
@@ -81,6 +81,21 @@
$self->cmd("WB 0007 00");
}
+sub set_timeout {
+ my $self = shift;
+ my $to = shift;
+
+ # timeout 3 (2.8s)
+ # [__--.-___]
+ # 1 1 0x18
+ # 1 0x58
+ $to = sprintf "%02x", ($to << 3 | 0x42);
+ $self->cmd("SL 0007 00.00.00.$to");
+}
+
+sub clear_timeout {
+}
+
sub TIESCALAR {
my $class = shift;
my ($ip) = @_;
@@ -102,7 +117,7 @@
my $self = shift;
my $cmd = shift;
- $cmd =~ s/[^A-Z\d]//g;
+ $cmd =~ s/[^A-Z\d]//ig;
$self->{job} = ++$self->{job} % 255; # cap the job id on 255;
$cmd = $STX . sprintf("%02x", $self->{job}) . $cmd; # add STX and job id