diff options
Diffstat (limited to 'config-default/commands.xml')
| -rw-r--r-- | config-default/commands.xml | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index 5e5f9e8..8353b0f 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -179,8 +179,8 @@ <command cmd="^;exempt (.*)" flag="o"> <![CDATA[ $::eline{lc $1} = 1; - "lc $1\n" >> io 'exempt.txt'; - $conn->privmsg($event->{to}->[0], "lc $1 exempted"); + lc $1 . "\n" >> io 'exempt.txt'; + $conn->privmsg($event->{to}->[0], lc $1 . " exempted"); ]]> </command> <command cmd="^\!ops *(.*)"> @@ -199,4 +199,12 @@ } ]]> </command> + <command cmd="^;blacklist (.*)" flag="o"> + <![CDATA[ + my $str = lc $1; + push(@::string_blacklist, $str); + "$str\n" >> io 'string_blacklist.txt'; + $conn->privmsg($event->{to}->[0], "$str blacklisted"); + ]]> + </command> </commands> |