diff options
Diffstat (limited to 'IkiWiki/UserInfo.pm')
| -rw-r--r-- | IkiWiki/UserInfo.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/IkiWiki/UserInfo.pm b/IkiWiki/UserInfo.pm index a944cafa6..ae63d8023 100644 --- a/IkiWiki/UserInfo.pm +++ b/IkiWiki/UserInfo.pm @@ -67,6 +67,24 @@ sub is_admin ($) { #{{{ return grep { $_ eq $user_name } @{$config{adminuser}}; } #}}} +sub get_banned_users () { #{{{ + my @ret; + my $userinfo=userinfo_retrieve(); + foreach my $user (keys %{$userinfo}) { + push @ret, $user if $userinfo->{$user}->{banned}; + } + return @ret; +} #}}} + +sub set_banned_users (@) { #{{{ + my %banned=map { $_ => 1 } @_; + my $userinfo=userinfo_retrieve(); + foreach my $user (keys %{$userinfo}) { + $userinfo->{$user}->{banned} = $banned{$user}; + } + return userinfo_store($userinfo); +} #}}} + sub commit_notify_list ($@) { #{{{ my $committer=shift; |