Displaying 1 result from an estimated 1 matches for "setupldapentry".
2005 May 31
0
Access denied error when trying to join XP to Samba Domain
...uot;;
open (FH, '>', 'updateidpool.ldif');
print FH $entry;
my $cmd = `$LDAPMODIFY -D $ADMINDN -w $ADMINPASS -x -f
updateidpool.ldif`;
}
sub GetShadowLast ()
{
my ($pwdlastset, $i);
$pwdlastset = `date +%s`;
chomp ($pwdlastset);
$i = int($pwdlastset);
return $i;
}
sub SetupLDAPEntry
{
my ($userdn, $username, $uidnum, $gidnum, $gecos, $homedir,
$loginshell, $shadowlast, $shadowmax, $shadowwarning) = @_;
my $entry = "dn: $userdn
objectclass: top
objectclass: account
objectclass: posixAccount
objectclass: shadowAccount
cn: $username
uid: $username...