#!/usr/bin/perl
use Env;
use CGI;
use FileHandle;
use IPC::Open2;
use IPC::Open3;
#############################################################################
# user configurable section begins here, changes at own risk and peril
#############################################################################
# basic variables
$ldappath="/home/admin/aoe/bin";
$baseurl="http://$ENV{HTTP_HOST}/~aoe/ldap/";
$defaultserver="$ENV{HTTP_HOST}";
$defaultport=389;
$defaultbase="o=OeH Uni Wien, c=AT";
$defaultqueryattribute="cn1";
$0 =~ /([^\/]*?)$/;
$basename="$1";
# mandatory attributes (used for long form)
@mand=(["Server:","text","server","$ENV{HTTP_HOST}"],
["LDAP Port:","text","port","389"],
["Base DN:","text","base","o=Oeh Uni Wien, c=AT"],
["Rootdn:","text",rootdn,"cn=Admin, o=oeh uni wien, c=at"],
["Rootpw:","password",rootpw,""],
["Suborganisation:","text","uo",""],
["Common Name:","text","cn1",""],
["Other Cname:","text","cn2",""],
["Third Cname:","text","cn3",""],
["Fourth Cname:","text","cn4",""],
["Short Name:","text","sn",""],
["User ID:","text",uid,""],
["Objectclass:","text",objectclass,luser],
["Password:","password",userPassword,""],
["Password (confirmation):","password",userPassword1,""]);
# compulsory attributes (used for long form)
@comp=(["Mail Address:","text",mail,""],
["Description:","text",description,""],
["Mail-forward:","text",forward,""],
["Groups:","text",groups,"users"],
["Office:","text",office,"Oeh Uni Wien"],
["Phone:","text",ophone,""],
["Fax:","text",fax,""],
["Attitude:","text",attitude,"slightly non-technical"],
["Home:","text",home,""],
["Home Phone:","text",phone,""],
["Fax:","text",fax,""],
["Home Page:","text",url,""],
["lart:","text",lart,""]);
# simple interface attributes (used for simple interface)
@simple=(["","hidden","server","$ENV{HTTP_HOST}"],
["","hidden","base","o=Oeh Uni Wien, c=AT"],
["","hidden","port","389"],
["Common Name:","text","cn1",""],
["Short Name:","text","sn",""],
["User ID:","text",uid,""],
["Objectclass:","text",objectclass,luser]);
# options for adding fields (multiple allowed) (used for modify interface)
@options=(
["Other Cname:","text","cn2",""],
["Short Name:","text","sn",""],
["User ID:","text",uid,""],
["Objectclass:","text",objectclass,luser],
["Mail Address:","text",mail,""],
["Description:","text",description,""],
["Mail-forward:","text",forward,""],
["Groups:","text",groups,"users"],
["Office:","text",office,"Oeh Uni Wien"],
["Phone:","text",ophone,""],
["Fax:","text",fax,""],
["Attitude:","text",attitude,"slightly non-technical"],
["Home:","text",home,""],
["Home Phone:","text",phone,""],
["Home Page:","text",url,""],
["lart:","text",lart,""]);
$docfooter="LDAP Home -
Complete Form -
About LDAP
(c) 1998 aoe, gw