Changeset f6c9736 for gutenbach/debian

Timestamp:

Mar 1, 2009, 7:42:30 AM (16 years ago)

Author:

Geoffrey Thomas <geofft@…>

Branches:

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

Children:

a19df84

Parents:

014f817

git-author:

Geoffrey Thomas <geofft@…> (03/01/09 07:42:30)

git-committer:

Geoffrey Thomas <geofft@…> (03/01/09 07:42:30)

Message:

Support YouTube? videos.

Requires youtube-dl to be installed.

File:

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

gutenbach/debian/lib/sipbmp3-filter

@@ -21 +21 @@
 use LWP::UserAgent;
 use Data::Dumper;
+use IPC::Open2;
 
 my $zephyr_class = "sipb-auto";
@@ -143 +144 @@
 elsif ($opts{'C'} eq 'Z') {
     $filepath = resolve_external_reference($filepath, \%opts);
-    print STDERR "Resolved external reference to $filepath\n";
-    printf(ZEPHYR "%s\n", $filepath);
-    printf(STATUS "External: %s\n", $filepath);
+    if ($filepath =~ m|http://www\.youtube\.com/watch\?v=|) {
+        $pid = open2($out, $in, qw{youtube-dl -g2}, $filepath);
+        $title = <$out>;
+        print ZEPHYR "YouTube video $filepath\n$title";
+        print STATUS "YouTube video $filepath\n$title";
+        $filepath = <$out>;
+        chomp $filepath;
+        waitpid $pid, 0;
+    } else {
+        print STDERR "Resolved external reference to $filepath\n";
+        printf(ZEPHYR "%s\n", $filepath);
+        printf(STATUS "External: %s\n", $filepath);
+    }
 }
 elsif (-T $filepath) {
@@ -174 +185 @@
     if (<STDIN> =~ /^(\S+)/) {
         $uri=$1;
+
+        if ($uri =~ m|http://www\.youtube\.com/watch\?v=|) {
+            return $uri;
+        }
 
         my $response = $ua->head($uri);