diff options
Diffstat (limited to 'config-default')
| -rw-r--r-- | config-default/commands.xml | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index 52f9339..87728a6 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -4,7 +4,7 @@ $conn->privmsg($event->{to}->[0], "source is at http://svn.linuxrulz.org/repos/antispammeta"); ]]> </command> - <command cmd="^;sql (main|log) (.*)"> + <command cmd="^;sql (main|log) (.*)" flag="d"> <![CDATA[ my $dbh = $::db->{DBH}; if ($1 eq 'log') { @@ -13,6 +13,20 @@ $::db->raw($conn, $event->{to}->[0], $dbh, $2); ]]> </command> + <command cmd="^;monitor (\S+) (yes|no)$" flag="a"> + <![CDATA[ + my $chan = lc $1; + my $switch = lc $2; + my $link = ASM::Util->getLink(lc $chan); + if ( lc $link ne lc $chan ) { + $conn->privmsg($event->{to}->[0], "Error: $chan is linked to $link - use $link instead."); + return; + } + $::channels->{channel}->{$chan}->{monitor} = $switch; + ASM::XML->writeChannels(); + $conn->privmsg($event->{to}->[0], "Monitor flag for $chan set to $switch"); + ]]> + </command> <command cmd="^;help$"> <![CDATA[ $conn->privmsg($event->{to}->[0], "help is at http://meta.wikimedia.org/wiki/User:WHeimbigner/AntiSpamMeta"); |