21 |
+ @{$updates->{$dn}}{'uid','userPassword','uidNumber','gidNumber','junk','junk','gecos','homeDirectory','loginShell'} = getpwnam($user); |
+ @{$updates->{$dn}}{'uid','userPassword','uidNumber','gidNumber','junk','junk','gecos','homeDirectory','loginShell'} = getpwnam($user); |
22 |
$updates->{$dn}->{userPassword} =~ s/^/{CRYPT}/ unless $updates->{$dn}->{userPassword} =~ m/^{/; |
$updates->{$dn}->{userPassword} =~ s/^/{CRYPT}/ unless $updates->{$dn}->{userPassword} =~ m/^{/; |
23 |
- $desc = $updates->{$dn}->{cn} = $updates->{$dn}->{gecos}; |
- $desc = $updates->{$dn}->{cn} = $updates->{$dn}->{gecos}; |
24 |
+ my $desc = $updates->{$dn}->{cn} = $updates->{$dn}->{gecos}; |
+ $updates->{$dn}->{cn} = $updates->{$dn}->{gecos}; |
25 |
|
|
26 |
# Samba parameters if we find the samba.schema |
# Samba parameters if we find the samba.schema |
27 |
if ( -f "$schema" and -x '/usr/bin/pdbedit' ) |
if ( -f "$schema" and -x '/usr/bin/pdbedit' ) |