#!/usr/bin/perl -w
print "Username (=uid): ";
$user=<STDIN>;
chomp $user;
print "Password: ";
$pass=<STDIN>;
chomp $pass;
print "Full name: ";
$cn=<STDIN>;
chomp $cn;
$salt=join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
$pass=crypt($pass,$salt);
$FILE="|ldapadd -D 'cn=Manager,o=MyCompany,c=DE' -w secret";
open FILE or die;
print FILE <<EOF;
dn: cn=$cn,ou=apache,o=MyCompany,c=DE
objectclass: posixAccount
cn: $cn
uid: $user
uidNumber: 0
gidNumber: 0
homeDirectory: /home/apache
userPassword: {crypt}$pass
EOF
close FILE;
exit 0;