[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 ea5a9d3d255e36c0fcd74741268a607523cf3a42
Author: legatvs <legatvs at gmail.com>
Date:   Sun Mar 22 16:44:17 2009 +0200

    Fix dmotion ID extraction.

diff --git a/clive b/clive
index 017e704..355a8b7 100755
--- a/clive
+++ b/clive
@@ -820,14 +820,14 @@ sub handle_evisor {
 
 sub handle_dmotion {
     my $resp = shift;
+
     my %re = (
-        GrabID => qr|/swf/(.*?)"|,
+        GrabID => qr|swf%2F(.*?)"|,
         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