Youtube: Add new signature to download URLs

[videosite.git] / videosite / SnotrGrabber.pm

diff --git a/videosite/SnotrGrabber.pm b/videosite/SnotrGrabber.pm
index 3e40ff6..3009995 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;
@@ -18,6 +18,8 @@ sub new {
     my $self = $class->SUPER::new();
 
     $self->{'NAME'} = 'snotr';
+    $self->{_SELFTESTURL} = 'http://www.snotr.com/video/1836';
+    $self->{_SELFTESTTITLE} = 'Brilliant thief';
     $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*snotr\.com/video/(\d+))'];
 
     bless($self, $class);
@@ -32,7 +34,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 +53,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'};
     }