xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-10-31 19:32:31 +00:00
Code Issues Releases Wiki Activity

-Function skeleton for deleting users in AD

Browse Source 
-Fix bug where a user in AD was missed


git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5368 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso
2010-03-04 19:41:01 +00:00
parent 64115e1c66
commit a4d8f9b458
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
xCAT-server/lib/perl/xCAT/ADUtils.pm
View File

@@ -136,8 +136,20 @@ sub list_user_accounts { #provide enough data to construct an /etc/passwd lookin
}
}
if ($failure) { return undef; }
foreach(keys %currvalues) {
$userhash{$currvalues{accountname}}->{$_} = $currvalues{$_};
}
return \%userhash;
}
sub delete_user_account { #provide enough data to construct an /etc/passwd looking output
my %args = @_;
my $directoryserver = $args{directoryserver};
my $dnsdomain = $args{dnsdomain};
my $username = $args{username};
unless ($dnsdomain and $directoryserver $username) {
die "Invalid arguments";
}
}
=cut
example: add_user_account(username=>'fred',fullname=>'fred the great');
=cut