#!/usr/local/bin/perl
# edit_unix.cgi
# Save automatic unix user authentication options
require './acl-lib.pl';
&ReadParse();
&error_setup($text{'unix_err'});
$access{'unix'} && $access{'create'} && $access{'delete'} ||
&error($text{'unix_ecannot'});
# Parse Unix auth table
if (!$in{'unix_def'}) {
for($i=0; defined($mode = $in{"mode_$i"}); $i++) {
next if (!$mode);
$who = $in{"who_$i"};
if ($mode == 2 && !$who) {
&error(&text('unix_ewhogroup', $i+1));
}
elsif ($mode == 3 && !$who) {
&error(&text('unix_ewhouser', $i+1));
}
$to = $in{"to_$i"};
push(@unix, [ $mode == 1 ? "*" :
$mode == 2 ? "\@$who" : $who, $to ]);
}
@unix || &error($text{'unix_enone'});
}
# Parse list of allowed users
@users = split(/\s+/, $in{"users"});
if ($in{"access"}) {
foreach $u (@users) {
if ($u =~ /^\@(\S+)$/) {
defined(getgrnam($1)) ||
&error(&text('unix_egroup', "$1"));
}
elsif ($u =~ /^(\d*)-(\d*)$/ && ($1 || $2)) {
# Assume UIDs are ok
}
else {
defined(getpwnam($u)) ||
&error(&text('unix_euser', $u));
}
}
}
if ($in{'shells_deny'}) {
-r $in{'shells'} || &error($text{'unix_eshell'});
}
&lock_file($ENV{'MINISERV_CONFIG'});
&get_miniserv_config(\%miniserv);
&save_unixauth(\%miniserv, \@unix);
delete($miniserv{"allowusers"});
delete($miniserv{"denyusers"});
if ($in{"access"} == 1) { $miniserv{"allowusers"} = join(' ', @users); }
elsif ($in{"access"} == 2) { $miniserv{"denyusers"} = join(' ', @users); }
if ($in{'shells_deny'}) {
$miniserv{'shells_deny'} = $in{'shells'};
}
else {
delete($miniserv{'shells_deny'});
}
if ($in{'sudo'}) {
&has_command("sudo") || &error(&text('unix_esudo', "sudo"));
eval "use IO::Pty";
$@ && &error(&text('unix_esudomod', "IO::Pty"));
}
$miniserv{'sudo'} = $in{'sudo'};
$miniserv{'pamany'} = $in{'pamany'} ? $in{'pamany_user'} : undef;
&put_miniserv_config(\%miniserv);
&unlock_file($ENV{'MINISERV_CONFIG'});
if ($oldsudo != $in{'sudo'}) {
&restart_miniserv();
}
else {
&reload_miniserv();
}
&webmin_log("unix");
&redirect("");