3 # Save, create or delete a MON user
5 require './mon-lib.pl';
7 &error_setup($text{'user_err'});
8 @users = &list_users();
9 $user = $users[$in{'index'}] if ($in{'index'} ne '');
12 # Just delete the user
17 $in{'user'} =~ /^[^:\s]+$/ || &error($text{'user_euser'});
18 if ($in{'new'} || $in{'user'} ne $user->{'user'}) {
19 local ($same) = grep { $_->{'user'} eq $in{'user'} } @users;
20 $same && &error($text{'user_esame'});
23 # Create or update the user
24 $salt = substr(time(), -2);
25 $user->{'user'} = $in{'user'};
26 if (!$in{'pass_def'}) {
27 $user->{'pass'} = &unix_crypt($in{'pass'}, $salt);
37 &redirect("list_users.cgi");