Qdb: Properly encode text into UTF8

[quotesite.git] / quotesite / QdbGrabber.pm

diff --git a/quotesite/QdbGrabber.pm b/quotesite/QdbGrabber.pm
index f9c7387..411be01 100644 (file)
--- a/quotesite/QdbGrabber.pm
+++ b/quotesite/QdbGrabber.pm
@@ -11,6 +11,7 @@ use 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;
         }
     }