Changeset c711ed9 for gutenbach/debian
- Timestamp:
- Sep 28, 2008, 7:36:26 PM (16 years ago)
- Branches:
- master, debian, mac, no-cups, nodebathena, web
- Children:
- 7e27cc3
- Parents:
- f3974e2
- git-author:
- geofft <geofft> (09/28/08 19:36:26)
- git-committer:
- geofft <geofft> (09/28/08 19:36:26)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gutenbach/debian/lib/sipbmp3-filter
rf3974e2 rc711ed9 2 2 # Play the data on STDIN as an audio file 3 3 # 4 # $Id: sipbmp3-filter,v 1.1 7 2008-09-27 21:35:09 root Exp $4 # $Id: sipbmp3-filter,v 1.18 2008-09-28 23:36:26 geofft Exp $ 5 5 # $Source: /tmp/tmp.UFBNno9997/RCS/sipbmp3-filter,v $ 6 6 # … … 13 13 # 14 14 # Jered Floyd <jered@mit.edu> takes very little credit for this code 15 # apparently neither does Quentin Smith <quentin@mit.edu> 15 16 16 17 use Getopt::Std; … … 65 66 open(ZEPHYR, '|/usr/athena/bin/zwrite -d -n -c sipb-auto -i ' . 66 67 'sipbmp3@zsr -s "SIPB LPR music spooler"'); 67 print(ZEPHYR " User $opts{'n'} on host$opts{'H'} is playing:\n");68 print(ZEPHYR "$opts{'n'}\@$opts{'H'} is playing:\n"); 68 69 69 70 # So, the file we're currently processing is "-d/-e". … … 75 76 76 77 if ($magic) { 77 printf(ZEPHYR "A file of type %s.\n", $magic); 78 foreach my $key (qw/Title Artist Album AlbumArtist Tracknumber TrackDuration MIMEType/) { 79 printf(ZEPHYR "%s: %s\n", $key, $fileinfo->{$key}) if exists $fileinfo->{$key}; 78 printf(ZEPHYR "%s file %s\n", $magic, $opts{'J'}); 79 printf(ZEPHYR "\@b(%s)\n", $fileinfo->{'Title'}) if exists $fileinfo->{'Title'}; 80 foreach my $key (qw/Artist Album AlbumArtist Tracknumber TrackDuration/) { 81 printf(ZEPHYR "%s\n", $fileinfo->{$key}) if exists $fileinfo->{$key}; 80 82 } 81 83 } … … 187 189 open(STDIN, "/dev/null"); 188 190 #print STDERR Dumper([qw|/usr/bin/mplayer -nolirc -ao alsa -quiet|, $filepath]); 189 exec(qw|/usr/bin/mplayer -nolirc -ao alsa - quiet|, $filepath) ||191 exec(qw|/usr/bin/mplayer -nolirc -ao alsa -really-quiet|, $filepath) || 190 192 die "Couldn't exec"; 191 193 }
Note: See TracChangeset
for help on using the changeset viewer.