From: Ralf Ertzinger Date: Sat, 31 Oct 2009 13:29:47 +0000 (+0100) Subject: - QDB format change X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=quotesite.git;a=commitdiff_plain;h=0bbb1b5ad38dfbc63f25220d6661ac9d46d86bba - QDB format change --- diff --git a/quotesite/QdbGrabber.pm b/quotesite/QdbGrabber.pm index 0a65255..1c56ee7 100644 --- a/quotesite/QdbGrabber.pm +++ b/quotesite/QdbGrabber.pm @@ -54,12 +54,10 @@ sub _parse { $p = HTML::TokeParser->new(\$content); - OUTER: while ($t = $p->get_tag('table')) { - if (exists($t->[1]->{'class'}) && ($t->[1]->{'class'} eq 'quote')) { - while ($t2 = $p->get_tag('p')) { - $metadata->{'CONTENT'} = $p->get_text('/p'); - last OUTER; - } + OUTER: while ($t = $p->get_tag('span')) { + if (exists($t->[1]->{'class'}) && ($t->[1]->{'class'} eq 'qt')) { + $metadata->{'CONTENT'} = $p->get_text('/span'); + last OUTER; } }