Changeset 2e8b589 for gutenbach/debian/lib/gutenbach-filter

Timestamp:

Jun 24, 2010, 1:27:07 AM (14 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups, nodebathena, web

Children:

d988d9d

Parents:

e5529cd

git-author:

Jessica B. Hamrick <jhamrick@…> (12/12/09 18:08:33)

git-committer:

Jessica B. Hamrick <jhamrick@…> (06/24/10 01:27:07)

Message:

Updated paths and filenames to the correct values for the gutenbach package.

File:

• gutenbach/debian/lib/gutenbach-filter (moved) (moved from gutenbach/debian/lib/sipbmp3-filter) (12 diffs)

gutenbach/debian/lib/gutenbach-filter

@@ -2 +2 @@
 # Play the data on STDIN as an audio file
 #
-# $Id: sipbmp3-filter,v 1.26 2009/02/20 00:27:17 geofft Exp root $
-# $Source: /usr/local/bin/RCS/sipbmp3-filter,v $
+# $Id: gutenbach-filter,v 1.26 2009/02/20 00:27:17 geofft Exp root $
+# $Source: /usr/local/bin/RCS/gutenbach-filter,v $
 #
 # TODO
@@ -25 +25 @@
 my $zephyr_class = "sipb-test";
 my $host = `hostname`;
-my $queue = "sipbmp3";
+my $queue = "gutenbach";
 
 # Configuration
-my $config_file = "/etc/sipbmp3-filter-config.pl";
+my $config_file = "/usr/lib/gutenbach/gutenbach-filter-config.pl";
 if (-r $config_file) {
     # Inline the configuration file
@@ -40 +40 @@
 
 close(STDERR);
-open(STDERR, ">>", "/tmp/sipbmp3.log") or warn "Couldn't open log: $!";
+open(STDERR, ">>", "/tmp/gutenbach.log") or warn "Couldn't open log: $!";
 
 $ENV{"TERM"}="vt100";
@@ -98 +98 @@
 
 # For the Now Playing remctl command
-open(STATUS, '>', '/var/run/sipbmp3/status') or die("Can't open status file /var/run/sipbmp3/status");
+open(STATUS, '>', '/var/run/gutenbach/status') or die("Can't open status file /var/run/gutenbach/status");
+
+# For the Now Playing local command
+open(CURRENT, '>', '/var/run/gutenbach/current') or die("Can't open status file /var/run/sipbp3/current");
 
 print(ZEPHYR "$opts{'n'}\@$opts{'H'} is playing:\n");
 print(STATUS "User: $opts{'n'}\@$opts{'H'}\n");
+print(CURRENT "$opts{'n'}\@$opts{'H'} is playing:\n");
 
 # SIGHUP handler
 sub clear_status {
     # Possible race condition if the previous status is still going
-    open(STA, '>', '/var/run/sipbmp3/status');
+    open(STA, '>', '/var/run/gutenbach/status');
     close(STA);
     open(ZEPH, '|/usr/athena/bin/zwrite -d -n -c '. $zephyr_class .' -i '.
@@ -112 +116 @@
     print(ZEPH "Playback aborted.\n");
     close(ZEPH);
+    open(CURRENT, '|/usr/athena/bin/zwrite -d -n -c '. $zephyr_class .' -i '.
+        $queue.'@'.$host.' -s "SIPB LPR music spooler"');
+    close(CURRENT);
     die;
 }
@@ -125 +132 @@
 if ($magic) {
     printf(ZEPHYR "%s file %s\n", $magic, $opts{'J'});
+    printf(CURRENT "%s file %s\n", $magic, $opts{'J'});
     printf(STATUS "Filetype: %s\n", $magic);
     printf(STATUS "Filename: %s\n", $opts{'J'});
     if (exists $fileinfo->{'Title'}) {
         printf(ZEPHYR "\@b{%s}\n", $fileinfo->{'Title'}) if exists $fileinfo->{'Title'};
+        printf(CURRENT "\@b{%s}\n", $fileinfo->{'Title'}) if exists $fileinfo->{'Title'};
         printf(STATUS "Title: %s\n", $fileinfo->{'Title'});
     }
@@ -134 +143 @@
         if (exists $fileinfo->{$key}) {
             printf(ZEPHYR "%s\n", $fileinfo->{$key}) if exists $fileinfo->{$key};
+            printf(CURRENT "%s\n", $fileinfo->{$key}) if exists $fileinfo->{$key};
             printf(STATUS "%s: %s\n", $key, $fileinfo->{$key});
         }
@@ -150 +160 @@
         $title = "";
         print ZEPHYR "YouTube video $filepath\n$title";
+        print CURRENT "YouTube video $filepath\n$title";
         print STATUS "YouTube video $filepath\n$title";
         $filepath = <$out>;
@@ -157 +168 @@
         print STDERR "Resolved external reference to $filepath\n";
         printf(ZEPHYR "%s\n", $filepath);
+        printf(CURRENT "%s\n", $filepath);
         printf(STATUS "External: %s\n", $filepath);
     }
@@ -163 +175 @@
     split_playlist($filepath, \%opts);
     close(ZEPHYR);
+    close(CURRENT);
     close(STATUS);
     exit 0;
@@ -170 +183 @@
 #printf(ZEPHYR "Job priority %s\n", $opts{'C'}) if ($opts{'C'} && ($opts{'C'} ne 'A'));
 close(ZEPHYR);
+close(CURRENT);
 close(STATUS);
 play_mplayer_audio($filepath, \%opts);
@@ -291 +305 @@
         
         close(ZEPHYR);
-        open(STATUS, '>', '/var/run/sipbmp3/status');
+        open(STATUS, '>', '/var/run/gutenbach/status');
         close(STATUS);
     }