From 4fc0df97f75404d7e482be7cd82ba54bcce39f49 Mon Sep 17 00:00:00 2001
From: Doug Freed <dwfreed@mtu.edu>
Date: Sun, 1 Mar 2015 05:07:13 +0400
Subject: Add ;delwebuser command to complement ;;addwebuser

---
 config-default/commands.xml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'config-default')

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 8ef69b4..06243a2 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -34,6 +34,18 @@
     $conn->privmsg($event->replyto, "Added $user to the list of authorized web users.")
   ]]>
   </command>
+  <command cmd="^;delwebuser (\S+)" flag="a">
+  <![CDATA[
+    my $user = $1;
+    use Apache::Htpasswd; use Apache::Htgroup;
+    my $o_Htpasswd = new Apache::Htpasswd({passwdFile => $::settings->{web}->{userfile}, UseMD5 => 1});
+    my $o_Htgroup = new Apache::Htgroup($::settings->{web}->{groupfile});
+    $o_Htpasswd->htDelete($user);
+    $o_Htgroup->deleteuser($user, 'actionlogs');
+    $o_Htgroup->save();
+    $conn->privmsg($event->replyto, "Removed $user from the list of authorized web users.")
+  ]]>
+  </command>
   <command cmd="^;teredo (\S+)">
   <![CDATA[
     my $arg1 = $1;
-- 
cgit v1.2.3