[SCM] Video extraction utility for YouTube, Google Video and other video sites (Debian packaging) branch, master, updated. upstream/2.1.7-214-g6762190

legatvs legatvs at gmail.com
Wed Apr 1 14:45:23 UTC 2009


The following commit has been merged in the master branch:
commit 1c3cf2a00ef142ca75a065d8f48c35e048afeec0
Author: legatvs <legatvs at gmail.com>
Date:   Thu Mar 26 21:02:00 2009 +0200

    Fix Break support (content-type changes).

diff --git a/clive b/clive
index 14fe940..ed31e5b 100755
--- a/clive
+++ b/clive
@@ -422,13 +422,12 @@ sub query_video_length
                 $content_ok = 1;
             }
 
-            # Break, Evisor and Metacafe return "text/plain" for Content-Type
+            # Evisor and Metacafe return "text/plain" for Content-Type
             elsif ($content_type =~ m{text/plain})
             {
                 if ($opts{format} eq "flv")
                 {
-                    if (   $entry{page_url} =~ /$re_hosts{IsBreak}/
-                        or $entry{page_url} =~ /$re_hosts{IsEvisor}/)
+                    if ($entry{page_url} =~ /$re_hosts{IsEvisor}/)
                     {
 
                         #or $entry{page_url} =~ /$re_hosts{IsMetacafe}/ ) {
@@ -438,12 +437,13 @@ sub query_video_length
                 }
             }
 
-            # Liveleak returns "flv-application/octet-stream"
-            elsif ($content_type =~ m{flv-application/octet-stream})
+            # Liveleak and Break return "(flv-)application/octet-stream"
+            elsif ($content_type =~ m{application/octet-stream})
             {
-                if ($entry{page_url} =~ /$re_hosts{IsLiveleak}/)
+                if ($opts{format} eq "flv")
                 {
-                    if ($opts{format} eq "flv")
+                    if (   $entry{page_url} =~ /$re_hosts{IsBreak}/
+                        or $entry{page_url} =~ /$re_hosts{IsLiveleak}/)
                     {
                         $entry{file_suffix} = 'flv';
                         $content_ok = 1;

-- 
Video extraction utility for YouTube, Google Video and other video sites (Debian packaging)



More information about the Pkg-perl-cvs-commits mailing list