GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-05-02 20:57:28 +02:00
Code Issues Projects Releases Wiki Activity

Add uri_escape to FuncBuiltins

Browse Source
This commit is contained in:
Pragmatic Software 2020-02-13 23:22:00 -08:00
parent 936ce8d49d
commit e7497fc00f
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Plugins/FuncBuiltins.pm
View File

@ -55,6 +55,13 @@ sub initialize {
subref => sub { $self->func_unquote(@_) } subref => sub { $self->func_unquote(@_) }
} }
); );
$self->{pbot}->{functions}->register('uri_escape',
{
desc => 'percent-encode unsafe URI characters',
usage => 'uri_escape <text>',
subref => sub { $self->func_uri_escape(@_) }
}
);
} }
sub unload { sub unload {
@ -64,6 +71,7 @@ sub unload {
$self->{pbot}->{functions}->unregister('uc'); $self->{pbot}->{functions}->unregister('uc');
$self->{pbot}->{functions}->unregister('lc'); $self->{pbot}->{functions}->unregister('lc');
$self->{pbot}->{functions}->unregister('unquote'); $self->{pbot}->{functions}->unregister('unquote');
$self->{pbot}->{functions}->unregister('uri_escape');
} }
sub func_unquote { sub func_unquote {
@ -101,4 +109,11 @@ sub func_lc {
return lc $text; return lc $text;
} }
use URI::Escape qw/uri_escape_utf8/;
sub func_uri_escape {
my $self = shift;
my $text = "@_";
return uri_escape_utf8($text);
}
1; 1;