aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess <joey@kitenet.net>2011-06-09 10:08:02 -0400
committerJoey Hess <joey@kitenet.net>2011-06-09 10:10:27 -0400
commitcf707d16541c0f65519231c1ccc9a6c3a7ed8d62 (patch)
tree01965bd0064136c28b619b64305333bf4a902ed4
parent6849c8fab595e0b2c73daf3b691531cf9089de6c (diff)
downloadikiwiki-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.pm73
-rw-r--r--debian/changelog6
-rw-r--r--doc/plugins/userlist.mdwn6
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.