[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