First version of mgapeople

10 files changed, 336 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..b25c15b
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*~
diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000..0e259d4
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,121 @@
+Creative Commons Legal Code
+
+CC0 1.0 Universal
+
+    CREATIVE COMMONS CORPORATION IS NOT A LAW FIRM AND DOES NOT PROVIDE
+    LEGAL SERVICES. DISTRIBUTION OF THIS DOCUMENT DOES NOT CREATE AN
+    ATTORNEY-CLIENT RELATIONSHIP. CREATIVE COMMONS PROVIDES THIS
+    INFORMATION ON AN "AS-IS" BASIS. CREATIVE COMMONS MAKES NO WARRANTIES
+    REGARDING THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS
+    PROVIDED HEREUNDER, AND DISCLAIMS LIABILITY FOR DAMAGES RESULTING FROM
+    THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS PROVIDED
+    HEREUNDER.
+
+Statement of Purpose
+
+The laws of most jurisdictions throughout the world automatically confer
+exclusive Copyright and Related Rights (defined below) upon the creator
+and subsequent owner(s) (each and all, an "owner") of an original work of
+authorship and/or a database (each, a "Work").
+
+Certain owners wish to permanently relinquish those rights to a Work for
+the purpose of contributing to a commons of creative, cultural and
+scientific works ("Commons") that the public can reliably and without fear
+of later claims of infringement build upon, modify, incorporate in other
+works, reuse and redistribute as freely as possible in any form whatsoever
+and for any purposes, including without limitation commercial purposes.
+These owners may contribute to the Commons to promote the ideal of a free
+culture and the further production of creative, cultural and scientific
+works, or to gain reputation or greater distribution for their Work in
+part through the use and efforts of others.
+
+For these and/or other purposes and motivations, and without any
+expectation of additional consideration or compensation, the person
+associating CC0 with a Work (the "Affirmer"), to the extent that he or she
+is an owner of Copyright and Related Rights in the Work, voluntarily
+elects to apply CC0 to the Work and publicly distribute the Work under its
+terms, with knowledge of his or her Copyright and Related Rights in the
+Work and the meaning and intended legal effect of CC0 on those rights.
+
+1. Copyright and Related Rights. A Work made available under CC0 may be
+protected by copyright and related or neighboring rights ("Copyright and
+Related Rights"). Copyright and Related Rights include, but are not
+limited to, the following:
+
+  i. the right to reproduce, adapt, distribute, perform, display,
+     communicate, and translate a Work;
+ ii. moral rights retained by the original author(s) and/or performer(s);
+iii. publicity and privacy rights pertaining to a person's image or
+     likeness depicted in a Work;
+ iv. rights protecting against unfair competition in regards to a Work,
+     subject to the limitations in paragraph 4(a), below;
+  v. rights protecting the extraction, dissemination, use and reuse of data
+     in a Work;
+ vi. database rights (such as those arising under Directive 96/9/EC of the
+     European Parliament and of the Council of 11 March 1996 on the legal
+     protection of databases, and under any national implementation
+     thereof, including any amended or successor version of such
+     directive); and
+vii. other similar, equivalent or corresponding rights throughout the
+     world based on applicable law or treaty, and any national
+     implementations thereof.
+
+2. Waiver. To the greatest extent permitted by, but not in contravention
+of, applicable law, Affirmer hereby overtly, fully, permanently,
+irrevocably and unconditionally waives, abandons, and surrenders all of
+Affirmer's Copyright and Related Rights and associated claims and causes
+of action, whether now known or unknown (including existing as well as
+future claims and causes of action), in the Work (i) in all territories
+worldwide, (ii) for the maximum duration provided by applicable law or
+treaty (including future time extensions), (iii) in any current or future
+medium and for any number of copies, and (iv) for any purpose whatsoever,
+including without limitation commercial, advertising or promotional
+purposes (the "Waiver"). Affirmer makes the Waiver for the benefit of each
+member of the public at large and to the detriment of Affirmer's heirs and
+successors, fully intending that such Waiver shall not be subject to
+revocation, rescission, cancellation, termination, or any other legal or
+equitable action to disrupt the quiet enjoyment of the Work by the public
+as contemplated by Affirmer's express Statement of Purpose.
+
+3. Public License Fallback. Should any part of the Waiver for any reason
+be judged legally invalid or ineffective under applicable law, then the
+Waiver shall be preserved to the maximum extent permitted taking into
+account Affirmer's express Statement of Purpose. In addition, to the
+extent the Waiver is so judged Affirmer hereby grants to each affected
+person a royalty-free, non transferable, non sublicensable, non exclusive,
+irrevocable and unconditional license to exercise Affirmer's Copyright and
+Related Rights in the Work (i) in all territories worldwide, (ii) for the
+maximum duration provided by applicable law or treaty (including future
+time extensions), (iii) in any current or future medium and for any number
+of copies, and (iv) for any purpose whatsoever, including without
+limitation commercial, advertising or promotional purposes (the
+"License"). The License shall be deemed effective as of the date CC0 was
+applied by Affirmer to the Work. Should any part of the License for any
+reason be judged legally invalid or ineffective under applicable law, such
+partial invalidity or ineffectiveness shall not invalidate the remainder
+of the License, and in such case Affirmer hereby affirms that he or she
+will not (i) exercise any of his or her remaining Copyright and Related
+Rights in the Work or (ii) assert any associated claims and causes of
+action with respect to the Work, in either case contrary to Affirmer's
+express Statement of Purpose.
+
+4. Limitations and Disclaimers.
+
+ a. No trademark or patent rights held by Affirmer are waived, abandoned,
+    surrendered, licensed or otherwise affected by this document.
+ b. Affirmer offers the Work as-is and makes no representations or
+    warranties of any kind concerning the Work, express, implied,
+    statutory or otherwise, including without limitation warranties of
+    title, merchantability, fitness for a particular purpose, non
+    infringement, or the absence of latent or other defects, accuracy, or
+    the present or absence of errors, whether or not discoverable, all to
+    the greatest extent permissible under applicable law.
+ c. Affirmer disclaims responsibility for clearing rights of other persons
+    that may apply to the Work or any use thereof, including without
+    limitation any person's Copyright and Related Rights in the Work.
+    Further, Affirmer disclaims responsibility for obtaining any necessary
+    consents, permissions or other rights required for any use of the
+    Work.
+ d. Affirmer understands and acknowledges that Creative Commons is not a
+    party to this document and has no duty or obligation with respect to
+    this CC0 or use of the Work.
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..e09c664
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,19 @@
+VERSION=0.1
+
+BINFILES=mkpeople
+CFGFILES=mgapeople.conf
+TMPLFILES=tmpl/*.html
+
+sysconfdir=/etc
+bindir=/usr/bin
+sharedir=/usr/share
+tmpldir=$(sharedir)/mgapeople/tmpl
+
+install:
+	install -d $(DESTDIR)$(tmpldir) $(DESTDIR)$(bindir) $(DESTDIR)$(sysconfdir)
+	install -m 755 $(BINFILES) $(DESTDIR)$(bindir)
+	install -m 644 $(CFGFILES) $(DESTDIR)$(sysconfdir)
+	install -m 644 $(TMPLFILES) $(DESTDIR)$(tmpldir)
+
+tar:
+	git archive --format=tar --prefix mgapeople-$(VERSION)/ HEAD | xz > mgapeople-$(VERSION).tar.xz
diff --git a/README b/README
new file mode 100644
index 0000000..6e8ac98
--- /dev/null
+++ b/README
@@ -0,0 +1,4 @@
+Mageia tool to generate people pages.
+
+See http://people.mageia.org/
+
diff --git a/mgapeople.conf b/mgapeople.conf
new file mode 100644
index 0000000..59d8333
--- /dev/null
+++ b/mgapeople.conf
@@ -0,0 +1,7 @@
+ldapserver: ldap.mageia.org
+binddn: uid=mgapeople,ou=People,dc=mageia,dc=org
+bindpwfile: /etc/mgapeople.secret
+groupbase: ou=Group,dc=mageia,dc=org
+output_dir: /var/www/vhosts/mgapeople.mageia.org
+tmpl_dir: /usr/share/mgapeople/tmpl
+sitename: people.mageia.org
diff --git a/mkpeople b/mkpeople
new file mode 100755
index 0000000..5f34dc9
--- /dev/null
+++ b/mkpeople
@@ -0,0 +1,112 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Template;
+use Net::LDAP;
+use File::Slurp;
+use YAML qw/LoadFile/;
+
+my $config_file = '/etc/mgapeople.conf';
+my $config = LoadFile($ENV{MGAPEOPLE_CONF} ?  $ENV{MGAPEOPLE_CONF} : $config_file);
+
+my %groups;
+my %users;
+
+sub loaduser {
+    my ($ldap, $user) = @_;
+    my $m = $ldap->search(
+        base   => $user,
+        scope  => 'base',
+        filter => '(objectClass=inetOrgPerson)',
+    );
+    die $m->error if $m->is_error;
+    my $res = $m->as_struct;
+    if (exists $res->{$user}) {
+        $res->{$user}->{groups} = [];
+        $users{$user} = $res->{$user};
+    }
+}
+
+sub loadgroups {
+    my ($ldap) = @_;
+    my $m = $ldap->search(
+        base   => $config->{groupbase},
+        filter => '(objectClass=groupOfNames)',
+    );
+    die $m->error if $m->is_error;
+    my $res = $m->as_struct;
+    for my $groupname (keys %$res) {
+        $groups{$groupname} = $res->{$groupname};
+        for my $user (@{$groups{$groupname}->{member}}) {
+            loaduser($ldap, $user) unless exists $users{$user};
+            if (exists $users{$user}) {
+                push $users{$user}->{groups}, $groupname;
+            }
+        }
+        $res->{$groupname}->{member} =
+            [ grep { exists $users{$_} } @{$groups{$groupname}->{member}} ];
+    }
+}
+
+sub output_users {
+    my ($extension) = @_;
+    my $template = Template->new({
+        INCLUDE_PATH => $config->{tmpl_dir},
+        OUTPUT_PATH => "$config->{output_dir}/u",
+    });
+    for my $user (keys %users) {
+        my $vars = {
+            config => $config,
+            user   => $user,
+            users  => \%users,
+            groups => \%groups,
+        };
+        my $uid = $users{$user}->{uid}->[0];
+        print "user: $user - uid: $uid\n";
+        $template->process("user.$extension", $vars, "$uid.html");
+    }
+
+    my $vars = {
+        config => $config,
+        users  => \%users,
+        groups => \%groups,
+    };
+    $template->process("userindex.$extension", $vars, "index.html");
+}
+
+sub output_groups {
+    my ($extension) = @_;
+    my $template = Template->new({
+        INCLUDE_PATH => $config->{tmpl_dir},
+        OUTPUT_PATH => "$config->{output_dir}/g",
+    });
+    for my $group (keys %groups) {
+        my $vars = {
+            config => $config,
+            group  => $group,
+            users  => \%users,
+            groups => \%groups,
+        };
+        my $cn = $groups{$group}->{cn}->[0];
+        $template->process("group.$extension", $vars, "$cn.html");
+    }
+
+    my $vars = {
+        config => $config,
+        users  => \%users,
+        groups => \%groups,
+    };
+    $template->process("groupindex.$extension", $vars, "index.html");
+}
+
+my $bindpw = read_file($config->{bindpwfile});
+chomp $bindpw;
+my $ldap = Net::LDAP->new($config->{ldapserver}) or die "$@";
+my $m;
+$m = $ldap->start_tls(verify => 'none');
+die $m->error if $m->is_error;
+$m = $ldap->bind($config->{binddn}, password => $bindpw);
+die $m->error if $m->is_error;
+loadgroups($ldap);
+output_users('html');
+output_groups('html');
diff --git a/tmpl/group.html b/tmpl/group.html
new file mode 100644
index 0000000..1a414a4
--- /dev/null
+++ b/tmpl/group.html
@@ -0,0 +1,18 @@
+<html>
+    <head>
+        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+        <title>[% config.sitename %]: g/[% groups.$group.cn.0 %]</title>
+    </head>
+    <body>
+        <h1>[% groups.$group.cn.0 %]</h1>
+
+        <h3>[% groups.$group.description.0 %]</h3>
+
+        Members:
+        <ul>
+            [% FOREACH user IN groups.$group.member %]
+              <li><a href="../u/[% users.$user.uid.0 %].html">[% users.$user.cn.0 %] ([% users.$user.uid.0 %])</a></li>
+            [% END %]
+        </ul>
+    </body>
+</html>
diff --git a/tmpl/groupindex.html b/tmpl/groupindex.html
new file mode 100644
index 0000000..4489883
--- /dev/null
+++ b/tmpl/groupindex.html
@@ -0,0 +1,14 @@
+<html>
+    <head>
+        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+        <title>[% config.sitename %]: g</title>
+    </head>
+    <body>
+        <h1>groups</h1>
+        <ul>
+            [% FOREACH group IN groups %]
+            <li><a href="[% group.value.cn.0 %].html">[% group.value.cn.0 %]</a> : [% group.value.description.0 %]</li>
+            [% END %]
+        </ul>
+    </body>
+</html>
diff --git a/tmpl/user.html b/tmpl/user.html
new file mode 100644
index 0000000..3130983
--- /dev/null
+++ b/tmpl/user.html
@@ -0,0 +1,26 @@
+<html>
+    <head>
+        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+        <title>[% config.sitename %]: u/[% users.$user.uid.0 %]</title>
+    </head>
+    <body>
+        <h1>[% users.$user.uid.0 %]</h1>
+        <ul>
+            <li>
+            <b>Name</b>: [% users.$user.cn.0 %]
+            </li>
+            <li>
+            <b>Login</b>: [% users.$user.uid.0 %]
+            </li>
+            <li>
+            <b>UID</b>: [% users.$user.uidnumber.0 %]
+            </li>
+            <li>
+            <b>Groups</b>:
+            [% FOREACH group IN users.$user.groups %]
+              <a href="../g/[% groups.$group.cn.0 %].html">[% groups.$group.cn.0 %]</a>
+            [% END %]
+            </li>
+        </ul>
+    </body>
+</html>
diff --git a/tmpl/userindex.html b/tmpl/userindex.html
new file mode 100644
index 0000000..23c28aa
--- /dev/null
+++ b/tmpl/userindex.html
@@ -0,0 +1,14 @@
+<html>
+    <head>
+        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+        <title>[% config.sitename %]: u</title>
+    </head>
+    <body>
+        <h1>Users</h1>
+        <ul>
+            [% FOREACH user IN users %]
+            <li><a href="[% user.value.uid.0 %].html">[% user.value.cn.0 %] ([% user.value.uid.0 %])</a></li>
+            [% END %]
+        </ul>
+    </body>
+</html>