GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
Code Issues Projects Releases Wiki Activity

WebPaste now can take option to disable word-wrapping

Browse Source
This commit is contained in:
Pragmatic Software 2019-08-06 18:23:13 -07:00
parent 028737f34d
commit e30943ff70
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
PBot/WebPaste.pm
View File

@ -56,10 +56,16 @@ sub get_paste_site {
} }
sub paste { sub paste {
my ($self, $text) = @_; my ($self, $text, %opts) = @_;
my %default_opts = (
no_split => 0,
);
%opts = (%default_opts, %opts);
$text =~ s/(.{120})\s/$1\n/g unless $opts{no_split};
$text = encode('UTF-8', $text); $text = encode('UTF-8', $text);
$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--) {
@ -75,10 +81,7 @@ sub paste {
} }
sub paste_ixio { sub paste_ixio {
my $self = shift; my ($self, $text) = @_;
my $text = join(' ', @_);
$text =~ s/(.{120})\s/$1\n/g;
my $ua = LWP::UserAgent->new(); my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0"); $ua->agent("Mozilla/5.0");