diff options
author | Joey Hess <joey@kitenet.net> | 2011-06-09 10:08:02 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-06-09 10:10:27 -0400 |
commit | cf707d16541c0f65519231c1ccc9a6c3a7ed8d62 (patch) | |
tree | 01965bd0064136c28b619b64305333bf4a902ed4 | |
parent | 6849c8fab595e0b2c73daf3b691531cf9089de6c (diff) | |
download | ikiwiki-cf707d16541c0f65519231c1ccc9a6c3a7ed8d62.tar ikiwiki-cf707d16541c0f65519231c1ccc9a6c3a7ed8d62.tar.gz |
userlist: New plugin, lets admins see a list of users and their info.
-rw-r--r-- | IkiWiki/Plugin/userlist.pm | 73 | ||||
-rw-r--r-- | debian/changelog | 6 | ||||
-rw-r--r-- | doc/plugins/userlist.mdwn | 6 |
3 files changed, 85 insertions, 0 deletions
diff --git a/IkiWiki/Plugin/userlist.pm b/IkiWiki/Plugin/userlist.pm new file mode 100644 index 000000000..f3e5cd462 --- /dev/null +++ b/IkiWiki/Plugin/userlist.pm @@ -0,0 +1,73 @@ +#!/usr/bin/perl +package IkiWiki::Plugin::userlist; + +use warnings; +use strict; +use IkiWiki 3.00; + +sub import { + hook(type => "getsetup", id => "userlist", call => \&getsetup); + hook(type => "sessioncgi", id => "userlist", call => \&sessioncgi); + hook(type => "formbuilder_setup", id => "userlist", + call => \&formbuilder_setup); +} + +sub getsetup () { + return + plugin => { + safe => 1, + rebuild => 0, + section => "web", + }, +} + +sub sessioncgi ($$) { + my $cgi=shift; + my $session=shift; + + if ($cgi->param("do") eq "userlist") { + showuserlist($cgi, $session); + exit; + } +} + +sub formbuilder_setup (@) { + my %params=@_; + + my $form=$params{form}; + if ($form->title eq "preferences" && + IkiWiki::is_admin($params{session}->param("name"))) { + push @{$params{buttons}}, "Users"; + if ($form->submitted && $form->submitted eq "Users") { + showuserlist($params{cgi}, $params{session}); + exit; + } + } +} + +sub showuserlist ($$) { + my $q=shift; + my $session=shift; + + IkiWiki::needsignin($q, $session); + if (! defined $session->param("name") || + ! IkiWiki::is_admin($session->param("name"))) { + error(gettext("you are not logged in as an admin")); + } + + my $h="<table border=\"1\">\n"; + $h.="<tr><th>".gettext("login")."</th><th>".gettext("email")."</th></tr>\n"; + my $info=IkiWiki::userinfo_retrieve(); + if (ref $info) { + foreach my $user (sort { $info->{$a}->{regdate} <=> $info->{$b}->{regdate} } keys %$info) { + my %i=%{$info->{$user}}; + $h.="<tr><td>$user</td><td>".(defined $i{email} ? $i{email} : "")."</tr>\n"; + } + } + $h.="</table>\n"; + + IkiWiki::printheader($session); + print IkiWiki::cgitemplate(undef, gettext("Users"), $h); +} + +1 diff --git a/debian/changelog b/debian/changelog index 2a21cfe27..4b03db600 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +ikiwiki (3.20110609) UNRELEASED; urgency=low + + * userlist: New plugin, lets admins see a list of users and their info. + + -- Joey Hess <joeyh@debian.org> Thu, 09 Jun 2011 10:06:44 -0400 + ikiwiki (3.20110608) unstable; urgency=high * ikiwiki-mass-rebuild: Fix tty hijacking vulnerability by using su. diff --git a/doc/plugins/userlist.mdwn b/doc/plugins/userlist.mdwn new file mode 100644 index 000000000..1d3d38303 --- /dev/null +++ b/doc/plugins/userlist.mdwn @@ -0,0 +1,6 @@ +[[!template id=plugin name=userlist core=0 author="[[Joey]]"]] +[[!tag type/web]] + +This plugin allows wiki admins to see a list of users who have recently +used the wiki. This can be helpful to find openids of users to grant +permissions, or in dealing with spam. |