3
0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-11 04:22:35 +01:00

Add uri_escape to FuncBuiltins

This commit is contained in:
Pragmatic Software 2020-02-13 23:22:00 -08:00
parent 936ce8d49d
commit e7497fc00f

View File

@ -55,6 +55,13 @@ sub initialize {
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 {
@ -64,6 +71,7 @@ sub unload {
$self->{pbot}->{functions}->unregister('uc');
$self->{pbot}->{functions}->unregister('lc');
$self->{pbot}->{functions}->unregister('unquote');
$self->{pbot}->{functions}->unregister('uri_escape');
}
sub func_unquote {
@ -101,4 +109,11 @@ sub func_lc {
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;