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

FuncBuiltins: add shquote and quotemeta

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lib/PBot/Plugin/FuncBuiltins.pm
View File

@ -56,6 +56,22 @@ sub initialize($self, %conf) {
subref => sub { $self->func_unquote(@_) } 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( $self->{pbot}->{functions}->register(
'uri_escape', 'uri_escape',
{ {
@ -90,6 +106,8 @@ sub unload($self) {
$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('shquote');
$self->{pbot}->{functions}->unregister('quotemeta');
$self->{pbot}->{functions}->unregister('uri_escape'); $self->{pbot}->{functions}->unregister('uri_escape');
$self->{pbot}->{functions}->unregister('ana'); $self->{pbot}->{functions}->unregister('ana');
$self->{pbot}->{functions}->unregister('maybe-the'); $self->{pbot}->{functions}->unregister('maybe-the');
@ -133,6 +151,17 @@ sub func_lc($self, @rest) {
return lc $text; 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) { sub func_uri_escape($self, @rest) {
my $text = "@rest"; my $text = "@rest";
return uri_escape_utf8($text); return uri_escape_utf8($text);

2
lib/PBot/VERSION.pm
View File

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