- if ($p->get_tag('title')) {
- $metadata->{'TITLE'} = $p->get_text();
- $metadata->{'TITLE'} =~ s/^LiveLeak\.com\s+-\s+(.+)$/$1/im;
+ while ($tag = $p->get_tag('script', 'meta')) {
+ if ('meta' eq $tag->[0]) {
+ if (exists($tag->[1]->{property}) and ('og:title' eq $tag->[1]->{property})) {
+ $metadata->{'TITLE'} = $tag->[1]->{content};
+ $metadata->{'TITLE'} =~ s/^LiveLeak\.com - //;
+ }
+ } elsif ('script' eq $tag->[0]) {
+ my $e = $p->get_text();
+
+ if ($e =~ /file: "([^"]+)"/) {
+ $self->debug("Found file: %s", $1);
+ $metadata->{'DLURL'} = $1;
+ }
+ }