From b6762006da16052ed0b55e91b9416712efca01ca Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Mon, 20 Aug 2012 01:54:17 +0200
Subject: Archive the MySQL -> LDAP migration procedure.

---
 ldap/obsolete/addadmin.pl | 51 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100755 ldap/obsolete/addadmin.pl

(limited to 'ldap/obsolete/addadmin.pl')

diff --git a/ldap/obsolete/addadmin.pl b/ldap/obsolete/addadmin.pl
new file mode 100755
index 0000000..508d100
--- /dev/null
+++ b/ldap/obsolete/addadmin.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/perl
+
+# Run `sudo ./addadmin.pl' to add yourself as an administrator for virtual
+# mail hosting.
+# (Use the optional argument if you're not happy with your login name.)
+#
+# To use the tools, you'll need to edit `~/.fripost.yml' and replace
+# `bind_dn' and `bind_pw' by, respectively, the returned Distinguished Name
+# and your password
+
+use 5.010_000;
+use strict;
+use warnings;
+use utf8;
+
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+
+use Fripost::Schema;
+use Fripost::Password;
+use Fripost::Prompt;
+use YAML::Syck;
+
+my $user = $ARGV[0];
+$user //= $ENV{SUDO_USER};
+$user //= $ENV{USER};
+
+die "Error: Cannot find user name.\n"
+    unless defined $user;
+
+# Connect to the LDAP server
+my $ldapconf = LoadFile ( 'ldap.yml' );
+my $ldap = Fripost::Schema->new( $ldapconf );
+$ldap = $ldap->{_ldap};
+
+
+my $dn = join ',', ( 'cn='.$user
+                   , 'ou=managers'
+                   , (split ',', $ldapconf->{base_dn},2)[1] );
+
+my $password = hash( undef, undef, prompt_password() );
+my $res = $ldap->add( $dn,
+                attrs => [ objectClass  => [ 'simpleSecurityObject'
+                                           , 'organizationalRole' ]
+                         , userPassword => $password
+                         ]
+              );
+    die "Error: " .$res->error. "\n" if $res->code;
+
+say $dn;
+$ldap->unbind();
-- 
cgit v1.2.3