view release on metacpan or  search on metacpan

ldapAdmin.PL  view on Meta::CPAN

	return;
    }

    print "Making directory $homedir\n" if $verbose;
    require File::Path;
    File::Path::mkpath([$homedir], 0, 0755)
	or die "Failed to create directory $homedir: $!";

    print "Making directory $homedir owned by $uidnumber.$gidnumber"
	if $verbose;
    system "chown", "-R", "$uidnumber.$gidnumber", $homedir unless $debug;
}


############################################################################
#
#   Name:    ItemList
#
#   Purpose: Read a list of items from the LDAP server
#
#   Inputs:  $prefs - LDAP wizard prefs