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

FuncCommand: add unquote

Browse Source
This commit is contained in:
Pragmatic Software 2019-08-24 20:35:24 -07:00
parent 4e63f8435e
commit 239b79d48e
1 changed files with 25 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
PBot/FuncCommand.pm
View File

@ -71,17 +71,14 @@ sub init_funcs {
usage => 'sed s/<regex>/<replacement>/[Pig]; P preserve case; i ignore case; g replace all', usage => 'sed s/<regex>/<replacement>/[Pig]; P preserve case; i ignore case; g replace all',
subref => sub { $self->func_sed(@_) } subref => sub { $self->func_sed(@_) }
}, },
unquote => {
desc => 'removes unescaped surrounding quotes and strips escapes from escaped quotes',
usage => 'unquote <text>',
subref => sub { $self->func_unquote(@_) }
},
}; };
} }
use URI::Escape qw/uri_escape/;
sub func_uri_escape {
my $self = shift;
my $text = "@_";
return uri_escape($text);
}
sub func_help { sub func_help {
my ($self, $func) = @_; my ($self, $func) = @_;
@ -126,6 +123,23 @@ sub func_list {
return $result; return $result;
} }
sub func_unquote {
my $self = shift;
my $text = "@_";
$text =~ s/^"(.*?)(?<!\\)"$/$1/ || $text =~ s/^'(.*?)(?<!\\)'$/$1/;
$text =~ s/(?<!\\)\\'/'/g;
$text =~ s/(?<!\\)\\"/"/g;
return $text;
}
use URI::Escape qw/uri_escape/;
sub func_uri_escape {
my $self = shift;
my $text = "@_";
return uri_escape($text);
}
# near-verbatim insertion of krok's `sed` factoid # near-verbatim insertion of krok's `sed` factoid
no warnings; no warnings;
sub func_sed { sub func_sed {
@ -176,7 +190,9 @@ sub do_func {
push @params, $param; push @params, $param;
} }
return $self->{funcs}->{$func}->{subref}->(@params); my $result = $self->{funcs}->{$func}->{subref}->(@params);
$result =~ s/\x1/1/g;
return $result;
} }
1; 1;