X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=quotesite.git;a=blobdiff_plain;f=quotesite%2FTwitterGrabber.pm;h=dda3bae4756479a7e6f163b5d5636bf4f2165102;hp=286b96260a8c3b3b1cd6be4b25ef1b0951293f09;hb=4ddef033636a65e20cc0ff3d8fd6042d0230a783;hpb=54cdc91228ff95d3b0407baa00adc215272c24a0 diff --git a/quotesite/TwitterGrabber.pm b/quotesite/TwitterGrabber.pm index 286b962..dda3bae 100644 --- a/quotesite/TwitterGrabber.pm +++ b/quotesite/TwitterGrabber.pm @@ -21,7 +21,7 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'twitter.com'; - $self->{'PATTERNS'} = ['(http://twitter.com/(?:\#\!/)?[^/]+/status(?:es)?/(\d+))']; + $self->{'PATTERNS'} = ['(https?://twitter.com/(?:\#\!/)?[^/]+/status(?:es)?/(\d+))']; bless($self, $class); $self->_prepare_parameters(); @@ -58,7 +58,7 @@ sub _parse { return undef; } - $metadata->{'CONTENT'} = encode("utf8", decode_entities(decode("utf8", $t->{'text'}))); + $metadata->{'CONTENT'} = decode_entities($t->{'text'}); $metadata->{'ID'} = $t->{'user'}->{'screen_name'} . '/' . $metadata->{'ID'}; unless(defined($metadata->{'CONTENT'})) {