X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=videosite%2FSnotrGrabber.pm;h=3009995387662b829a8e9b9add57d6c49eafb235;hb=f092ead6902305e6630adaa6197d551a5c537d20;hp=3e40ff6472556277f9e83f4d19a171ff5b5693c6;hpb=6ca5e9acaa584df9a29c91d42de1e0fceb036b02;p=videosite.git diff --git a/videosite/SnotrGrabber.pm b/videosite/SnotrGrabber.pm index 3e40ff6..3009995 100644 --- 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'}; }