Viewing file:  save_passwd.cgi (1.46 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# save_passwd.cgi
# Create, update or delete a CVS user
require './pserver-lib.pl';
$access{'passwd'} || &error($text{'passwd_ecannot'});
&ReadParse();
@passwd = &list_passwords();
$user = $passwd[$in{'idx'}] if (!$in{'new'});
&lock_file($passwd_file);
if ($in{'delete'}) {
# Just delete the user
&delete_password($user);
}
else {
# Validate and store inputs
&error_setup($text{'save_err'});
$in{'user'} =~ /^[^:\s]+$/ || &error($text{'save_euser'});
$user->{'user'} = $in{'user'};
if ($in{'pass_def'} == 2) {
$user->{'pass'} = undef;
}
elsif ($in{'pass_def'} == 0) {
local $salt = chr(int(rand(26))+65) . chr(int(rand(26))+65);
$user->{'pass'} = &unix_crypt($in{'pass'}, $salt);
}
elsif ($in{'pass_def'} == 3) {
&foreign_require("useradmin", "user-lib.pl");
@users = &useradmin::list_users();
($copy) = grep { $_->{'user'} eq $in{'user'} } @users;
$copy || &error($text{'save_ecopy'});
$copy->{'pass'} =~ /^\$1\$/ && &error($text{'save_emd5'});
$user->{'pass'} = $copy->{'pass'};
}
if ($in{'unix_def'}) {
$user->{'unix'} = undef;
}
else {
defined(getpwnam($in{'unix'})) || &error($text{'save_eunix'});
$user->{'unix'} = $in{'unix'};
}
# Save or create the user
if ($in{'new'}) {
&create_password($user);
}
else {
&modify_password($user);
}
}
&unlock_file($passwd_file);
&webmin_log($in{'delete'} ? "delete" : $in{'new'} ? "create" : "modify",
"user", $user->{'user'}, $user);
&redirect("list_passwd.cgi");
|