|
@@ -55,7 +55,9 @@ if (basename($0) =~ /PROJECTOR/i) {
|
|
|
);
|
|
);
|
|
|
} elsif (basename($0) =~ /AMPLIFIER/i) {
|
|
} elsif (basename($0) =~ /AMPLIFIER/i) {
|
|
|
$DEV = 'Amplifier';
|
|
$DEV = 'Amplifier';
|
|
|
|
|
+ $PORT = '/dev/tty.usbserial-AK06MIYD';
|
|
|
$BLUETOOTH = 0;
|
|
$BLUETOOTH = 0;
|
|
|
|
|
+ $BAUD = 9600;
|
|
|
$CRLF = "\r";
|
|
$CRLF = "\r";
|
|
|
$DELIMITER = "\r";
|
|
$DELIMITER = "\r";
|
|
|
%CMDS = (
|
|
%CMDS = (
|
|
@@ -82,12 +84,6 @@ if (basename($0) =~ /PROJECTOR/i) {
|
|
|
|
|
|
|
|
);
|
|
);
|
|
|
|
|
|
|
|
- $PORT = `$ENV{'HOME'}/bin/video/serial/findDevice.sh 1d131000`;
|
|
|
|
|
- $PORT =~ s/\s*$//;
|
|
|
|
|
- if (!($PORT =~ /^\/dev\/tty\.usbserial/)) {
|
|
|
|
|
- die("Unable to find serial device by USB location\n");
|
|
|
|
|
- }
|
|
|
|
|
-
|
|
|
|
|
%STATUS_CMDS = (
|
|
%STATUS_CMDS = (
|
|
|
'STATUS' => { 'MATCH' => [ qr/^PW/, qr/$CMDS{'ON'}/ ] },
|
|
'STATUS' => { 'MATCH' => [ qr/^PW/, qr/$CMDS{'ON'}/ ] },
|
|
|
'MODE' => { 'EVAL' => [ qr/^MS/, 'if ($a =~ /STEREO/i) { $a = "STEREO" } elsif ($a =~ /MS(?:DOLBY|DTS)/i) { $a = "SURROUND" }' ] },
|
|
'MODE' => { 'EVAL' => [ qr/^MS/, 'if ($a =~ /STEREO/i) { $a = "STEREO" } elsif ($a =~ /MS(?:DOLBY|DTS)/i) { $a = "SURROUND" }' ] },
|
Zach Isbach