Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

poc-innen mit korrektem blinkverhalten ausgestattet

  • Loading branch information...
commit 581fd135178f5b63587154da1fa23ee6749929ec 1 parent b51e43d
@stapelberg stapelberg authored
Showing with 3 additions and 2 deletions.
  1. +3 −2 poc-innen/innen.pl
View
5 poc-innen/innen.pl
@@ -98,10 +98,11 @@ sub handle_pin {
say "PIN $pin was entered";
if ($pin eq '3344') {
- $p->write("^LED 1 2\$\n");
+ $p->write("^LED 2 2\$\n");
+ $p->write("^BEEP 2 \$\n");
$p->write_drain while buffer($p, 'out') > 0;
} else {
- $p->write("^LED 2 2\$\n");
+ $p->write("^LED 1 2\$\n");
$p->write("^BEEP 2 \$\n");
$p->write_drain while buffer($p, 'out') > 0;
}
Please sign in to comment.
Something went wrong with that request. Please try again.