mirror of https://github.com/pragma-/pbot.git
WebPaste: Encode output as UTF-8
This commit is contained in:
parent
8f98d3d55c
commit
c399116c4e
|
@ -16,6 +16,7 @@ use Time::HiRes qw/gettimeofday/;
|
||||||
use Time::Duration;
|
use Time::Duration;
|
||||||
use LWP::UserAgent;
|
use LWP::UserAgent;
|
||||||
use Carp ();
|
use Carp ();
|
||||||
|
use Encode;
|
||||||
|
|
||||||
sub new {
|
sub new {
|
||||||
if (ref($_[1]) eq 'HASH') {
|
if (ref($_[1]) eq 'HASH') {
|
||||||
|
@ -55,9 +56,10 @@ sub get_paste_site {
|
||||||
sub paste {
|
sub paste {
|
||||||
my ($self, $text) = @_;
|
my ($self, $text) = @_;
|
||||||
|
|
||||||
|
$text = encode('UTF-8', $text);
|
||||||
$text =~ s/(.{120})\s/$1\n/g;
|
$text =~ s/(.{120})\s/$1\n/g;
|
||||||
my $result;
|
|
||||||
|
|
||||||
|
my $result;
|
||||||
for (my $tries = 5; $tries > 0; $tries--) {
|
for (my $tries = 5; $tries > 0; $tries--) {
|
||||||
my $paste_site = $self->get_paste_site;
|
my $paste_site = $self->get_paste_site;
|
||||||
$result = $paste_site->($text);
|
$result = $paste_site->($text);
|
||||||
|
|
Loading…
Reference in New Issue