We need Aqua binding for CoreAudio

dmx/amplifierPower.pl

@@ -23,7 +23,7 @@ my $PUSH_TIMEOUT = 20;
 my $PULL_TIMEOUT = $PUSH_TIMEOUT * 3;
 my $DELAY        = $PULL_TIMEOUT / 2;
 my $START_DELAY  = 3.5;
-my @AUDIO_SET    = ('SwitchAudioSource', '-s');
+my @AUDIO_SET    = ('/Users/tv/bin/SwitchAudioSource', '-s');
 
 # Debug
 my $DEBUG = 0;

dmx/launchd/com.uberzach.amplifierPower.plist

@@ -4,6 +4,8 @@
 <dict>
 	<key>UserName</key>
 	<string>tv</string>
+	<key>LimitLoadToSessionType</key>
+	<string>Aqua</string>
 	<key>LimitLoadToHosts</key>
 	<array>
 		<string>heady.uberzach.com</string>
@@ -26,5 +28,14 @@
 	<array>
 		<string>/Users/tv/bin/video/dmx/amplifierPower.pl</string>
 	</array>
-</dict>
+	<!--
+		<key>EnvironmentVariables</key>
+		<dict>
+			<key>DEBUG</key>
+			<string>1</string>
+		</dict>
+		<key>StandardErrorPath</key>
+		<string>/Users/tv/com.uberzach.ampliferPower_errlog.txt</string>
+	-->
+	</dict>
 </plist>