|
|
@@ -0,0 +1,129 @@
|
|
|
+#!/usr/bin/perl
|
|
|
+use strict;
|
|
|
+use warnings;
|
|
|
+use File::Temp qw( tempfile );
|
|
|
+use Time::HiRes qw( usleep sleep time );
|
|
|
+use IPC::System::Simple qw( system capture );
|
|
|
+
|
|
|
+# Local modules
|
|
|
+use Cwd qw(abs_path);
|
|
|
+use File::Basename qw(dirname);
|
|
|
+use lib dirname(abs_path($0));
|
|
|
+use DMX;
|
|
|
+
|
|
|
+# Config
|
|
|
+my $USB_DEV = 'USB Audio CODEC ';
|
|
|
+my $AMP_DEV = 'Built-in Output';
|
|
|
+my $DEFAULT_DEV = $USB_DEV;
|
|
|
+
|
|
|
+# App config
|
|
|
+my $DATA_DIR = DMX::dataDir();
|
|
|
+my $OUTPUT_FILE = $DATA_DIR . 'AUDIO';
|
|
|
+my $STATE_SOCK = $OUTPUT_FILE . '.socket';
|
|
|
+my $PUSH_TIMEOUT = 20;
|
|
|
+my $PULL_TIMEOUT = $PUSH_TIMEOUT * 3;
|
|
|
+my $DELAY = 1;
|
|
|
+my @AUDIO_CMD = ('/Users/tv/bin/SwitchAudioSource');
|
|
|
+my @AUDIO_GET = (@AUDIO_CMD, '-c');
|
|
|
+my @AUDIO_SET = (@AUDIO_CMD, '-s');
|
|
|
+
|
|
|
+# Debug
|
|
|
+my $DEBUG = 0;
|
|
|
+if ($ENV{'DEBUG'}) {
|
|
|
+ $DEBUG = 1;
|
|
|
+}
|
|
|
+
|
|
|
+# Sockets
|
|
|
+DMX::stateSocket($STATE_SOCK);
|
|
|
+DMX::stateSubscribe($STATE_SOCK);
|
|
|
+
|
|
|
+# State
|
|
|
+my $state = 'OFF';
|
|
|
+my $device = $DEFAULT_DEV;
|
|
|
+my $deviceLast = '';
|
|
|
+my $cmdDevice = $device;
|
|
|
+my %exists = ();
|
|
|
+my $pushLast = 0;
|
|
|
+my $pullLast = time();
|
|
|
+my $update = 0;
|
|
|
+
|
|
|
+# Always force the output to default at launch
|
|
|
+system(@AUDIO_SET, $DEFAULT_DEV);
|
|
|
+
|
|
|
+# Loop forever
|
|
|
+while (1) {
|
|
|
+
|
|
|
+ # Grab the current audio output device
|
|
|
+ $deviceLast = $device;
|
|
|
+ $device = capture(@AUDIO_GET);
|
|
|
+ $device =~ s/\n$//;
|
|
|
+
|
|
|
+ # If the device has changed, save the state to disk
|
|
|
+ if ($deviceLast ne $device) {
|
|
|
+ if ($DEBUG) {
|
|
|
+ print STDERR 'New output device: ' . $deviceLast . ' => ' . $device . "\n";
|
|
|
+ }
|
|
|
+ my ($fh, $tmp) = tempfile($OUTPUT_FILE . '.XXXXXXXX', 'UNLINK' => 0);
|
|
|
+ print $fh $device . "\n";
|
|
|
+ close($fh);
|
|
|
+ rename($tmp, $OUTPUT_FILE);
|
|
|
+ }
|
|
|
+
|
|
|
+ # State is calculated; use newState to gather data
|
|
|
+ my $newState = $state;
|
|
|
+
|
|
|
+ # Wait for state updates
|
|
|
+ my $cmdState = DMX::readState($DELAY, \%exists, undef(), undef());
|
|
|
+ if (defined($cmdState)) {
|
|
|
+ $newState = $cmdState;
|
|
|
+ $pullLast = time();
|
|
|
+ }
|
|
|
+
|
|
|
+ # Die if we don't see regular updates
|
|
|
+ if (time() - $pullLast > $PULL_TIMEOUT) {
|
|
|
+ die('No update on state socket in past ' . $PULL_TIMEOUT . " seconds. Exiting...\n");
|
|
|
+ }
|
|
|
+
|
|
|
+ # Calculate the new state
|
|
|
+ if ($exists{'RAVE'}) {
|
|
|
+ $cmdDevice = $AMP_DEV;
|
|
|
+ } elsif ($exists{'AUDIO_AMP'}) {
|
|
|
+ $cmdDevice = $AMP_DEV;
|
|
|
+ } else {
|
|
|
+ $cmdDevice = $DEFAULT_DEV;
|
|
|
+ }
|
|
|
+
|
|
|
+ # Force updates on a periodic basis
|
|
|
+ if (!$update && time() - $pushLast > $PUSH_TIMEOUT) {
|
|
|
+
|
|
|
+ # Not for the audio output device
|
|
|
+ #if ($DEBUG) {
|
|
|
+ # print STDERR "Forcing periodic update\n";
|
|
|
+ #}
|
|
|
+ #$update = 1;
|
|
|
+ }
|
|
|
+
|
|
|
+ # Force updates when there is a physical state mistmatch
|
|
|
+ if (!$update && $cmdDevice ne $device) {
|
|
|
+ if ($DEBUG) {
|
|
|
+ print STDERR 'State mismatch: ' . $device . ' => ' . $cmdDevice . "\n";
|
|
|
+ }
|
|
|
+ $update = 1;
|
|
|
+ }
|
|
|
+
|
|
|
+ # Update the audio output device
|
|
|
+ if ($update) {
|
|
|
+
|
|
|
+ # Update
|
|
|
+ if ($DEBUG) {
|
|
|
+ print STDERR 'Setting output to: ' . $cmdDevice . "\n";
|
|
|
+ }
|
|
|
+ system(@AUDIO_SET, $cmdDevice);
|
|
|
+
|
|
|
+ # Update the push time
|
|
|
+ $pushLast = time();
|
|
|
+
|
|
|
+ # Clear the update flag
|
|
|
+ $update = 0;
|
|
|
+ }
|
|
|
+}
|
Zachary Kotlarek