Changeset 7e27cc3

Timestamp:

Oct 4, 2008, 3:50:26 AM (16 years ago)

Author:

root <root>

Branches:

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

Children:

4cc6b4d

Parents:

c711ed9

git-author:

root <root> (10/04/08 03:50:26)

git-committer:

root <root> (10/04/08 03:50:26)

Message:

from quentin: split_playlist

File:

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

gutenbach/debian/lib/sipbmp3-filter

@@ -2 +2 @@
 # Play the data on STDIN as an audio file
 #
-# $Id: sipbmp3-filter,v 1.18 2008-09-28 23:36:26 geofft Exp $
+# $Id: sipbmp3-filter,v 1.19 2008-10-04 07:50:26 root Exp $
 # $Source: /tmp/tmp.UFBNno9997/RCS/sipbmp3-filter,v $
 #
@@ -82 +82 @@
     }
 }
+elsif ($opts{'C'} eq 'Z') {
+    $filepath = resolve_external_reference($filepath, \%opts);
+}
 elsif (-T $filepath) {
-    $filepath = resolve_external_reference($filepath, \%opts);
-}
+    split_playlist($filepath, \%opts);
+    close(ZEPHYR);
+    exit 0;
+}
+#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'));
 close(ZEPHYR);
 play_mplayer_audio($filepath, \%opts);
@@ -129 +137 @@
 }
 
+sub split_playlist {
+    my ($file, $opts) = @_;
+
+    my $i = 0;
+    
+    while (<STDIN>) {
+        chomp;
+        if (/^([^#]\S+)/) {
+            printf (STDERR "Found line: %s\n", $_);
+            open(LPR, "|-", qw/mit-lpr -Psipbmp3@localhost -CZ/, '-J'.$opts->{J});
+            print LPR $1;
+            close(LPR);
+        $i++;
+        }
+    }
+    printf(ZEPHYR "Playlist containing %d valid entries, split into separate jobs.\n", $i);
+}
+
 # Process a Shoutcast playlist
 # get_shoutcast(URI)