From d839b777682012133a7320f6cfcff9588c1be22d Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 24 Dec 2008 05:38:30 +0000
Subject: 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

---
 config-default/commands.xml | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'config-default/commands.xml')

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});
-- 
cgit v1.2.3