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

Repeatedly expand factoid variables for sub-expansions

Browse Source
This commit is contained in:
Pragmatic Software 2017-08-23 00:21:46 -07:00
parent 51019a17ab
commit 6e0456940b
1 changed files with 49 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PBot/Factoids.pm
View File

@ -367,10 +367,17 @@ sub find_factoid {
sub expand_factoid_vars {
my ($self, $from, $action) = @_;
while ($action =~ /(?<!\\)\$([a-zA-Z0-9_:\-#]+)/g) {
my $depth = 0;
while (1) {
last if ++$depth >= 10;
my $matches = 0;
my $const_action = $action;
while ($const_action =~ /(?<!\\)\$([a-zA-Z0-9_:\-#]+)/g) {
my $v = $1;
next if $v =~ m/^(nick|channel|randomnick|args|arg\[.+\])$/; # don't override special variables
$matches++;
my $modifier = '';
if ($v =~ s/(:.*)$//) {
$modifier = $1;
@ -416,9 +423,10 @@ sub expand_factoid_vars {
$action =~ s/\$$var$modifier/$mylist[$line]/;
}
}
last if $matches == 0;
}
$action =~ s/\\\$/\$/g;
return $action;
}