Qdb: Properly encode text into UTF8

[quotesite.git] / quotesite / QdbGrabber.pm

diff --git a/quotesite/QdbGrabber.pm b/quotesite/QdbGrabber.pm
index 1c56ee7..411be01 100644 (file)
--- a/quotesite/QdbGrabber.pm
+++ b/quotesite/QdbGrabber.pm
@@ -3,14 +3,15 @@
 #
 # 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;
 use Data::Dumper;
+use Encode;
 
 use strict;
 
@@ -56,7 +57,7 @@ sub _parse {
 
     OUTER: while ($t = $p->get_tag('span')) {
         if (exists($t->[1]->{'class'}) && ($t->[1]->{'class'} eq 'qt')) {
-            $metadata->{'CONTENT'} = $p->get_text('/span');
+            $metadata->{'CONTENT'} = encode('utf8', decode('iso8859-1', $p->get_text('/span')));
             last OUTER;
         }
     }