Changeset c631d1a for gutenbach/debian/lib/gutenbach-filter

Timestamp:

Nov 25, 2009, 2:10:09 AM (15 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

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

Children:

af7788c

Parents:

331360d

git-author:

Jessica B. Hamrick <jhamrick@…> (11/25/09 02:10:09)

git-committer:

Jessica B. Hamrick <jhamrick@…> (11/25/09 02:10:09)

Message:

Changed 'sipbmp3' to 'gutenbach' by popular demand. Have not checked for errors, yet.

File:

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

gutenbach/debian/lib/gutenbach-filter

@@ -1 @@
-#!/usr/bin/perl
+#!/usr/athena/bin/perl
 # 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
@@ -23 +23 @@
 use IPC::Open2;
 
-my $zephyr_class = "lprmp3";
-my $host = "hostname";
-my $queue = "printername";
+my $zephyr_class = "gutenbach";
+my $host = `hostname`;
+my $queue = "gutenbach";
+my $mixer = "PCM";
+my $channel = "Front Left";
 
 # Configuration
-my $config_file = "/usr/lib/sipbmp3/config/sipbmp3-filter-config.pl";
+my $config_file = "/usr/lib/gutenbach/config/gutenbach-filter-config.pl";
 if (-r $config_file) {
     # Inline the configuration file
@@ -40 +42 @@
 
 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";
@@ -95 +97 @@
 # Status messages at start of playback
 open(ZEPHYR, '|/usr/athena/bin/zwrite -d -n -c '. $zephyr_class .' -i ' .
-  $queue.'@'.$host.' -s "SIPB LPR music spooler"');
+  $queue.'@'.$host.' -s "Gutenbach Music Spooler"');
 
 # 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");
 
 print(ZEPHYR "$opts{'n'}\@$opts{'H'} is playing:\n");
@@ -106 +108 @@
 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 '.
-        $queue.'@'.$host.' -s "SIPB LPR music spooler"');
+        $queue.'@'.$host.' -s "Gutenbach Music Spooler"');
     print(ZEPH "Playback aborted.\n");
     close(ZEPH);
@@ -266 +268 @@
     # Prepare to write status:
     open(ZEPHYR, '|/usr/athena/bin/zwrite -d -n -c '.$zephyr_class.' -i ' .
-         $queue.'@'.$host.' -s "SIPB LPR music spooler"');
+         $queue.'@'.$host.' -s "Gutenbach Music Spooler"');
     
     # fork for mpg123
@@ -290 +292 @@
         
         close(ZEPHYR);
-        open(STATUS, '>', '/var/run/sipbmp3/status');
+        open(STATUS, '>', '/var/run/gutenbach/status');
         close(STATUS);
     }