X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=videosite%2FWimpGrabber.pm;h=e9b14ff5de56b145458e317e7bff2401b1ee835a;hb=1cfec45c0c1cac8fdebca4313c3bcfb3a9f1ab07;hp=c42476077810140fdcfbb1ad3dda8238737cfc98;hpb=541e2135bed7a462c478e40602512fa3e81557f3;p=videosite.git

diff --git a/videosite/WimpGrabber.pm b/videosite/WimpGrabber.pm
index c424760..e9b14ff 100644
--- a/videosite/WimpGrabber.pm
+++ b/videosite/WimpGrabber.pm
@@ -8,7 +8,6 @@ package videosite::WimpGrabber;
 use videosite::GrabberBase;
 @ISA = qw(videosite::GrabberBase);
 
-use LWP::Simple qw(!get);
 use MIME::Base64;
 use HTML::Parser;
 use Data::Dumper;
@@ -20,6 +19,8 @@ sub new {
     my $self = $class->SUPER::new();
 
     $self->{'NAME'} = 'wimp';
+    $self->{_SELFTESTURL} = 'http://www.wimp.com/insanebuilding/';
+    $self->{_SELFTESTTITLE} = 'Insane building.';
     $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*wimp.com/([^/]+)/?)'];
 
     bless($self, $class);
@@ -50,7 +51,7 @@ sub _parse {
     $metadata->{'TITLE'} = undef;
     $metadata->{'DLURL'} = undef;
 
-    unless(defined($content = LWP::Simple::get(sprintf('http://www.wimp.com/%s', $2)))) {
+    unless(defined($content = $self->simple_get(sprintf('http://www.wimp.com/%s', $2)))) {
         $self->error('Could not download %s', $url);
         return undef;
     }
@@ -63,7 +64,7 @@ sub _parse {
 
     # Look for the title in the meta tags
     foreach $e (@accum) {
-        if ('meta' eq $e->[0]) {
+        if ('meta' eq $e->[0] and exists($e->[1]->{'name'})) {
             if ('description' eq $e->[1]->{'name'}) {
                 $metadata->{'TITLE'} = $e->[1]->{'content'};
                 last;