git://git.camperquake.de
/
quotesite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#
# 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 LWP::Simple qw(!get);
use HTML::TokeParser;
use Data::Dumper;
+use Encode;
use strict;
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')) {
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;
}
}
last OUTER;
}
}