- $p->handler(start => \@accum, "tagname, attr");
- $p->handler(text => \@text, "text");
- $p->report_tags(qw(meta script));
- $p->utf8_mode(1);
- $p->parse($content);
-
- # Look for the title in the meta tags
- foreach $e (@accum) {
- if ('meta' eq $e->[0]) {
- if ('title' eq $e->[1]->{'name'}) {
- $metadata->{'TITLE'} = $e->[1]->{'content'};
- $metadata->{'TITLE'} =~ s/\s*-\s*MyVideo$//;
+ $p = HTML::TokeParser->new(\$content);
+ while ($t = $p->get_tag('meta', 'link')) {
+ if ('meta' eq $t->[0]) {
+ if (exists($t->[1]->{property}) and ($t->[1]->{property} eq 'og:title')) {
+ $metadata->{'TITLE'} = $t->[1]->{content};
+ }
+ } elsif ('link' eq $t->[0]) {
+ if (exists($t->[1]->{rel}) and ($t->[1]->{rel} eq 'image_src')) {
+ $metadata->{'DLURL'} = $t->[1]->{'href'};
+ $metadata->{'DLURL'} =~ s,thumbs/[^/]*$,,;
+ $metadata->{'DLURL'} .= $metadata->{'ID'} . ".flv";
+ $self->debug("Found URL: %s", $metadata->{'DLURL'});