git://git.camperquake.de
/
videosite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
447fc1d
)
Motherless: Get video title from meta headers
author
Ralf Ertzinger
<ralf@skytale.net>
Tue, 30 Apr 2013 18:58:05 +0000
(20:58 +0200)
committer
Ralf Ertzinger
<ralf@skytale.net>
Tue, 30 Apr 2013 18:58:05 +0000
(20:58 +0200)
videosite/MotherlessGrabber.pm
patch
|
blob
|
history
diff --git
a/videosite/MotherlessGrabber.pm
b/videosite/MotherlessGrabber.pm
index
052bf55
..
e87602e
100644
(file)
--- a/
videosite/MotherlessGrabber.pm
+++ b/
videosite/MotherlessGrabber.pm
@@
-59,11
+59,9
@@
sub _parse {
$p = HTML::TokeParser->new(\$content);
# Look for the title
$p = HTML::TokeParser->new(\$content);
# Look for the title
- while ($tag = $p->get_tag('title', 'script')) {
- if ('title' eq $tag->[0]) {
- my $t = $p->get_text();
- $metadata->{'TITLE'} = $t;
- $metadata->{'TITLE'} =~ s/.* : *//;
+ while ($tag = $p->get_tag('meta', 'script')) {
+ if (('meta' eq $tag->[0]) and ($tag->[1]->{'name'}) and ($tag->[1]->{'name'} eq 'description')) {
+ $metadata->{'TITLE'} = $tag->[1]->{'content'};
} elsif ('script' eq $tag->[0]) {
my $t = $p->get_text();
} elsif ('script' eq $tag->[0]) {
my $t = $p->get_text();