From ad4725c3001e84581d5bca416b2bc3abc316b25b Mon Sep 17 00:00:00 2001
From: Toni Gundogdu <legatvs.git@gmail.com>
Date: Tue, 19 Apr 2011 10:54:19 +0300
Subject: [PATCH] Fix LiveLeak.pm (#11)

---
 lib/clive/Host/Liveleak.pm | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/lib/clive/Host/Liveleak.pm b/lib/clive/Host/Liveleak.pm
index bedebed..8c304ab 100644
--- a/lib/clive/Host/Liveleak.pm
+++ b/lib/clive/Host/Liveleak.pm
@@ -35,7 +35,7 @@ sub parsePage {
 
     my %re = (
         id     => qr|token=(.*?)['&]|,
-        config => qr|'config','(.*?)'|,
+        config => qr|config: "(.*?)"|,
     );
 
     my $tmp;
@@ -63,18 +63,9 @@ sub _parseConfig {
         my %re = ( file => qr|<file>(.*?)</file>| );
         my $tmp;
         if ( clive::Util::matchRegExps( \%re, \$tmp, \$content ) == 0 ) {
-            if ( $curl->fetchToMem( $tmp->{file}, \$content, "playlist" )
-                == 0 )
-            {
-                %re = ( location => qr|<location>(.*?)</location>| );
-                $tmp = undef;
-                if (clive::Util::matchRegExps( \%re, \$tmp, \$content ) == 0 )
-                {
-                    $self->{video_link} = $tmp->{location};
-                    $self->{video_link} =~ tr/ //d;
-                    return (0);
-                }
-            }
+            $self->{video_link} = $tmp->{file};
+            $self->{video_link} =~ tr/ //d;
+            return (0);
         }
     }
     return (1);
-- 
2.11.4.GIT