[SCM] Video extraction utility for YouTube, Google Video and other video sites (Debian packaging) branch, master, updated. upstream/2.1.7-214-g6762190

[legatvs]

The following commit has been merged in the master branch:
commit 67bad41206b8a602f8cabf28699461a2ca0d6686
Author: legatvs <legatvs at gmail.com>
Date:   Thu Feb 5 15:06:40 2009 +0200

    Fixed sevenload support.

diff --git a/CHANGES b/CHANGES
index 7b527b3..196d22d 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,5 +1,8 @@
 Version 2.1.5
 
+ User-visible changes:
+  * Fixed sevenload support
+
 
 Version 2.1.4
 (February 1, 2009)
diff --git a/clive b/clive
index 656c674..ecb1b31 100755
--- a/clive
+++ b/clive
@@ -1264,8 +1264,9 @@ sub fetch_sevenload_configxml {
         my $xml = XMLin($conf_xml);
         #use Data::Dumper; print Dumper($xml);
         $title  = $xml->{playlists}{playlist}{items}{item}{title};
-        $id     = $xml->{playlists}{playlist}{items}{item}{id}; # Monstrous.
-        $xurl   = $xml->{playlists}{playlist}{items}{item}{videos}{video}{url};
+        $id     = $xml->{playlists}{playlist}{items}{item}{id};
+        $xurl   = $xml->{playlists}{playlist}{items}{item} # Monstrous.
+                    {videos}{video}{streams}{stream}{locations}{location}{content};
     } else {
         print STDERR "\nerror: " . $curl->strerror($rc) . " (http/$rc)\n";
     }

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