Photos
Blog
Projects
vanrenterghem.biz
projects
/
git.ikiwiki.info.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
po(change): flush Memoize cache, to fix bug after rename/remove
[git.ikiwiki.info.git]
/
IkiWiki
/
UserInfo.pm
diff --git
a/IkiWiki/UserInfo.pm
b/IkiWiki/UserInfo.pm
index a0b1327b44fdeac0b3b37e46e863de95a0ad360e..dcf99da09bda07fbb5a643f3f4fa6a9d3a436f78 100644
(file)
--- a/
IkiWiki/UserInfo.pm
+++ b/
IkiWiki/UserInfo.pm
@@
-1,12
+1,12
@@
#!/usr/bin/perl
#!/usr/bin/perl
+package IkiWiki;
+
use warnings;
use strict;
use Storable;
use IkiWiki;
use warnings;
use strict;
use Storable;
use IkiWiki;
-package IkiWiki;
-
sub userinfo_retrieve () { #{{{
my $userinfo=eval{ Storable::lock_retrieve("$config{wikistatedir}/userdb") };
return $userinfo;
sub userinfo_retrieve () { #{{{
my $userinfo=eval{ Storable::lock_retrieve("$config{wikistatedir}/userdb") };
return $userinfo;
@@
-74,6
+74,7
@@
sub is_admin ($) { #{{{
return grep { $_ eq $user_name } @{$config{adminuser}};
} #}}}
return grep { $_ eq $user_name } @{$config{adminuser}};
} #}}}
+# XXX deprecated, should be removed eventually
sub get_banned_users () { #{{{
my @ret;
my $userinfo=userinfo_retrieve();
sub get_banned_users () { #{{{
my @ret;
my $userinfo=userinfo_retrieve();
@@
-83,6
+84,7
@@
sub get_banned_users () { #{{{
return @ret;
} #}}}
return @ret;
} #}}}
+# XXX deprecated, should be removed eventually
sub set_banned_users (@) { #{{{
my %banned=map { $_ => 1 } @_;
my $userinfo=userinfo_retrieve();
sub set_banned_users (@) { #{{{
my %banned=map { $_ => 1 } @_;
my $userinfo=userinfo_retrieve();