aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMakefile.PL4
-rw-r--r--debian/changelog5
-rw-r--r--doc/ikiwiki-update-wikilist.mdwn28
-rw-r--r--doc/usage.mdwn1
-rwxr-xr-xikiwiki-update-wikilist48
5 files changed, 83 insertions, 3 deletions
diff --git a/Makefile.PL b/Makefile.PL
index 741f530a2..130484a7c 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -39,12 +39,13 @@ extra_build: ikiwiki.out
--plugin=haiku --plugin=polygen --plugin=fortune
./mdwn2man ikiwiki 1 doc/usage.mdwn > ikiwiki.man
./mdwn2man ikiwiki-mass-rebuild 8 doc/ikiwiki-mass-rebuild.mdwn > ikiwiki-mass-rebuild.man
+ ./mdwn2man ikiwiki-update-wikilist 1 doc/ikiwiki-update-wikilist.mdwn > ikiwiki-update-wikilist.man
$(MAKE) -C po
if [ "$$PROFILE" = 1 ]; then dprofpp; fi
extra_clean:
rm -rf html doc/.ikiwiki
- rm -f ikiwiki.man ikiwiki-mass-rebuild.man ikiwiki.out
+ rm -f ikiwiki.man ikiwiki-mass-rebuild.man ikiwiki-update-wikilist.man ikiwiki.out
$(MAKE) -C po clean
extra_install:
@@ -69,6 +70,7 @@ extra_install:
install -d $(DESTDIR)$(PREFIX)/share/man/man1
install -m 644 ikiwiki.man $(DESTDIR)$(PREFIX)/share/man/man1/ikiwiki.1
+ install -m 644 ikiwiki-update-wikilist.man $(DESTDIR)$(PREFIX)/share/man/man1/ikiwiki-update-wikilist.1
install -d $(DESTDIR)$(PREFIX)/share/man/man8
install -m 644 ikiwiki-mass-rebuild.man $(DESTDIR)$(PREFIX)/share/man/man8/ikiwiki-mass-rebuild.8
diff --git a/debian/changelog b/debian/changelog
index 1f916d865..46cce44de 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -38,9 +38,10 @@ ikiwiki (2.7) UNRELEASED; urgency=low
* table: Text::CSV doesn't return decoded unicode (XS module); decode its
return values.
* Change git test suite to reflect change in log for initial repo creation
- commit.
+ commit.
+ * Add the ikiwiki-update-wikilist command.
- -- Joey Hess <joeyh@debian.org> Wed, 05 Sep 2007 19:43:37 -0400
+ -- Joey Hess <joeyh@debian.org> Wed, 05 Sep 2007 20:07:24 -0400
ikiwiki (2.6.1) unstable; urgency=low
diff --git a/doc/ikiwiki-update-wikilist.mdwn b/doc/ikiwiki-update-wikilist.mdwn
new file mode 100644
index 000000000..4e87f92e6
--- /dev/null
+++ b/doc/ikiwiki-update-wikilist.mdwn
@@ -0,0 +1,28 @@
+# NAME
+
+ikiwiki-update-wikilist - add or remove user from /etc/ikiwiki/wikilist
+
+# SYNOPSIS
+
+ikiwiki-update-wikilist
+
+# DESCRIPTION
+
+`ikiwiki-update-wikilist` is designed to be made suid root, but not installed
+suid by default. If made suid, it allows users to add or remove their names
+from the `/etc/ikiwiki/wikilist` file. If a user's name is not in the file,
+it will be added; if the name is already present, it will be removed.
+
+If your name is in `/etc/ikiwiki/wikilist`, the [[ikiwiki-mass-rebuild]](8)
+command will look for a ~/.ikiwiki/wikilist file, and rebuild the wikis listed
+in that file.
+
+# OPTIONS
+
+None.
+
+# AUTHOR
+
+Joey Hess <joey@ikiwiki.info>
+
+Warning: this page is automatically made into ikiwiki-update-wikilist's man page, edit with care
diff --git a/doc/usage.mdwn b/doc/usage.mdwn
index 3075cb107..4fb91b89b 100644
--- a/doc/usage.mdwn
+++ b/doc/usage.mdwn
@@ -295,6 +295,7 @@ configuration options of their own.
# SEE ALSO
* [[ikiwiki-mass-rebuild]](8)
+* [[ikiwiki-update-wikilist]](1)
# AUTHOR
diff --git a/ikiwiki-update-wikilist b/ikiwiki-update-wikilist
new file mode 100755
index 000000000..0f3f0bcc6
--- /dev/null
+++ b/ikiwiki-update-wikilist
@@ -0,0 +1,48 @@
+#!/usr/bin/perl -t
+# Add a user to the system wide wikilist.
+# This script can safely be made suid.
+use warnings;
+use strict;
+use English;
+
+my $username=getpwuid($REAL_USER_ID);
+if (! defined $username || ! length $username) {
+ die "unable to determine user name for UID $REAL_USER_ID\n";
+}
+
+my $wikilist="/etc/ikiwiki/wikilist";
+if (! -e $wikilist) {
+ die "$wikilist does not exist\n";
+}
+
+my $removed=0;
+my @lines;
+open (my $list, "<$wikilist") || die "read $wikilist: $!";
+while (<$list>) {
+ chomp;
+ if (/^\s*([^\s]+)\s*$/) {
+ my $user=$1;
+ if ($user eq $username) {
+ $removed=1;
+ }
+ else {
+ push @lines, $_;
+ }
+ }
+ else {
+ push @lines, $_;
+ }
+}
+close $list || die "error reading $list: $!";
+open ($list, ">$wikilist") || die "write $wikilist: $!";
+foreach (@lines) {
+ print $list "$_\n";
+}
+if ($removed) {
+ print "removed user $username from $wikilist\n";
+}
+else {
+ print $list "$username\n";
+ print "added user $username to $wikilist\n";
+}
+close $list || die "error writing $list: $!";