Changeset 06133dc for gutenbach/debian
- Timestamp:
- Oct 5, 2008, 7:55:59 PM (16 years ago)
- Branches:
- master, debian, mac, no-cups, nodebathena, web
- Children:
- 73cfabc
- Parents:
- 4cc6b4d
- git-author:
- quentin <quentin> (10/05/08 19:55:59)
- git-committer:
- quentin <quentin> (10/05/08 19:55:59)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gutenbach/debian/lib/sipbmp3-filter
r4cc6b4d r06133dc 2 2 # Play the data on STDIN as an audio file 3 3 # 4 # $Id: sipbmp3-filter,v 1.2 0 2008-10-04 07:51:29 rootExp $4 # $Id: sipbmp3-filter,v 1.21 2008-10-05 23:55:59 quentin Exp $ 5 5 # $Source: /tmp/tmp.UFBNno9997/RCS/sipbmp3-filter,v $ 6 6 # … … 14 14 # Jered Floyd <jered@mit.edu> takes very little credit for this code 15 15 # apparently neither does Quentin Smith <quentin@mit.edu> 16 17 use Getopt::Std;18 16 19 17 use Image::ExifTool qw(ImageInfo); … … 60 58 # accounting file name 61 59 62 # All the filter_options from lpd 63 getopt('ACFHJLPQRZacdefhijklnprswxy', \%opts); 60 printf(STDERR "Got \@ARGV: %s\n", Dumper(\@ARGV)); 61 62 my %opts; 63 64 my @NEWARGV; 65 66 foreach my $arg (@ARGV) { 67 if ($arg =~ m/^-([a-zA-Z])(.*)$/) { 68 $opts{$1} = $2; 69 } else { 70 push @NEWARGV, @ARGV; 71 } 72 } 73 74 @ARGV = @NEWARGV; 64 75 65 76 # Status messages at start of playback … … 90 101 exit 0; 91 102 } 92 #printf(STDERR Dumper(\%opts));103 printf(STDERR Dumper(\%opts)); 93 104 #printf(STDERR "Job priority %s\n", $opts{'C'}) if $opts{'C'} eq 'Z'; 94 105 #printf(ZEPHYR "Job priority %s\n", $opts{'C'}) if ($opts{'C'} && ($opts{'C'} ne 'A'));
Note: See TracChangeset
for help on using the changeset viewer.