ikiwiki/ plugins/ contrib/ groupfile (third party plugin)

Plugin: groupfile
Author: Jogo
Included in ikiwiki: no
Enabled by default: no
Included in goodstuff: no
Currently enabled: no

This plugin add a `group(groupname)` function to PageSpec, which is true only if the actual user is member of the group named `groupname`.

Groups membership are read from a file. The syntax of this file is very close to usual `/etc/passwd` Unix file : the group's name, followed by a colon, followed by a coma separated list of user's names. For exemple :

    dev:toto,foo
    i18n:zorba

    #!/usr/bin/perl
    # GroupFile plugin.
    # by Joseph Boudou <jogo at matabio dot net>

    package IkiWiki::Plugin::groupfile;

    use warnings;
    use strict;
    use IkiWiki 3.00;

    sub import {
        hook(type => 'getsetup', id => 'groups', call => \&get_setup);
    }

    sub get_setup () {
        return (
            plugin => {
                safe    => 0,
                rebuild => 0,
            },
            group_file => {
                type        => 'string',
                example     => '/etc/ikiwiki/group',
                description => 'group file location',
                safe        => 0,
                rebuild     => 0,
            },
        );
    }

    my $users_of = 0;

    sub get_groups () {
        if (not $users_of) {

            if (not defined $config{group_file}) {
                return 'group_file option not set';
            }

            open my $file, '<', $config{group_file}
                or return 'Unable to open group_file';

            $users_of = {};
            READ:
            while (<$file>) {
                next READ if (/^\s*$/);

                if (/^(\w+):([\w,]+)/) {
                    %{ $users_of->{$1} } = map { $_ => 1 } split /,/, $2;
                }
                else {
                    $users_of = "Error at group_file:$.";
                    last READ;
                }
            }

            close $file;
        }

        return $users_of;
    }

    package IkiWiki::PageSpec;

    sub match_group ($$;@) {
        shift;
        my $group  = shift;
        my %params = @_;

        if (not exists $params{user}) {
            return IkiWiki::ErrorReason->new('no user specified');
        }
        if (not defined $params{user}) {
            return IkiWiki::FailReason->new('not logged in');
        }

        my $users_of = IkiWiki::Plugin::groupfile::get_groups();
        if (not ref $users_of) {
            return IkiWiki::ErrorReason->new($users_of);
        }

        if (exists $users_of->{$group}{ $params{user} }) {
            return IkiWiki::SuccessReason->new("user is member of $group");
        }
        else {
            return IkiWiki::FailReason->new(
                "user $params{user} isn't member of $group");
        }
    }

    1