+ }
+ elsif ($fh == $ttyusb)
+ {
+ my $ttyusb_msg = readline($fh);
+ last unless ($ttyusb_msg);
+ #print($ttyusb_msg);
+ door_log($door_ttyusb_dev.": ".$ttyusb_msg);
+ if ($ttyusb_msg =~ /took too long!/)
+ {
+ door_log("Got '".$ttyusb_msg."'. Sending Reset..");
+ print $ttyusb "r";
+ $main::tuer_status=$main::door_closed;
+ $main::tuer_future_status=$main::tuer_status;
+ last;
+ }
+ $main::tuer_status = $main::tuer_future_status if $ttyusb_msg =~ /^Ok/;
+ my $tuer=$main::tuer_status;
+ $tuer=$main::door_open if $ttyusb_msg =~ /open/;
+ $tuer=$main::door_closed if $ttyusb_msg =~ /close|closing/;
+ door_log("$tuer");
+ if (not ($tuer == $main::tuer_status))