From 0bbb1b5ad38dfbc63f25220d6661ac9d46d86bba Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Sat, 31 Oct 2009 14:29:47 +0100 Subject: [PATCH] - QDB format change --- quotesite/QdbGrabber.pm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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; } } -- 1.8.3.1