#!/usr/bin/perl -w # version 0.1 # GPL like # aginies@mandrakesoft.com package MDK::Wizard::ldap; use lib qw(/usr/lib/libDrakX); use ugtk2; use strict; use fcldap; use common; use standalone; use MDK::Wizard::Varspaceval; use MDK::Wizard::Wizcommon; use Expect; use Net::LDAP; #unless ($> == 0) { # die "You are not root Exiting\n"; #} my $DC = get_dc(); my $wiz = new MDK::Wizard::Wizcommon; my $LDAPCONF = "/etc/openldap/slapd.conf"; my $HOME = "/home/"; my $IP = "192.168.100.169"; my $o = { name => 'LDAP Configuration Wizard', var => { defou => 'People', dom => 'toto.com', rootdse => 'toto.com', rootdn => 'manager', rootpass => 'secret', cn => '', sn => '', uid => '', uidpass => '', lshell => '/bin/bash', uidnb => '', guinb => '', container => 'ou=users,dc=people.', objectclass => 'top,account,posixaccount', shadowmax => '99999', shadowmin => '-1', shadowina => '-1', shadowina => '-1', }, needed_rpm => [ 'openldap-servers', 'openldap-clients' ], defaultimage => "/usr/share/wizards/dns_wizard/images/DNS.png" }; my %level = ( 1 => N("Server - Set configuration of LDAP server"), 2 => N("Add - add entry in LDAP server"), ); $o->{pages} = { welcome => { name => N("LDAP configuration wizard") . "\n\n" . N("Setup a LDAP server."), no_back => 1, pre => sub { $o->{var}{wiz_level} ||= 1 }, post => sub { if ($o->{var}{wiz_level} == 2) { return 'add_user_posix'; } }, data => [ { label => N("which operation on LDAP:"), val => \$o->{var}{wiz_level}, list => [ keys %level ], format => sub { $level{$_[0]} } }, ], next => 'setldap', }, add_user_posix => { name => N("Add data in LDAP") . "\n\n" . N("UID, GUID, home directory, "), data => [ { label => N("First Name:"), val => \$o->{var}{cn} }, { label => N("Last Name:"), val => \$o->{var}{sn} }, { label => N("User Name:"), val => \$o->{var}{uid} }, { label => N("Password:"), val => \$o->{var}{uidpass} }, { label => N("Login shell:"), val => \$o->{var}{lshell} }, { label => N("UID number:"), val => \$o->{var}{uidnb} }, { label => N("Group ID:"), val => \$o->{var}{Guidnb} }, { label => N("Container:"), val => $o->{var}{container} . $DC }, ], post => \&test_add, next => 'summaryadd', }, setldap => { name => N("LDAP RootDSE Example: \"obelx.nux.com\" will be \"dc=obelx,dc=nux,dc=com\" in LDAP config. RootDN is the manager of your LDAP server."), data => [ { label => N("RootDSE"), val => \$o->{var}{rootdse} }, { label => N("RootDN"), val => \$o->{var}{rootdn} }, { label => N("Password"), val => \$o->{var}{rootpass} }, { label => N("Default OU"), val => \$o->{var}{defou} }, ], post => \&test_set, next => 'summaryset', }, summaryadd => { name => N("Ok Now add entry in LDAP"), data => [ { label => N("First Name:"), fixed_val => \$o->{var}{cn} }, { label => N("Last Name:"), fixed_val => \$o->{var}{sn} }, { label => N("User Name:"), fixed_val => \$o->{var}{uid} }, { label => N("Password:"), fixed_val => \$o->{var}{uidpass} }, { label => N("Home directory:"), fixed_val => \$o->{var}{uid} }, { label => N("Login shell:"), val => \$o->{var}{lshell} }, { label => N("uid number:"), fixed_val => \$o->{var}{uidnb} }, { label => N("Group ID:"), fixed_val => \$o->{var}{Guidnb} }, { label => N("Container:"), fixed_val => \$o->{var}{container} }, { label => N("shadowMax:"), fixed_val => \$o->{var}{shadowmax} }, { label => N("shadowMin:"), fixed_val => \$o->{var}{shadowmin} }, { label => N("shadowWarning:"), fixed_val => \$o->{var}{shadowina} }, { label => N("shadowInactive:"), fixed_val => \$o->{var}{shadowina} }, { label => N("shadowExpire:"), fixed_val => \$o->{var}{shadowexpire} }, { label => N("objectClass:"), fixed_val => \$o->{var}{objectclass} }, ], post => \&do_it_add, next => 'endadd', }, summaryset => { name => N("Ok Now building your LDAP configuration") . "\n\n" . N("with this configuration:"), data => [ { label => N("RootDSE"), fixed_val => \$o->{var}{rootdse} }, { label => N("RootDN"), fixed_val => \$o->{var}{rootdn} }, ], post => \&do_it_setldap, next => 'end' }, error_homedir => { name => N("Error in Home directory"), next => 'add_user_posix', }, error_pass => { name => N("Error, pass could not be empty"), next => 'setldap', }, error_shell => { name => N("Error in Login shell") . "\n\n" . N("Please choose a correct one"), next => 'add_user_posix', }, error_nb => { name => N("Error") . "\n\n" . N("Please Should be a number"), next => 'add_user_posix', }, end => { name => N("Congratulations"), data => [ { label => N("The wizard successfully configured the LDAP.") } ], no_back => 1, end => 1, next => 0 }, endadd => { name => N("Successfully add data"), data => [ { label => N("The wizard successfully add entry in LDAP") } ], no_back => 1, end => 1, next => 0 }, }; sub rootdse_to_dc { my ($data) = @_; my @t = split(/\./, $data); $o->{var}{dom} = $t[0]; my $dcall = join(',dc=', split(/\./, $data)); return $dcall; } sub test_set { $o->{var}{rootpass} or return 'error_pass'; } sub get_dc { my $DC = "dc=test,dc=com"; return $DC; } sub do_it_setldap { if (!-f $LDAPCONF) { die "no $LDAPCONF found" }; cp_af($LDAPCONF, $LDAPCONF . '.save'); if (!-f "$LDAPCONF.example") { cp_af($LDAPCONF, $LDAPCONF . '.example') }; cp_af($LDAPCONF . '.example', $LDAPCONF); my $dcall = rootdse_to_dc($o->{var}{rootdse}); print "$dcall\n"; # set suffix if (any { /^suffix/ } cat_($LDAPCONF)) { substInFile { s/suffix.*/suffix\t"dc=$dcall"/; } $LDAPCONF; } else { append_to_file($LDAPCONF, qq(suffix\t"dc=$dcall")); } # s/example/$dcall substInFile { s/example/dc=$dcall/g; } $LDAPCONF; # set rootdn if (any { /^rootdn/ } cat_($LDAPCONF)) { substInFile { s/rootdn.*/rootdn\t"cn=$o->{var}{rootdn},dc=$dcall"/; } $LDAPCONF; } else { append_to_file($LDAPCONF, qq(rootdn\t"$o->{var}{rootdn},dc=$dcall")); } # set rootpass my $cryptpass = crypt($o->{var}{rootpass}, "crypt"); if (any { /^rootpw/ } cat_($LDAPCONF)) { substInFile { s/rootpw.*/rootpw $cryptpass/; } $LDAPCONF; } else { append_to_file($LDAPCONF, "rootpw {CRYPT}$cryptpass"); } # reset premisions system("chown -R root.ldap /etc/openldap"); system("service ldap restart"); $o->{var}{rootdse} = "dc=$dcall"; create_rootdse($o); } sub test_add { # -d $o->{var}{HOME} . "/" . $o->{var}{uid} or return 'error_homedir'; $o->{var}{uidnb} =~ /\d*/ or return 'error_nb'; $o->{var}{Guidnb} =~ /\d*/ or return 'error_nb'; -f $o->{var}{lshell} or return 'error_shell'; } sub do_it_add { my $dcall = rootdse_to_dc($o->{var}{rootdse}); $o->{var}{rootdse} = "dc=$dcall"; $o->{var}{rootpass} = "secret"; add_user_posix($o); } sub new { my ($class, $conf) = @_; bless { o => $o, }, $class; } 1;