Change quotesite to use BettIrssi, clean up module hierarchy for the plugins

[quotesite.git] / quotesite / QdbGrabber.pm

diff --git a/quotesite/QdbGrabber.pm b/quotesite/QdbGrabber.pm
index 0a65255..f9c7387 100644 (file)
--- a/quotesite/QdbGrabber.pm
+++ b/quotesite/QdbGrabber.pm
@@ -3,10 +3,10 @@
 #
 # Grabber for qdb.us
 
-package QdbGrabber;
+package quotesite::QdbGrabber;
 
-use GrabberBase;
-@ISA = qw(GrabberBase);
+use quotesite::GrabberBase;
+@ISA = qw(quotesite::GrabberBase);
 
 use LWP::Simple qw(!get);
 use HTML::TokeParser;
@@ -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;
         }
     }