summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--config-default/commands.xml12
1 files changed, 12 insertions, 0 deletions
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;