diff options
Diffstat (limited to 'config-default')
| -rw-r--r-- | config-default/commands.xml | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index b8e9d22..299d599 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -578,19 +578,19 @@ $conn->privmsg($event->replyto, 'config files were re-read'); ]]> </command> - <command cmd="^;restrict (nick|account|host) (\S+) (\+|-)([a-z0-9_-]+)$" flag="a"> + <command cmd="^;restrict (?<type>nick|account|host) (?<who>\S+) (?<mode>\+|-)(?<restriction>[a-z0-9_-]+)$" flag="a"> <![CDATA[ - my ($type, $who, $mode, $restriction) = ($1, lc $2, $3, $4); - if ($mode eq '-') { - delete $::restrictions->{$type . 's'}->{$type}->{$who}->{$restriction}; - $conn->privmsg($event->replyto, "Removed $restriction restriction for $type $who"); + my $who = lc $+{who}; + if ($+{mode} eq '-') { + delete $::restrictions->{$+{type} . 's'}->{$+{type}}->{$who}->{$+{restriction}}; + $conn->privmsg($event->replyto, "Removed $+{restriction} restriction for $+{type} $who"); } - if ($mode eq '+') { - if (! defined($::restrictions->{$type . 's'}->{$type}->{$who})) { - $::restrictions->{$type . 's'}->{$type}->{$who} = {}; + if ($+{mode} eq '+') { + if (! defined($::restrictions->{$+{type} . 's'}->{$+{type}}->{$who})) { + $::restrictions->{$+{type} . 's'}->{$+{type}}->{$who} = {}; } - $::restrictions->{$type . 's'}->{$type}->{$who}->{$restriction} = $restriction; - $conn->privmsg($event->replyto, "Added $restriction restriction for $type $who"); + $::restrictions->{$+{type} . 's'}->{$+{type}}->{$who}->{$+{restriction}} = $+{restriction}; + $conn->privmsg($event->replyto, "Added $+{restriction} restriction for $+{type} $who"); } ASM::XML->writeRestrictions(); ]]> |