Lines Matching refs:user
63 local %user;
72 $user{'min'} = $line[8];
73 $user{'max'} = $line[9];
81 $user{'min'} = $line[8];
82 $user{'max'} = $line[9];
83 $user{'expire'} = $line[10];
84 map { $user{$_}++ } split(/\s+/, $line[11]);
92 $user{'min'} = $line[8];
93 $user{'max'} = $line[9];
94 $user{'warn'} = $line[10];
95 $user{'inactive'} = $line[11];
96 $user{'expire'} = $line[12];
97 $user{'change'} = $line[2] eq '' ? '' :
106 $user{'class'} = $line[8];
107 $user{'change'} = $line[9];
108 $user{'expire'} = $line[10];
119 $err = &validate_batch_minmax(\%user, $lnum);
130 $user{'user'} = $line[1];
131 $err = &check_username_restrictions($user{'user'});
136 if ($taken{$user{'user'}}) {
137 print &text('batch_euser', $lnum, $user{'user'}),"\n";
145 $user{'uid'} = $newuid;
154 $user{'uid'} = $line[3];
156 $used{$user{'uid'}}++;
161 $user{'shell'} = $line[7];
162 $user{'real'} = $line[5];
164 $user{'gid'} = $gids[0];
170 $user{'home'} = &auto_home_dir($access{'home'},
171 $user{'user'},
175 $config{'real_base'}, $user{'user'}, $grp);
182 $user{'home'} = &auto_home_dir(
183 $config{'home_base'}, $user{'user'},
184 $user{'gid'});
188 $user{'user'}, $grp);
197 $user{'home'} = $line[6];
200 $real_home ||= $user{'home'};
208 local $ch = &check_user(\%user);
227 $user{'pass'} = $line[2];
228 $user{'passmode'} = 2;
232 $user{'pass'} = $config{'lock_string'};
233 $user{'passmode'} = 1;
237 $user{'pass'} = '';
238 $user{'passmode'} = 0;
242 $user{'pass'} = &encrypt_password($line[2]);
243 $user{'passmode'} = 3;
244 $user{'plainpass'} = $line[2];
248 &set_user_envs(\%user, 'CREATE_USER', $user{'plainpass'},
254 if ($user{'gid'} !~ /^\d+$/) {
261 if ($gtaken{$user{'user'}}) {
263 $user{'user'}),"\n";
268 $newgid = $user{'uid'};
276 $group{'group'} = $user{'user'};
277 $user{'gid'} = $group{'gid'} = $newgid;
283 if ($in{'makehome'} && !-d $user{'home'}) {
284 &create_home_directory(\%user, $real_home);
286 &create_user(\%user);
292 push(@mems, $user{'user'});
303 &other_modules("useradmin_create_user", \%user)
312 local $groupname = &my_getgrgid($user{'gid'});
313 local $uf = &get_skel_directory(\%user, $groupname);
314 ©_skel_files($uf, $user{'home'},
315 $user{'uid'}, $user{'gid'});
318 print "<b>",&text('batch_created',$user{'user'}),"</b>\n";
330 local ($user) = grep { $_->{'user'} eq $line[1] } @ulist;
331 if (!$user) {
335 if (!&can_edit_user(\%access, $user)) {
340 if (!$config{'delete_root'} && $user->{'uid'} <= 10) {
347 &set_user_envs($user, 'DELETE_USER', undef,
348 [ &secondary_groups($user->{'user'}) ]);
356 &other_modules("useradmin_delete_user", $user)
364 &delete_user($user);
369 $idx = &indexof($user->{'user'}, @mems);
376 $mygroup = $g if ($g->{'group'} eq $user->{'user'});
394 $user->{'home'} &&
395 $user->{'home'} !~ /^\/+$/) {
396 &delete_home_directory($user);
399 print "<b>",&text('batch_deleted',$user->{'user'}),"</b>\n";
415 local ($user) = grep { $_->{'user'} eq $line[1] } @ulist;
416 if (!$user) {
420 %olduser = %user = %$user;
421 $user{'olduser'} = $user->{'user'};
422 if (!&can_edit_user(\%access, \%user)) {
433 $user{'user'} = $line[2];
437 $user{'pass'} = $line[3];
438 $user{'passmode'} = 2;
442 $user{'pass'} = $config{'lock_string'};
443 $user{'passmode'} = 1;
447 $user{'pass'} = &encrypt_password($line[3]);
448 $user{'passmode'} = 3;
449 $user{'plainpass'} = $line[3];
453 $user{'passmode'} = 4;
455 $user{'uid'} = $line[4] if ($line[4] ne '');
456 $user{'gid'} = $line[5] if ($line[5] ne '');
457 $user{'real'} = $line[6] if ($line[6] ne '');
458 $user{'home'} = $line[7] if ($line[7] ne '');
459 $user{'shell'} = $line[8] if ($line[8] ne '');
463 $user{'min'}=$line[9] if ($line[9] ne '');
464 $user{'max'}=$line[10] if ($line[10] ne '');
465 $user{'change'}=int(time() / (60*60*24))
470 $user{'min'}=$line[9] if ($line[9] ne '');
471 $user{'max'}=$line[10] if ($line[10] ne '');
472 $user{'expire'}=$line[11] if ($line[11] ne '');
474 delete($user{'admin'});
475 delete($user{'admchg'});
476 delete($user{'nocheck'});
477 map { $user{$_}++ }
480 $user{'change'}=time() if ($line[3] ne '');
484 $user{'min'}=$line[9] if ($line[9] ne '');
485 $user{'max'}=$line[10] if ($line[10] ne '');
486 $user{'warn'}=$line[11] if ($line[11] ne '');
487 $user{'inactive'}=$line[12]
489 $user{'expire'}=$line[13] if ($line[13] ne '');
490 $user{'change'}=int(time() / (60*60*24))
495 $user{'class'}=$line[9] if ($line[9] ne '');
496 $user{'change'}=$line[10] if ($line[10] ne '');
497 $user{'expire'}=$line[11] if ($line[11] ne '');
509 &set_user_envs(\%user, 'MODIFY_USER', $user{'plainpass'},
510 [ &secondary_groups($user{'user'}) ]);
516 if ($olduser{'home'} ne $user{'home'} && $in{'movehome'} &&
517 $user{'home'} ne '/' && $olduser{'home'} ne '/') {
518 if (-d $olduser{'home'} && !-e $user{'home'}) {
521 "\"$user{'home'}\" 2>&1");
528 if ($olduser{'gid'} != $user{'gid'} && $in{'chgid'}) {
530 &recursive_change($user{'home'},$olduser{'uid'},
531 $olduser{'gid'}, -1, $user{'gid'});
535 $olduser{'gid'}, -1, $user{'gid'});
538 if ($olduser{'uid'} != $user{'uid'} && $in{'chuid'}) {
540 &recursive_change($user{'home'},$olduser{'uid'},
541 -1, $user{'uid'}, -1);
545 -1, $user{'uid'}, -1);
553 if ($olduser{'user'} ne $user{'user'}) {
558 $mems[$idx] = $user{'user'};
629 if ($user{'gid'} ne '') {
661 local ($user, $lnum) = @_;
663 $user->{$f} =~ /^(\-|\+|)\d*$/ ||
664 return &text('batch_e'.$f, $lnum, $user->{$f});