PAL.C.T MINI SHELL
#!/usr/bin/perl
# save_euser.cgi
# Save an existing samba user
require './samba-lib.pl';
&ReadParse();
if ($in{'delete'}) {
# Just redirect to delete page
&redirect("delete_euser.cgi?idx=$in{'idx'}");
return;
}
# check acls
&error_setup("$text{'eacl_aviol'}ask_epass.cgi");
&error("$text{'eacl_np'} $text{'eacl_pmusers'}")
unless $access{'maint_users'} && $access{'view_users'};
# save
&error_setup($text{'saveuser_fail'});
&lock_file($config{'smb_passwd'});
@list = &list_users();
$u = $list[$in{'idx'}];
# check inputs
$in{'uid'} =~ /^\d+$/ || &error(&text('saveuser_uid', $in{'uid'}));
$u->{'uid'} = $in{'uid'};
if ($in{'new'}) {
$u->{'opts'} = [ split(/\0/, $in{'opts'}) ];
}
else {
$in{'realname'} !~ /:/ ||
&error($text{'saveuser_colon'});
(-d $in{'homedir'}) ||
&error(&text('saveuser_home', $in{'homedir'}));
(-x $in{'shell'}) || &error(&text('saveuser_shell', $in{'shell'}));
$u->{'home'} = $in{'homedir'};
$u->{'shell'} = $in{'shell'};
$u->{'real'} = $in{'realname'};
}
# apply changes
if ($in{ptype} == 0) {
$u->{'pass1'} = $u->{'$pass2'} = ("X" x 32);
}
elsif ($in{ptype} == 1) {
$u->{'pass1'} = "NO PASSWORDXXXXXXXXXXXXXXXXXXXXX";
$u->{'pass2'} = $u->{'pass1'};
}
elsif ($in{ptype} == 3) {
# changing password.. need to set later with smbpasswd
$u->{'pass1'} = $u->{'$pass2'} = ("X" x 32);
$set_passwd = 1;
}
&modify_user($u);
# Call password change program if necessary
if ($set_passwd) {
&set_password($u->{'name'}, $in{'pass'}, \$err) ||
&error(&text('saveuser_pass', $err));
}
&unlock_file($config{'smb_passwd'});
&webmin_log("save", "euser", $u->{'name'}, $u);
&redirect("edit_epass.cgi");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`