Changeset 3187b26 for npl/fileserver/smb-ldap-tool/modified/smbldap-useradd
- Timestamp:
- 03/12/18 14:22:15 (7 years ago)
- Branches:
- master, perl-5.22
- Children:
- fdfd619
- Parents:
- 1051986
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
npl/fileserver/smb-ldap-tool/modified/smbldap-useradd
r1051986 r3187b26 149 149 150 150 my $userUidNumber = $Options{'u'}; 151 if (!defined($userUidNumber)) { 151 if (!defined($userUidNumber)) { 152 152 $userUidNumber=get_next_id($config{usersdn},"uidNumber"); 153 153 } elsif (getpwuid($userUidNumber)) { … … 158 158 system "/etc/init.d/nscd start > /dev/null 2>&1"; 159 159 } 160 system "nscd -i passwd; nscd -i group"; 160 161 161 162 my $createGroup = 0; 162 163 my $userGidNumber = $Options{'g'}; 163 # gid not specified ? 164 # gid not specified ? 164 165 if (!defined($userGidNumber)) { 165 166 # windows machine => $config{defaultComputerGid} … … 252 253 # MACHINE ACCOUNT 253 254 if (defined($Options{'w'}) or defined($Options{'i'})) { 254 255 255 256 # if Options{'i'} and username does not end with $ caracter => we add it 256 257 if ( $Options{'i'} and !($userName =~ m/\$$/) ) { … … 270 271 system "stty -echo"; 271 272 print "New password : "; 272 chomp($pass=<STDIN>); 273 chomp($pass=<STDIN>); 273 274 print "\n"; 274 275 system "stty echo"; … … 345 346 my $OX_TZ = "Europe/Amsterdam"; 346 347 my $WRITE_GLOBAL_ADDR = "TRUE"; 347 348 348 349 my $GROUPWARE_SERVER="none"; 349 350 if (defined($Options{'W'})) … … 388 389 $add->code && warn "failed to add entry: ", $add->error ; 389 390 390 my $add2 = $ldap_master->add ("ou=addr,uid=$userName,$config{usersdn}", attr => [ 'objectclass' => ['top','organizationalUnit'], 'ou' => "addr" ] ); 391 my $add2 = $ldap_master->add ("ou=addr,uid=$userName,$config{usersdn}", attr => [ 'objectclass' => ['top','organizationalUnit'], 'ou' => "addr" ] ); 391 392 392 393 my $add3 = $ldap_master->modify ("cn=AddressAdmins,o=AddressBook,$config{suffix}",add => { member => "uid=$userName,$config{usersdn}" }); 393 394 $add3->code && warn "failed to add entry: ", $add3->error ; 394 395 395 396 396 397 #if ($createGroup) { … … 416 417 system "chown -R $userUidNumber:$userGidNumber $userHomeDirectory 2>/dev/null"; 417 418 if (defined $config{userHomeDirectoryMode}) { 418 system "chmod $config{userHomeDirectoryMode} $userHomeDirectory 2>/dev/null"; 419 system "chmod $config{userHomeDirectoryMode} $userHomeDirectory 2>/dev/null"; 419 420 } else { 420 system "chmod 700 $userHomeDirectory 2>/dev/null"; 421 system "chmod 700 $userHomeDirectory 2>/dev/null"; 421 422 } 422 423 } … … 498 499 ] 499 500 ); 500 501 501 502 $modify->code && die "failed to add entry: ", $modify->error ; 502 503
Note: See TracChangeset
for help on using the changeset viewer.