lib/Quancom.pm
changeset 18 a6bc8818d069
parent 17 ecc10b50b7a6
child 19 6acf8ea44e0a
--- 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