Lines Matching refs:userName
89 my $userName = $ARGV[0];
93 if ($userName =~ /[^\$]$/s) {
94 $userName .= "\$";
98 # untaint $userName (can finish with one or two $)
99 if ($userName =~ /^([\w -.]+\$?)$/) {
100 $userName = $1;
107 my ($rc, $dn) = get_user_dn2($userName);
109 print "$0: user $userName exists\n";
227 $userHomeDirectory = &subst_user($config{userHome}, $userName);
237 $givenName = (utf8Encode($Options{'N'}) || $userName);
238 $userSN = (utf8Encode($Options{'S'}) || $userName);
242 $userCN=$userName;
254 if ( $Options{'i'} and !($userName =~ m/\$$/) ) {
255 $userName.="\$";
258 if (!add_posix_machine ($userName,$userUidNumber,$userGidNumber,$Options{'t'})) {
286 my $modify = $ldap_master->modify ( "uid=$userName,$config{computersdn}",
315 $add = $ldap_master->add ("uid=$userName,$config{usersdn}",
320 'uid' => "$userName",
330 $add = $ldap_master->add ("uid=$userName,$config{usersdn}",
336 'uid' => "$userName",
350 # group_add($userName, $userGidNumber);
354 group_add_user($userGidNumber, $userName);
360 add_grouplist_user($grouplist, $userName);
365 unless ( $userName =~ /\$$/ ) {
439 my $modify = $ldap_master->modify ( "uid=$userName,$config{usersdn}",
457 my $FILE="|smbpasswd -s -a $userName >/dev/null" ;
472 my $valscriptpath = &subst_user($tmp, $userName);
475 my $valsmbhome = &subst_user($tmp, $userName);
482 my $valprofilepath = &subst_user($tmp, $userName);
502 my $modify = $ldap_master->modify ( "uid=$userName,$config{usersdn}",
513 my $modify = $ldap_master->modify ( "uid=$userName,$config{usersdn}",
529 exec "$RealBin/smbldap-passwd \"$userName\""