diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2016-01-13 21:55:24 -0700 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2016-01-13 21:55:24 -0700 |
| commit | aa8fb99e32987c4da8871607fa94d70577c39495 (patch) | |
| tree | 54373181ac0e98e7a27543e6de598cab9515038b /config-default | |
| parent | bf77a2ae9a0d80576082d9cbc307cb1562e24192 (diff) | |
Prevent changing/deleting flags of users with d
Diffstat (limited to 'config-default')
| -rw-r--r-- | config-default/commands.xml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index 527e1c1..26d34a3 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -377,6 +377,11 @@ $conn->privmsg($event->replyto, "I'm assuming you mean " . $nick . "'s nickserv account, " . lc $::sn{$nick}->{account} . '.'); $nick = lc $::sn{$nick}->{account}; } + if (defined($::users->{person}->{$nick}) && + defined($::users->{person}->{$nick}->{flags}) && + ($::users->{person}->{$nick}->{flags} =~ /d/)) { + return $conn->privmsg($event->replyto, "Users with the 'd' flag are untouchable. Edit the config file manually."); + } if ($flags !~ /s/i) { use Apache::Htpasswd; use Apache::Htgroup; my $o_Htpasswd = new Apache::Htpasswd({passwdFile => $::settings->{web}->{userfile}, UseMD5 => 1}); @@ -393,6 +398,11 @@ <command cmd="^;userx del (\S+)$" flag="a"> <![CDATA[ my $nick = lc $1; + if (defined($::users->{person}->{$nick}) && + defined($::users->{person}->{$nick}->{flags}) && + ($::users->{person}->{$nick}->{flags} =~ /d/)) { + return $conn->privmsg($event->replyto, "Users with the 'd' flag are untouchable. Edit the config file manually."); + } delete($::users->{person}->{$nick}); ASM::XML->writeUsers(); use Apache::Htpasswd; use Apache::Htgroup; |