-
- # 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.
- unless(defined($content = LWP::Simple::get(sprintf('http://www.collegehumor.com/video:%s', $2)))) {
- $self->error('Could not download HTML');
- return undef;
- }
- $p = HTML::Parser->new(api_version => 3);
-
- $p->handler(start => \@accum, "tagname, attr");
- $p->report_tags(qw(meta));
- $p->utf8_mode(1);
- $p->parse($content);
-
- # Look for the title in the meta tags
- foreach $t (@accum) {
- if ('meta' eq $t->[0]) {
- if ('title' eq $t->[1]->{'name'}) {
- $metadata->{'TITLE'} = $t->[1]->{'content'};
- }
- }
- }