Add _selftest() function and test script to verify Grabber functionality

[videosite.git] / videosite / SnotrGrabber.pm

diff --git a/videosite/SnotrGrabber.pm b/videosite/SnotrGrabber.pm
index 3e40ff6..f251175 100644 (file)
--- a/videosite/SnotrGrabber.pm
+++ b/videosite/SnotrGrabber.pm
@@ -3,12 +3,12 @@
 #
 # Grabber for snotr.com
 
-package SnotrGrabber;
+package videosite::SnotrGrabber;
 
-use GrabberBase;
-@ISA = qw(GrabberBase);
+use videosite::GrabberBase;
+@ISA = qw(videosite::GrabberBase);
 
-use HTMLHelper;
+use videosite::HTMLHelper;
 use Data::Dumper;
 
 use strict;
@@ -32,7 +32,7 @@ sub _parse {
     my $pattern = shift;
     my $content;
     my $metadata = {};
-    my $p = HTMLHelper->new();
+    my $p = videosite::HTMLHelper->new();
     my $n;
 
     $url =~ m|$pattern|;
@@ -51,7 +51,7 @@ sub _parse {
         return undef;
     }
 
-    $n = $p->findnodes('meta[@name="title"]');
+    $n = $p->findnodes('meta[@property="og:title"]');
     if (defined($n)) {
         $metadata->{'TITLE'} = $n->{'content'};
     }