- my $ttyS_msg = <$fh>;
- #last unless ($ttyS_msg);
- print($ttyS_msg);
- door_log($door_ttyS.": ".$ttyS_msg);
- my $tuer=$main::tuer_status;
- $tuer=$main::door_open if $ttyS_msg =~ /open/;
- $tuer=$main::door_closed if $ttyS_msg =~ /close/;
- if ($tuer != $main::tuer_status)
+ 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))
+ {
+ $main::tuer_status=$tuer;
+ if ($tuer == $main::door_open)
+ {
+ door_log("change to opened");
+ #print "change to open\n";
+ system('wget --no-check-certificate -q -O /dev/null "'.$url_door_open.'" &>/dev/null &');
+ }
+ else