+ }
+ $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))