summaryrefslogtreecommitdiffstats
path: root/ldap_wizard
diff options
context:
space:
mode:
authorVicent Guardiola <vguardiola@mandriva.com>2004-08-04 15:11:24 +0000
committerVicent Guardiola <vguardiola@mandriva.com>2004-08-04 15:11:24 +0000
commitcc0b8ff27f7bce428a52d9eb5e386706e98ae03c (patch)
tree7dfd6ce8ba49ed053b64be2214478c9eddbd8ae6 /ldap_wizard
parent9f8cb305ad34a052c2d267157591ca2180def24c (diff)
downloaddrakwizard-cc0b8ff27f7bce428a52d9eb5e386706e98ae03c.tar
drakwizard-cc0b8ff27f7bce428a52d9eb5e386706e98ae03c.tar.gz
drakwizard-cc0b8ff27f7bce428a52d9eb5e386706e98ae03c.tar.bz2
drakwizard-cc0b8ff27f7bce428a52d9eb5e386706e98ae03c.tar.xz
drakwizard-cc0b8ff27f7bce428a52d9eb5e386706e98ae03c.zip
ldap function for ldap wizard
Diffstat (limited to 'ldap_wizard')
-rw-r--r--ldap_wizard/ldapdef.pm182
1 files changed, 182 insertions, 0 deletions
diff --git a/ldap_wizard/ldapdef.pm b/ldap_wizard/ldapdef.pm
new file mode 100644
index 00000000..d538cc7c
--- /dev/null
+++ b/ldap_wizard/ldapdef.pm
@@ -0,0 +1,182 @@
+package ldapdef;
+
+use strict;
+use Net::LDAP;
+use Net::LDAP::Util qw(ldap_error_text);
+
+use lib qw(/usr/lib/libDrakX);
+use ugtk2;
+use common;
+use standalone;
+use MDK::Wizard::Varspaceval;
+use MDK::Wizard::Wizcommon;
+use Expect;
+
+require Exporter;
+
+use vars qw(@ISA @EXPORT %cfg %cfgfile $congfile $msg $attrs %ldap $ldap);
+@ISA=qw(Exporter);
+@EXPORT=qw( %cfg %cfgfile $congfile load_config ldap_connect root_bind $msg anonymous_bind ldap_search get_dn $attrs get_dse %ldap add_user);
+
+require Exporter;
+
+
+my $o = {
+ name => N("Add POSIX account"),
+ var => {
+ defou => 'ou=Users',
+ srv => '',
+ dom => 'mandrakesoft.com',
+ suffix => '',
+ rootdn => '',
+ rootpass => '',
+ rootpass2 => '',
+ cn => '',
+ sn => '',
+ uid => '',
+ uidpass => '',
+ lshell => '/bin/bash',
+ home => '/home/',
+ uidnb => '1004',
+ gidnb => '1004',
+ container => 'container',
+ objectclass => 'top,account,posixaccount',
+ shadowmax => '99999',
+ shadowmin => '-1',
+ plop => '',
+ tmp => '',
+ nom => '',
+ prenom => '',
+ },
+ needed_rpm => [ 'squid' ],
+ defaultimage => "/usr/share/wizards/proxy_wizard/images/proxy.png"
+ };
+
+
+
+
+
+
+
+
+
+
+
+
+
+my $ldap_suffix=join(',dc=', split(/\./, `hostname -f`));
+$ldap_suffix =~ s/[^,]*,//;
+my $conf_file = "/etc/sysconfig/ldapconf";
+
+##### Read conf file is exist
+
+my $hostname = `hostname`;
+$o->{var}{srv} = $hostname;
+
+if (-f $conf_file) {
+
+ my %conf = getVarsFromSh($conf_file);
+ $o->{var}{suffix} = $conf{suffix};
+ $o->{var}{rootdn} = $conf{rootdn};
+ $o->{var}{rootpass} = $conf{rootpass};
+ $o->{var}{srv} = $conf{srv};
+ $o->{var}{defou} = $conf{users};
+
+} else {
+
+ my $hostname = `hostname`;
+ $o->{var}{srv} = $hostname;
+ $o->{var}{suffix} = $ldap_suffix;
+
+}
+
+# Connect to Ldap server
+sub ldap_connect {
+
+ my $cnx= Net::LDAP->new($o->{var}{srv}) or die "Impossible de se connecter au server";
+}
+
+# bind root
+sub root_bind{
+ my ($ldap) = @_;
+ my $mesg=$ldap->bind(dn =>"cn=".$o->{var}{rootdn}.",".$o->{var}{suffix},password =>$o->{var}{rootpass});
+ print ldap_error_text($mesg->code);
+ return $mesg->code;
+}
+
+
+sub anonymous_bind{
+ my ($ds) = @_;
+ my $mesg=$ds->bind;
+ return $mesg->code;
+}
+
+sub ldap_search{
+ my ($ds,$filter,$basedn) = @_;
+ my $attrs =['objectClass'];
+ my $mesg = $ds->search(
+ base => $basedn,
+ filter => $filter,
+ scope => "sub",
+ attrs => $attrs
+ );
+ my $href = $mesg->as_struct;
+ print("Résultats de la recherchei\n");
+ print "$href";
+}
+
+sub get_dn{
+ my ($ds,$filter,$basedn,$attrs) = @_;
+ my $mesg = $ds->search(
+ base => $basedn,
+ filter => $filter,
+ scope => "sub",
+ #attrs => $attrs
+ );
+ #my $entry = "";
+ #foreach $entry ($mesg->entries) {
+ #print "show DN ".$entry->dn."\n";
+ #}
+ return $mesg
+}
+
+sub get_dse {
+
+ my $ldap = ldap_connect();
+ my $result = get_dn($ldap,"(objectclass=organization)","$cfg{'base'}");
+ my @arrayOfDNs = $result->entries;
+ #my %ldap = ();
+ foreach my $dn_value (@arrayOfDNs)
+ {
+ my $orga = $dn_value->dn;
+ $ldap{'orga'} = $orga;
+ }
+ return %ldap;
+}
+
+sub add_user {
+ my ($u) = @_;
+ my $ldap = ldap_connect();
+ root_bind($ldap);
+ my $result = $ldap->add(
+ "uid=$u->{var}{uid},$u->{var}{defou},$u->{var}{suffix}",
+ attr => [
+ objectclass => ["top","posixAccount","inetOrgPerson","shadowAccount"],
+ sn => $u->{var}{sn},
+ uid => $u->{var}{uid},
+ cn => $u->{var}{cn},
+ userPassword => $u->{var}{uidpass},
+ loginShell => $u->{var}{lshell},
+ uidNumber => $u->{var}{uidnb},
+ gidNumber => $u->{var}{gidnb},
+ homeDirectory => $u->{var}{home},
+ shadowMin => '-1',
+ shadowMax => '999999',
+ shadowWarning => '7',
+ shadowInactive => '-1',
+ shadowExpire => '-1',
+ ]
+ );
+ #print ldap_error_text($result->code);
+ return $result->code;
+}