[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