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

Remove capture from factchange

Browse Source
This commit is contained in:
Pragmatic Software 2017-10-04 17:56:34 -07:00
parent 652cad7ddf
commit 9710ad2b28
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
PBot/FactoidCommands.pm
View File

@ -1296,41 +1296,21 @@ sub factchange {
use re::engine::RE2 -strict => 1; use re::engine::RE2 -strict => 1;
my $action = $factoids->{$channel}->{$trigger}->{action}; my $action = $factoids->{$channel}->{$trigger}->{action};
my $changed; my $changed;
my ($a, $b, $c, $d, $e, $f, $g, $h, $i, $before, $after);
if ($modifier eq 'gi' or $modifier eq 'ig') { if ($modifier eq 'gi' or $modifier eq 'ig') {
$changed = $action =~ s|$tochange|$changeto|gi; $changed = $action =~ s|$tochange|$changeto|gi;
($a, $b, $c, $d, $e, $f, $g, $h, $i, $before, $after) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $`, $');
} elsif ($modifier eq 'g') { } elsif ($modifier eq 'g') {
$changed = $action =~ s|$tochange|$changeto|g; $changed = $action =~ s|$tochange|$changeto|g;
($a, $b, $c, $d, $e, $f, $g, $h, $i, $before, $after) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $`, $');
} elsif ($modifier eq 'i') { } elsif ($modifier eq 'i') {
$changed = $action =~ s|$tochange|$changeto|i; $changed = $action =~ s|$tochange|$changeto|i;
($a, $b, $c, $d, $e, $f, $g, $h, $i, $before, $after) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $`, $');
} else { } else {
$changed = $action =~ s|$tochange|$changeto|; $changed = $action =~ s|$tochange|$changeto|;
($a, $b, $c, $d, $e, $f, $g, $h, $i, $before, $after) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $`, $');
} }
if (not $changed) { if (not $changed) {
$self->{pbot}->{logger}->log("($from) $nick!$user\@$host: failed to change '$trigger' 's$delim$tochange$delim$changeto$delim\n"); $self->{pbot}->{logger}->log("($from) $nick!$user\@$host: failed to change '$trigger' 's$delim$tochange$delim$changeto$delim\n");
return "Change $trigger failed."; return "Change $trigger failed.";
} else { } else {
$action =~ s/\$1/$a/g;
$action =~ s/\$2/$b/g;
$action =~ s/\$3/$c/g;
$action =~ s/\$4/$d/g;
$action =~ s/\$5/$e/g;
$action =~ s/\$6/$f/g;
$action =~ s/\$7/$g/g;
$action =~ s/\$8/$h/g;
$action =~ s/\$9/$i/g;
$action =~ s/\$`/$before/g;
$action =~ s/\$'/$after/g;
$action =~ s/^\s+//;
$action =~ s/\s+$//;
if (length $action > 8000 and not defined $admininfo) { if (length $action > 8000 and not defined $admininfo) {
return "Change $trigger failed; result is too long."; return "Change $trigger failed; result is too long.";
} }