Changeset c711ed9 for gutenbach/debian


Ignore:
Timestamp:
Sep 28, 2008, 7:36:26 PM (16 years ago)
Author:
geofft <geofft>
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)
Message:

make the zephyrs shorter

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gutenbach/debian/lib/sipbmp3-filter

    rf3974e2 rc711ed9  
    22# Play the data on STDIN as an audio file
    33#
    4 # $Id: sipbmp3-filter,v 1.17 2008-09-27 21:35:09 root Exp $
     4# $Id: sipbmp3-filter,v 1.18 2008-09-28 23:36:26 geofft Exp $
    55# $Source: /tmp/tmp.UFBNno9997/RCS/sipbmp3-filter,v $
    66#
     
    1313#
    1414# Jered Floyd <jered@mit.edu> takes very little credit for this code
     15# apparently neither does Quentin Smith <quentin@mit.edu>
    1516
    1617use Getopt::Std;
     
    6566open(ZEPHYR, '|/usr/athena/bin/zwrite -d -n -c sipb-auto -i ' .
    6667  'sipbmp3@zsr -s "SIPB LPR music spooler"');
    67 print(ZEPHYR "User $opts{'n'} on host $opts{'H'} is playing:\n");
     68print(ZEPHYR "$opts{'n'}\@$opts{'H'} is playing:\n");
    6869
    6970# So, the file we're currently processing is "-d/-e".
     
    7576
    7677if ($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};
    8082    }
    8183}
     
    187189      open(STDIN, "/dev/null");
    188190      #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) ||
    190192          die "Couldn't exec";
    191193  }
Note: See TracChangeset for help on using the changeset viewer.