[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:18 UTC 2009


The following commit has been merged in the master branch:
commit 668330061a738664a49216aeef5e57e256736330
Author: legatvs <legatvs at gmail.com>
Date:   Sun Mar 22 16:32:39 2009 +0200

    Fix dmotion video ID extraction.

diff --git a/clive b/clive
index 6e86c74..017e704 100755
--- a/clive
+++ b/clive
@@ -821,12 +821,13 @@ sub handle_evisor {
 sub handle_dmotion {
     my $resp = shift;
     my %re = (
-        GrabID => qr|/swf/(.*?)\?|,
+        GrabID => qr|/swf/(.*?)"|,
         GrabPaths => qr|"video", "(.*?)"|
     );
 
     my ($id, at paths);
     $id         = $1 if $$resp =~ /$re{GrabID}/;
+    die $id;
     my $paths   = URI::Escape::uri_unescape($1)
         if $$resp =~ /$re{GrabPaths}/;
 

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



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