diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2008-12-24 05:38:30 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2008-12-24 05:38:30 +0000 |
| commit | d839b777682012133a7320f6cfcff9588c1be22d (patch) | |
| tree | 7bbeeb9106ab4b1a430273f97159564fbfb42cd6 /config-default/commands.xml | |
| parent | 17144559e710c7b833ec796deda3dbc4ff4e3abe (diff) | |
Removed the d flag for almost everyone, changed all commands that require the 'd' flag to require 'a' instead, except for ;ev and ;sl, and modified ;user flags to not allow the d flag to be assigned
Diffstat (limited to 'config-default/commands.xml')
| -rw-r--r-- | config-default/commands.xml | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index 2e8df3d..efe65e1 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -31,7 +31,7 @@ $conn->privmsg($event->{to}->[0], "$result results found."); ]]> </command> - <command cmd="^;user add (\S+) ?(\S*)$" flag="d"> + <command cmd="^;user add (\S+) ?(\S*)$" flag="a"> <![CDATA[ my $nick = lc $1; my $host = $2; @@ -41,10 +41,14 @@ $conn->privmsg($event->{to}->[0], "Hiya $nick"); ]]> </command> - <command cmd="^;user flags (\S+) ?(?: (\S+))?$" flag="d"> + <command cmd="^;user flags (\S+) ?(?: (\S+))?$" flag="a"> <![CDATA[ my $nick = lc $1; my $flags = $2; + if ($flags =~ /d/) { + $conn->privmsg($event->{to}->[0], "The d flag may not be assigned over IRC. Edit the configuration manually."); + return; + } if ((!defined($flags)) || ($flags eq '')) { if (defined($::users->{person}->{$nick}->{flags})) { $conn->privmsg($event->{to}->[0], "Flags for $nick: $::users->{person}->{$nick}->{flags}"); @@ -59,7 +63,7 @@ } ]]> </command> - <command cmd="^;user del (\S+)$" flag="d"> + <command cmd="^;user del (\S+)$" flag="a"> <![CDATA[ my $nick = lc $1; delete($::users->{person}->{$nick}); |