X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FLiveLeakGrabber.pm;h=4521f374b3337d7645ef8895d9f65021ca70fc33;hb=096ea86a7d54ff2aa88fad7e9629fd7dc206da70;hp=d640e6894f5407b3418b591f0d90830675b5d41e;hpb=911eeb36e674f916d08b04cd9c48bb33e96bf108;p=videosite.git diff --git a/videosite/LiveLeakGrabber.pm b/videosite/LiveLeakGrabber.pm index d640e68..4521f37 100644 --- a/videosite/LiveLeakGrabber.pm +++ b/videosite/LiveLeakGrabber.pm @@ -8,7 +8,6 @@ package videosite::LiveLeakGrabber; use videosite::GrabberBase; @ISA = qw(videosite::GrabberBase); -use LWP::Simple qw(!get); use HTML::TokeParser; use Data::Dumper; @@ -16,15 +15,13 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); + my $self = $class->SUPER::new( + NAME => 'liveleak', + PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*liveleak.com/view\?i=([^\&]+))'], + @_, + ); - $self->{'NAME'} = 'liveleak'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*liveleak.com/view\?i=([^\&]+))']; - - bless($self, $class); - $self->_prepare_parameters(); - - return $self; + return bless($self, $class); } sub _parse { @@ -34,6 +31,7 @@ sub _parse { my $content; my $metadata = {}; my $p; + my $ua = $self->ua(); $url =~ m|$pattern|; $url = $1; @@ -46,7 +44,7 @@ sub _parse { $metadata->{'DLURL'} = undef; # Get the site to extract the title - unless(defined($content = LWP::Simple::get($url))) { + unless(defined($content = $self->simple_get($url, $ua))) { $self->error('Could not download page'); return undef; } @@ -60,7 +58,7 @@ sub _parse { } # Get the file containing the video metadata - unless(defined($content = LWP::Simple::get(sprintf('http://www.liveleak.com/mi?token=%s', $2)))) { + unless(defined($content = $self->simple_get(sprintf('http://www.liveleak.com/mi?token=%s', $2), $ua))) { $self->error('Could not download metadata'); return undef; }