#
# 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;
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;
}
}