GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-02 01:18:40 +02:00
Code Issues Projects Releases Wiki Activity

Users: my command now lists keys if no args

Browse Source
This commit is contained in:
Pragmatic Software 2020-01-26 18:53:30 -08:00
parent aab2a2b445
commit 91d80571e0
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
PBot/Users.pm
View File

@ -426,16 +426,11 @@ sub mycmd {
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
my ($key, $value) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 2);
if (not defined $key) {
return "Usage: my <key> [value]";
}
if (defined $value) {
$value =~ s/^is\s+//;
$value = undef if not length $value;
}
$key = lc $key;
my $channel = $from;
my $hostmask = "$nick!$user\@$host";
@ -459,19 +454,28 @@ sub mycmd {
$self->save;
}
if (defined $value and $u->{level} == 0) {
my @disallowed = qw/level autoop autovoice/;
if (grep { $_ eq $key } @disallowed) {
return "You must be an admin to set $key.";
my $result = '';
if (defined $key) {
$key = lc $key;
if (defined $value and $u->{level} == 0) {
my @disallowed = qw/level autoop autovoice/;
if (grep { $_ eq $key } @disallowed) {
return "You must be an admin to set $key.";
}
}
if ($key eq 'level' and defined $value and $u->{level} < 90 and $value > $u->{level}) {
return "You may not increase your level!";
}
} else {
$result = "Usage: my <key> [value]; ";
}
if ($key eq 'level' and defined $value and $u->{level} < 90 and $value > $u->{level}) {
return "You may not increase your level!";
}
($channel, $hostmask) = $self->find_user_account($channel, $hostmask);
my $result = $self->{users}->set($channel, $hostmask, $key, $value);
$result .= $self->{users}->set($channel, $hostmask, $key, $value);
$result =~ s/^password => .*;?$/password => <private>;/m;
return $result;
}