[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