1 files changed, 0 insertions, 108 deletions
diff --git a/ldap_wizard/ldapdef.pm b/ldap_wizard/ldapdef.pm
deleted file mode 100644
index d731d24f..00000000
--- a/ldap_wizard/ldapdef.pm
+++ /dev/null
@@ -1,108 +0,0 @@
-package MDK::Wizard::ldapdef;
-
-use strict;
-use Net::LDAP;
-use Net::LDAP::Util qw(ldap_error_text);
-use MDK::Common;
-use standalone;
-use common;
-use ugtk2 qw(:dialogs :create);
-
-require Exporter;
-
-use vars qw(@ISA @EXPORT %cfg %cfgfile $congfile $msg $attrs %ldap $ldap);
-@ISA=qw(Exporter);
-@EXPORT=qw( %cfg %cfgfile $congfile ldap_connect root_bind $msg anonymous_bind ldap_search get_dn $attrs get_dse %ldap add_user);
-
-
-# Connect to Ldap server
-sub ldap_connect {
-  my ($u) = @_;
-  my $ldap = Net::LDAP->new($u->{var}{srv}) or err_dialog("Error!", "Unable to connect to %s", $u->{var}{srv});
-  return $ldap;
-}
-
-# bind root
-sub root_bind {
-  my ($ldap, $u) = @_;
-  my $mesg = $ldap->bind(dn => $u->{var}{rootdn},password => $u->{var}{rootpass});
-  return $mesg;
-}
-
-
-sub anonymous_bind {
-  my ($ldap) = @_;
-  my $mesg = $ldap->bind;
-  return $mesg;
-}
-
-sub ldap_search {
-  my ($ldap, $filter, $basedn) = @_;
-  my $attrs = ['objectClass'];
-  my $mesg = $ldap->search(
-			 base => $basedn,
-			 filter => $filter,
-			 scope => "sub",
-			 attrs => $attrs
-			);
-  my $href = $mesg->as_struct;
-  print("Search results\n");
-  print $href;
-}
-
-sub get_dn {
-  my ($ldap, $filter, $basedn) = @_;
-  my $mesg = $ldap->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($u);
-  root_bind($ldap,$u);
-  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} . $u->{var}{uid},
-				   shadowMin => '-1',
-				   shadowMax => '999999',
-				   shadowWarning => '7',
-				   shadowInactive => '-1',
-				   shadowExpire => '-1',
-				  ]
-			 );
-#  create_dialog("", ldap_error_text($result->code));
-			 #$result->code && die $result->error;
-  return $result->error, ldap_error_text($result->code);
-  #return  ldap_error_text($result->code);
-}