3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-22 18:52:40 +01:00

FuncBuiltins: add shquote and quotemeta

This commit is contained in:
Pragmatic Software 2024-11-02 19:13:34 -07:00
parent bd4fd4ea27
commit 2182b26bfd
No known key found for this signature in database
GPG Key ID: CC916B6E3C84ECCE
2 changed files with 30 additions and 1 deletions

View File

@ -56,6 +56,22 @@ sub initialize($self, %conf) {
subref => sub { $self->func_unquote(@_) }
}
);
$self->{pbot}->{functions}->register(
'shquote',
{
desc => 'quotes text for sh invocation',
usage => 'shquote <text>',
subref => sub { $self->func_shquote(@_) }
}
);
$self->{pbot}->{functions}->register(
'quotemeta',
{
desc => 'escapes/quotes metacharacters',
usage => 'quotemeta <text>',
subref => sub { $self->func_quotemeta(@_) }
}
);
$self->{pbot}->{functions}->register(
'uri_escape',
{
@ -90,6 +106,8 @@ sub unload($self) {
$self->{pbot}->{functions}->unregister('uc');
$self->{pbot}->{functions}->unregister('lc');
$self->{pbot}->{functions}->unregister('unquote');
$self->{pbot}->{functions}->unregister('shquote');
$self->{pbot}->{functions}->unregister('quotemeta');
$self->{pbot}->{functions}->unregister('uri_escape');
$self->{pbot}->{functions}->unregister('ana');
$self->{pbot}->{functions}->unregister('maybe-the');
@ -133,6 +151,17 @@ sub func_lc($self, @rest) {
return lc $text;
}
sub func_shquote($self, @rest) {
my $text = "@rest";
$text =~ s/'/'"'"'/g;
return "'$text'";
}
sub func_quotemeta($self, @rest) {
my $text = "@rest";
return quotemeta $text;
}
sub func_uri_escape($self, @rest) {
my $text = "@rest";
return uri_escape_utf8($text);

View File

@ -25,7 +25,7 @@ use PBot::Imports;
# These are set by the /misc/update_version script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4826,
BUILD_REVISION => 4827,
BUILD_DATE => "2024-11-02",
};