Changeset 06133dc

Timestamp:

Oct 5, 2008, 7:55:59 PM (16 years ago)

Author:

quentin <quentin>

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)

Message:

stop using getopt, since it's Wrong.

File:

• gutenbach/debian/lib/sipbmp3-filter (modified) (4 diffs)

gutenbach/debian/lib/sipbmp3-filter

@@ -2 +2 @@
 # Play the data on STDIN as an audio file
 #
-# $Id: sipbmp3-filter,v 1.20 2008-10-04 07:51:29 root Exp $
+# $Id: sipbmp3-filter,v 1.21 2008-10-05 23:55:59 quentin Exp $
 # $Source: /tmp/tmp.UFBNno9997/RCS/sipbmp3-filter,v $
 #
@@ -14 +14 @@
 # Jered Floyd <jered@mit.edu> takes very little credit for this code
 # apparently neither does Quentin Smith <quentin@mit.edu>
-
-use Getopt::Std;
 
 use Image::ExifTool qw(ImageInfo);
@@ -60 +58 @@
 # accounting file name
 
-# All the filter_options from lpd
-getopt('ACFHJLPQRZacdefhijklnprswxy', \%opts);
+printf(STDERR "Got \@ARGV: %s\n", Dumper(\@ARGV));
+
+my %opts;
+
+my @NEWARGV;
+
+foreach my $arg (@ARGV) {
+  if ($arg =~ m/^-([a-zA-Z])(.*)$/) {
+    $opts{$1} = $2;
+  } else {
+    push @NEWARGV, @ARGV;
+  }
+}
+
+@ARGV = @NEWARGV;
 
 # Status messages at start of playback
@@ -90 +101 @@
     exit 0;
 }
-#printf(STDERR Dumper(\%opts));
+printf(STDERR Dumper(\%opts));
 #printf(STDERR "Job priority %s\n", $opts{'C'}) if $opts{'C'} eq 'Z';
 #printf(ZEPHYR "Job priority %s\n", $opts{'C'}) if ($opts{'C'} && ($opts{'C'} ne 'A'));