X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FCollegeHumorGrabber.pm;h=bbf54a688aac683fab225aca387df9641d98a041;hb=4f73c0b48954f5f4f30ee96779ecaa3fca847305;hp=4388a312f38903887f07dfa29439d24bab874bfe;hpb=6ca5e9acaa584df9a29c91d42de1e0fceb036b02;p=videosite.git diff --git a/videosite/CollegeHumorGrabber.pm b/videosite/CollegeHumorGrabber.pm index 4388a31..bbf54a6 100644 --- a/videosite/CollegeHumorGrabber.pm +++ b/videosite/CollegeHumorGrabber.pm @@ -3,12 +3,12 @@ # (c) 2007 by Ralf Ertzinger # licensed under GNU GPL v2 -package CollegeHumorGrabber; +package videosite::CollegeHumorGrabber; -use GrabberBase; -@ISA = qw(GrabberBase); +use videosite::GrabberBase; +@ISA = qw(videosite::GrabberBase); -use HTMLHelper; +use videosite::HTMLHelper; use LWP::Simple qw(!get); use XML::Simple; use Data::Dumper; @@ -64,15 +64,15 @@ sub _parse { # The XML does not contain the full title of the video, for # reasons possibly known to some jerk at CollegeHumor. # So we'll have to parse the actual HTML, too. - $p = HTMLHelper->new(); + $p = videosite::HTMLHelper->new(); unless(defined($content = $p->load(sprintf('http://www.collegehumor.com/video:%s', $2)))) { $self->error('Could not download HTML'); return undef; } - $t = $p->findnodes('meta[@name="title"]'); + $t = $p->findnodes('h1[@id="item_title"]'); if (defined($t)) { - $metadata->{'TITLE'} = $t->{'content'}; + $metadata->{'TITLE'} = $t->{'_content'}->[0]; } unless(defined($metadata->{'DLURL'}) && defined($metadata->{'TITLE'})) {