X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FDoubleVikingGrabber.pm;h=e79c261ccc63933d7e8e1c48cdde115c2e3a1d4c;hb=d4fae22c083e110d1c788a78196f85d1e39b116e;hp=89e181e3d7a066de578db6a69e1f0a3d7c5e5ef0;hpb=01b3e34609b4e32c187dd2ded169efd19a58a6bb;p=videosite.git diff --git a/videosite/DoubleVikingGrabber.pm b/videosite/DoubleVikingGrabber.pm index 89e181e..e79c261 100644 --- a/videosite/DoubleVikingGrabber.pm +++ b/videosite/DoubleVikingGrabber.pm @@ -3,12 +3,11 @@ # (c) 2007 by Ralf Ertzinger # licensed under GNU GPL v2 -package DoubleVikingGrabber; +package videosite::DoubleVikingGrabber; -use GrabberBase; -@ISA = qw(GrabberBase); +use videosite::GrabberBase; +@ISA = qw(videosite::GrabberBase); -use LWP::Simple qw(!get); use HTML::TokeParser; use Data::Dumper; @@ -48,7 +47,7 @@ sub _parse { $metadata->{'TITLE'} = undef; $metadata->{'DLURL'} = undef; - unless(defined($content = LWP::Simple::get(sprintf('http://www.doubleviking.com/videos/page0.html/%s.html', $2)))) { + unless(defined($content = $self->simple_get(sprintf('http://www.doubleviking.com/videos/page0.html/%s.html', $2)))) { $self->error('Could not download %s', $url); return undef; }