View File Name : mod_core.pl
\n";
return (2, $text{'mod_core_cdpath'}, $rv);
}
sub save_CDPath
{
$in{'CDPath'} =~ s/\r//g;
return ( [ split(/\s+/, $in{'CDPath'}) ] );
}
sub edit_Class_Classes
{
my $rv = $text{'mod_core_classes'}.
&choice_input($_[1]->[0]->{'value'}, "Classes", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},")."
\n";
$rv .= &ui_columns_start([ $text{'mod_core_cname'}, $text{'mod_core_ctype'}, ]);
my $i = 0;
foreach my $c (@{$_[0]}, { }) {
my @w = @{$c->{'words'}};
$rv .= &ui_columns_row([
&ui_textbox("Class_n_$i", $w[0], 8),
&ui_select("Class_t_$i", $w[1],
[ [ 'limit', $text{'mod_core_climit'} ],
[ 'regex', $text{'mod_core_cregex'} ],
[ 'ip', $text{'mod_core_cip'} ] ])." ".
&ui_textbox("Class_v_$i", $w[2], 20)
]);
$i++;
}
$rv .= &ui_columns_end();
return (2, $text{'mod_core_cls'}, $rv);
}
sub save_Class_Classes
{
local ($i, @rv);
for($i=0; defined($in{"Class_n_$i"}); $i++) {
next if (!$in{"Class_n_$i"});
$in{"Class_t_$i"} ne 'limit' ||
$in{"Class_v_$i"} =~ /^\d+$/ ||
&error($text{'mod_core_eclimit'});
$in{"Class_t_$i"} ne 'regex' ||
$in{"Class_v_$i"} =~ /\S/ ||
&error($text{'mod_core_ecregex'});
$in{"Class_t_$i"} ne 'ip' ||
$in{"Class_v_$i"} =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)\/(\d+)$/ ||
&error($text{'mod_core_ecip'});
push(@rv, join(" ", $in{"Class_n_$i"}, $in{"Class_t_$i"},
$in{"Class_v_$i"}));
}
return ( \@rv, $in{'Classes'} eq 'on' ? [ 'on' ] :
$in{'Classes'} eq 'off' ? [ 'off' ] : [ ] );
}
sub edit_CommandBufferSize
{
return (1, $text{'mod_core_buffer'},
&opt_input($_[0]->{'value'}, "CommandBufferSize", $text{'default'}, 5));
}
sub save_CommandBufferSize
{
return &parse_opt("CommandBufferSize", '^\d+$', $text{'mod_core_ebuffer'});
}
sub edit_DefaultServer
{
return (1, $text{'mod_core_defaultserver'},
&choice_input($_[0]->{'value'}, "DefaultServer", "off",
"$text{'yes'},on",
"$text{'no'},off"));
}
sub save_DefaultServer
{
return &parse_choice("DefaultServer", "off");
}
sub edit_DefaultTransferMode
{
return (1, $text{'mod_core_transfer'},
&select_input($_[0]->{'value'}, "DefaultTransferMode", "",
"$text{'mod_core_ascii'},ascii",
"$text{'mod_core_binary'},binary",
"$text{'default'},"));
}
sub save_DefaultTransferMode
{
return &parse_choice("DefaultTransferMode", "");
}
sub edit_DeferWelcome
{
return (1, $text{'mod_core_defer'},
&choice_input($_[0]->{'value'}, "DeferWelcome", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_DeferWelcome
{
return &parse_choice("DeferWelcome", "");
}
sub edit_DeleteAbortedStores
{
return (1, $text{'mod_core_aborted'},
&choice_input($_[0]->{'value'}, "DeleteAbortedStores", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_DeleteAbortedStores
{
return &parse_choice("DeleteAbortedStores", "");
}
sub edit_DenyFilter
{
return (1, $text{'mod_core_dfilter'},
&opt_input($_[0]->{'value'}, "DenyFilter", $text{'default'}, 15));
}
sub save_DenyFilter
{
return &parse_opt("DenyFilter");
}
sub edit_DenyGroup
{
local $v = @{$_[0]} ? join(" ", (map { $_->{'value'} } @{$_[0]})) : undef;
return (2, $text{'mod_core_dgroup'},
&opt_input($v, "DenyGroup", $text{'mod_core_none'}, 50));
}
sub save_DenyGroup
{
return ( $in{'DenyGroup_def'} ? [ ] : [ split(/\s+/, $in{'DenyGroup'}) ] );
}
sub edit_DenyUser
{
local $v = @{$_[0]} ? join(" ", (map { $_->{'value'} } @{$_[0]})) : undef;
return (2, $text{'mod_core_duser'},
&opt_input($v, "DenyUser", $text{'mod_core_none'}, 50));
}
sub save_DenyUser
{
return ( $in{'DenyUser_def'} ? [ ] : [ split(/\s+/, $in{'DenyUser'}) ] );
}
sub edit_DisplayConnect
{
return (2, $text{'mod_core_display'},
&opt_input($_[0]->{'value'}, "DisplayConnect",
$text{'mod_core_none'}, 50));
}
sub save_DisplayConnect
{
return &parse_opt("DisplayConnect", '\S', $text{'mod_core_edisplay'});
}
sub edit_DisplayFirstChdir
{
return (1, $text{'mod_core_firstcd'},
&opt_input($_[0]->{'value'}, "DisplayFirstChdir",
$text{'mod_core_none'}, 15));
}
sub save_DisplayFirstChdir
{
return &parse_opt("DisplayFirstChdir", '^\S+$', $text{'mod_core_efirstcd'});
}
sub edit_DisplayChdir
{
return (1, $text{'mod_core_firstcd'},
&opt_input($_[0]->{'words'}->[0], "DisplayChdir",
$text{'mod_core_none'}, 15).
&ui_checkbox("DisplayChdir_always", 'true', $text{'mod_core_firstcdt'},
$_[0]->{'words'}->[1] eq 'true'));
}
sub save_DisplayChdir
{
local @rv = &parse_opt("DisplayChdir", '^\S+$', $text{'mod_core_efirstcd'});
if ($in{'DisplayChdir_always'}) {
$rv[0]->[0] .= ' true';
}
return @rv;
}
sub edit_DisplayGoAway
{
return (2, $text{'mod_core_goaway'},
&opt_input($_[0]->{'value'}, "DisplayGoAway",
$text{'mod_core_none'}, 50));
}
sub save_DisplayGoAway
{
return &parse_opt("DisplayGoAway", '\S', $text{'mod_core_egoaway'});
}
sub edit_DisplayLogin
{
return (2, $text{'mod_core_login'},
&opt_input($_[0]->{'value'}, "DisplayLogin",
$text{'mod_core_none'}, 50));
}
sub save_DisplayLogin
{
return &parse_opt("DisplayLogin", '\S', $text{'mod_core_elogin'});
}
sub edit_DisplayQuit
{
return (2, $text{'mod_core_quit'},
&opt_input($_[0]->{'value'}, "DisplayQuit",
$text{'mod_core_none'}, 50));
}
sub save_DisplayQuit
{
return &parse_opt("DisplayQuit", '\S', $text{'mod_core_equit'});
}
sub edit_Group
{
my @ginfo;
my $rv = &ui_radio_table("Group",
!$_[0] ? 0 :
$_[0]->{'value'} =~ /^#/ ? 2 : 1,
[ [ 0, $text{'default'} ],
[ 1, $text{'mod_core_gname'},
&ui_textbox("Group_name", $_[0]->{'value'} !~ /^#/ ? $_[0]->{'value'} : "", 13) ],
[ 2, $text{'mod_core_gid'},
&ui_textbox("Group_name", $_[0]->{'value'} =~ /^#(.*)$/ ? $1 : "", 13) ] ]);
return (2, $text{'mod_core_group'}, $rv);
}
sub save_Group
{
if ($in{'Group'} == 0) { return ( [ ] ); }
elsif ($in{'Group'} == 1) { return ( [ $in{'Group_name'} ] ); }
elsif ($in{'Group_id'} !~ /^\-?\d+$/) {
&error(&text('core_euid', $in{'Group_id'}));
}
else { return ( [ "#$in{'Group_id'}" ] ); }
}
sub edit_GroupOwner
{
return (1, $text{'mod_core_gowner'},
&opt_input($_[0]->{'value'}, "GroupOwner", $text{'default'}, 13,
&group_chooser_button("GroupOwner")));
}
sub save_GroupOwner
{
if ($in{'GroupOwner_def'}) { return ( [ ] ); }
else {
defined(getgrnam($in{'GroupOwner'})) || &error($text{'mod_core_egowner'});
return ( [ $in{'GroupOwner'} ] );
}
}
sub edit_GroupPassword
{
my $rv = &ui_columns_start([ $text{'mod_core_gpname'},
$text{'mod_core_gppass'} ]);
my $i = 0;
foreach my $g (@{$_[0]}) {
my @v = @{$g->{'words'}};
$rv .= &ui_columns_row([
&ui_textbox("GroupPassword_n_$i", $v[0], 13),
&ui_radio("GroupPassword_d_$i", $v[1],
[ [ $v[1], $text{'mod_core_gpdef'} ],
[ 0, &ui_textbox("GroupPassword_p_$i", undef, 25) ] ]),
]);
$i++;
}
$rv .= &ui_columns_row([
&ui_textbox("GroupPassword_n_$i", undef, 13),
&ui_textbox("GroupPassword_d_$i", undef, 25),
]);
$rv .= &ui_columns_end();
return (2, $text{'mod_core_grouppassword'}, $rv);
}
sub save_GroupPassword
{
local @rv;
for($i=0; defined($in{"GroupPassword_n_$i"}); $i++) {
next if (!$in{"GroupPassword_n_$i"});
scalar(getgrnam($in{"GroupPassword_n_$i"})) ||
&error($text{'mod_core_egpname'});
if ($in{"GroupPassword_d_$i"}) {
push(@rv, $in{"GroupPassword_n_$i"}.' '.
$in{"GroupPassword_d_$i"});
}
else {
$salt = substr(time(), 0, 2);
push(@rv, $in{"GroupPassword_n_$i"}.' '.
&unix_crypt($in{"GroupPassword_p_$i"}, $salt));
}
}
return ( \@rv );
}
sub edit_HiddenStor
{
return (1, $text{'mod_core_hstor'},
&choice_input($_[0]->{'value'}, "HiddenStor", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_HiddenStor
{
return &parse_choice("HiddenStor", "");
}
sub edit_HiddenStores
{
return (1, $text{'mod_core_hstor'},
&choice_input($_[0]->{'value'}, "HiddenStores", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_HiddenStores
{
return &parse_choice("HiddenStores", "");
}
sub edit_HideGroup
{
return (2, $text{'mod_core_hgroup'},
&ui_textbox("HideGroup", join(" ", map { $_->{'value'} } @{$_[0]}), 50));
}
sub save_HideGroup
{
local @hg = split(/\s+/, $in{'HideGroup'});
foreach $g (@hg) {
scalar(getgrnam($g)) || &error($text{'mod_core_ehgroup'});
}
return ( \@hg );
}
sub edit_HideNoAccess
{
return (1, $text{'mod_core_hnoaccess'},
&choice_input($_[0]->{'value'}, "HideNoAccess", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_HideNoAccess
{
return &parse_choice("HideNoAccess", "");
}
sub edit_HideUser
{
return (2, $text{'mod_core_huser'},
&ui_textbox("HideUser", join(" ", map { $_->{'value'} } @{$_[0]}), 50));
}
sub save_HideUser
{
local @hu = split(/\s+/, $in{'HideUser'});
foreach $u (@hu) {
defined(getpwnam($u)) || &error($text{'mod_core_ehuser'});
}
return ( \@hu );
}
sub edit_IdentLookups
{
return (1, $text{'mod_core_ident'},
&choice_input($_[0]->{'value'}, "IdentLookups", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_IdentLookups
{
return &parse_choice("IdentLookups", "");
}
sub edit_IgnoreHidden
{
return (1, $text{'mod_core_ihidden'},
&choice_input($_[0]->{'value'}, "IgnoreHidden", "off",
"$text{'yes'},on", "$text{'no'},off"));
}
sub save_IgnoreHidden
{
return &parse_choice("IgnoreHidden", "off");
}
sub edit_MasqueradeAddress
{
return (2, $text{'mod_core_masq'},
&opt_input($_[0]->{'value'}, "MasqueradeAddress",
$text{'mod_core_masq_def'}, 30));
}
sub save_MasqueradeAddress
{
$in{'MasqueradeAddress_def'} || &to_ipaddress($in{'MasqueradeAddress'}) ||
&error($text{'mod_core_emasq'});
return &parse_opt("MasqueradeAddress");
}
sub edit_MaxClients
{
return (2, $text{'mod_core_maxc'}, &edit_max($_[0], "MaxClients"));
}
sub save_MaxClients
{
return &save_max("MaxClients");
}
sub edit_MaxClientsPerHost
{
return (2, $text{'mod_core_maxch'}, &edit_max($_[0], "MaxClientsPerHost"));
}
sub save_MaxClientsPerHost
{
return &save_max("MaxClientsPerHost");
}
sub edit_MaxClientsPerUser
{
return (2, $text{'mod_core_maxcu'}, &edit_max($_[0], "MaxClientsPerUser"));
}
sub save_MaxClientsPerUser
{
return &save_max("MaxClientsPerUser");
}
sub edit_max
{
my $m = !$_[0] ? 0 :
$_[0]->{'words'}->[0] eq 'none' ? 1 : 2;
my $rv = &ui_radio("$_[1]_m", $m,
[ [ 0, $text{'default'} ],
[ 1, $text{'mod_core_maxc1'} ],
[ 2, &ui_textbox($_[1], $m == 2 ? $_[0]->{'words'}->[0] : "", 6) ] ]);
$rv .= "
$text{'mod_core_maxcmsg'}\n";
$rv .= &ui_textbox("$_[1]_t", $m > 0 ? $_[0]->{'words'}->[1] : "", 40);
return $rv;
}
sub save_max
{
if ($in{"$_[0]_m"} == 0) {
return ( [ ] );
}
else {
local $n;
if ($in{"$_[0]_m"} == 1) {
$n = "none";
}
else {
$in{$_[0]} =~ /^\d+$/ || &error($text{'mod_core_emaxc'});
$n = $in{$_[0]};
}
if ($in{"$_[0]_t"}) {
return ( [ "$n \"".$in{"$_[0]_t"}."\"" ] );
}
else {
return ( [ $n ] );
}
}
}
sub edit_MaxInstances
{
return (1, $text{'mod_core_instances'},
&opt_input($_[0]->{'value'}, "MaxInstances", $text{'default'}, 4));
}
sub save_MaxInstances
{
return &parse_opt("MaxInstances", '^\d+$', $text{'mod_core_einstances'});
}
sub edit_MaxLoginAttempts
{
return (1, $text{'mod_core_logins'},
&opt_input($_[0]->{'value'}, "MaxLoginAttempts", $text{'default'}, 4));
}
sub save_MaxLoginAttempts
{
return &parse_opt("MaxLoginAttempts", '^\d+$', $text{'mod_core_elogins'});
}
sub edit_MultilineRFC2228
{
return (1, $text{'mod_core_rfc2228'},
&choice_input($_[0]->{'value'}, "MultilineRFC2228", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_MultilineRFC2228
{
return &parse_choice("MultilineRFC2228", "");
}
sub edit_PassivePorts
{
my $rv = &ui_radio("PassivePorts_def", $_[0] ? 0 : 1,
[ [ 1, $text{'default'} ],
[ 0, $text{'mod_core_pasvr'}." ".
&ui_textbox("PassivePorts_f", $_[0] ? $_[0]->{'words'}->[0] : "", 5).
" - ".
&ui_textbox("PassivePorts_t", $_[0] ? $_[0]->{'words'}->[1] : "", 5) ]
]);
return (1, $text{'mod_core_pasv'}, $rv);
}
sub save_PassivePorts
{
if ($in{'PassivePorts_def'}) {
return ( [ ] );
}
else {
$in{'PassivePorts_f'} =~ /^\d+$/ || &error($text{'mod_core_epasv'});
$in{'PassivePorts_t'} =~ /^\d+$/ || &error($text{'mod_core_epasv'});
return ( [ "$in{'PassivePorts_f'} $in{'PassivePorts_t'}" ] );
}
}
sub edit_PathAllowFilter
{
return (1, $text{'mod_core_pathallow'},
&opt_input($_[0]->{'words'}->[0], "PathAllowFilter",
$text{'mod_core_any'}, 20));
}
sub save_PathAllowFilter
{
return &parse_opt("PathAllowFilter");
}
sub edit_PathDenyFilter
{
return (1, $text{'mod_core_pathdeny'},
&opt_input($_[0]->{'words'}->[0], "PathDenyFilter",
$text{'mod_core_none'}, 20));
}
sub save_PathDenyFilter
{
return &parse_opt("PathDenyFilter");
}
sub edit_PidFile
{
return (2, $text{'mod_core_pidfile'},
&opt_input($_[0]->{'words'}->[0], "PidFile", $text{'default'}, 50,
&file_chooser_button("PidFile")));
}
sub save_PidFile
{
return &parse_opt("PidFile", '^\/\S+$', $text{'mod_core_epidfile'});
}
sub edit_Port
{
return (1, $text{'mod_core_port'},
&opt_input($_[0]->{'value'}, "Port", $text{'default'}, 6));
}
sub save_Port
{
return &parse_opt("Port", '^\d+$', $text{'mod_core_eport'});
}
sub edit_RequireValidShell
{
return (1, $text{'mod_core_shell'},
&choice_input($_[0]->{'value'}, "RequireValidShell", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_RequireValidShell
{
return &parse_choice("RequireValidShell", "");
}
sub edit_RLimitCPU
{
return &rlimit_input("RLimitCPU", $text{'mod_core_cpulimit'}, $_[0]);
}
sub save_RLimitCPU
{
return &parse_rlimit("RLimitCPU", $text{'mod_core_ecpulimit'});
}
sub edit_RLimitMemory
{
return &rlimit_input("RLimitMemory", $text{'mod_core_memlimit'}, $_[0]);
}
sub save_RLimitMemory
{
return &parse_rlimit("RLimitMemory", $text{'mod_core_ememlimit'});
}
sub edit_RLimitOpenFiles
{
return &rlimit_input("RLimitOpenFiles", $text{'mod_core_filelimit'}, $_[0]);
}
sub save_RLimitOpenFiles
{
return &parse_rlimit("RLimitOpenFiles", $text{'mod_core_efilelimit'});
}
# rlimit_input(name, desc, value)
sub rlimit_input
{
my @w = @{$_[2]->{'words'}};
my $rv = "$text{'mod_core_soft'} ".
&ui_radio("$_[0]_smax",
$w[0] eq 'max' ? 1 : $w[0] ? 2 : 0,
[ [ 2, $text{'default'} ],
[ 1, $text{'mod_core_max'} ],
[ 0, &ui_textbox("$_[0]_soft",
$w[0] eq 'max' ? '' : $w[0], 6) ] ]);
$rv .= "$text{'mod_core_hard'} ".
&ui_radio("$_[0]_hmax",
$w[1] eq 'max' ? 1 : $w[1] ? 2 : 0,
[ [ 2, $text{'default'} ],
[ 1, $text{'mod_core_max'} ],
[ 0, &ui_textbox("$_[0]_hard",
$w[1] eq 'max' ? '' : $w[1], 6) ] ]);
return (2, $_[1], $rv);
}
# parse_rlimit(name, desc)
sub parse_rlimit
{
if ($in{"$_[0]_smax"} == 2) {
return ( [ ] );
}
local @v;
if ($in{"$_[0]_smax"} == 1) {
push(@v, "max");
}
else {
$in{"$_[0]_soft"} =~ /^(\d+)(G|M|K|B)?$/i ||
&error(&text('mod_core_esoft', $_[1]));
push(@v, $in{"$_[0]_soft"});
}
if ($in{"$_[0]_hmax"} == 1) {
push(@v, "max");
}
elsif ($in{"$_[0]_hmax"} == 0) {
$in{"$_[0]_hard"} =~ /^(\d+)(G|M|K|B)?$/i ||
&error(&text('mod_core_ehard', $_[1]));
push(@v, $in{"$_[0]_hard"});
}
return ( [ join(" ", @v) ] );
}
sub edit_ScoreboardPath
{
return (2, $text{'mod_core_score'},
&opt_input($_[0]->{'words'}->[0], "ScoreboardPath", $text{'default'},
50, &file_chooser_button("ScoreboardPath")));
}
sub save_ScoreboardPath
{
return &parse_opt("ScoreboardPath", '^\/\S+$', $text{'mod_core_escore'});
}
sub edit_ServerAdmin
{
return (2, $text{'mod_core_admin'},
&opt_input($_[0]->{'words'}->[0], "ServerAdmin", $text{'default'}, 40));
}
sub save_ServerAdmin
{
return &parse_opt("ServerAdmin", '^\S+\@\S+$', $text{'mod_core_eadmin'});
}
sub edit_ServerIdent
{
my @w = @{$_[0]->{'words'}};
my $rv = &ui_radio("ServerIdent_m",
!@w ? 0 :
lc($w[0]) eq 'off' ? 1 :
lc($w[0]) eq 'on' && !$w[1] ? 2 : 3,
[ [ 0, $text{'default'} ],
[ 1, $text{'mod_core_none'} ],
[ 2, $text{'mod_core_identmsg_def'} ],
[ 3, &ui_textbox("ServerIdent", lc($w[0]) eq 'on' ? $w[1] : "", 30) ] ]);
return (2, $text{'mod_core_identmsg'}, $rv);
}
sub save_ServerIdent
{
if ($in{'ServerIdent_m'} == 0) {
return ( [ ] );
}
elsif ($in{'ServerIdent_m'} == 1) {
return ( [ "off" ] );
}
elsif ($in{'ServerIdent_m'} == 2) {
return ( [ "on" ] );
}
else {
return ( [ "on \"$in{'ServerIdent'}\"" ] );
}
}
sub edit_ServerName
{
return (2, $text{'mod_core_servername'},
&opt_input($_[0]->{'words'}->[0], "ServerName", $text{'default'}, 50));
}
sub save_ServerName
{
return &parse_opt("ServerName", '\S', $text{'mod_core_eservername'});
}
sub edit_ServerType
{
return (1, $text{'mod_core_type'},
&select_input($_[0]->{'value'}, "ServerType", "",
"$text{'mod_core_inetd'},inetd",
"$text{'mod_core_stand'},standalone",
"$text{'default'},"));
}
sub save_ServerType
{
return &parse_choice("ServerType", "");
}
sub edit_ShowSymlinks
{
return (1, $text{'mod_core_links'},
&choice_input($_[0]->{'value'}, "ShowSymlinks", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_ShowSymlinks
{
return &parse_choice("ShowSymlinks", "");
}
sub edit_SocketBindTight
{
return (1, $text{'mod_core_tight'},
&choice_input($_[0]->{'value'}, "SocketBindTight", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_SocketBindTight
{
return &parse_choice("SocketBindTight", "");
}
sub edit_SyslogFacility
{
local @facils = map { "$_,$_" } ( 'auth', 'authpriv', 'cron', 'daemon', 'kern', 'lpr', 'mail', 'news', 'user', 'uucp', 'local0', 'local1', 'local2', 'local3', 'local4', 'local5', 'local6', 'local7' );
return (1, $text{'mod_core_facility'},
&select_input($_[0]->{'value'}, "SyslogFacility", "",
"$text{'default'},", @facils));
}
sub save_SyslogFacility
{
return &parse_select("SyslogFacility", "");
}
sub edit_SyslogLevel
{
local @levels = map { "$_,$_" } ( 'emerg', 'alert', 'crit', 'error', 'warn', 'notice', 'info', 'debug' );
return (1, $text{'mod_core_level'},
&select_input($_[0]->{'value'}, "SyslogLevel", "",
"$text{'default'},", @levels));
}
sub save_SyslogLevel
{
return &parse_select("SyslogLevel", "");
}
sub edit_TransferLog
{
my $mode = $_[0]->{'value'} eq 'NONE' ? 2 :
$_[0]->{'value'} ? 0 : 1;
my $rv = &ui_radio("TransferLog_def", $mode,
[ [ 1, $text{'default'} ],
[ 2, $text{'mod_core_nowhere'} ],
[ 0, &ui_textbox("TransferLog", $mode == 0 ? $_[0]->{'value'} : "", 50) ] ]);
return (2, $text{'mod_core_tlog'}, $rv);
}
sub save_TransferLog
{
if ($in{'TransferLog_def'} == 1) {
return ( [ ] );
}
elsif ($in{'TransferLog_def'} == 2) {
return ( [ 'NONE' ] );
}
else {
$in{'TransferLog'} =~ /^\/\S+$/ || &error($text{'mod_core_etlog'});
return ( [ $in{'TransferLog'} ] );
}
}
sub edit_tcpBackLog
{
return (1, $text{'mod_core_backlog'},
&opt_input($_[0]->{'value'}, "tcpBackLog", $text{'default'}, 6));
}
sub save_tcpBackLog
{
return &parse_opt("tcpBackLog", '^\d+$', $text{'mod_core_ebacklog'});
}
sub edit_tcpNoDelay
{
return (1, $text{'mod_core_nodelay'},
&choice_input($_[0]->{'value'}, "tcpNoDelay", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_tcpNoDelay
{
return &parse_choice("tcpNoDelay", "");
}
sub edit_tcpReceiveWindow
{
return (1, $text{'mod_core_rwindow'},
&opt_input($_[0]->{'value'}, "tcpReceiveWindow", $text{'default'}, 6));
}
sub save_tcpReceiveWindow
{
return &parse_opt("tcpReceiveWindow", '^\d+$', $text{'mod_core_erwindow'});
}
sub edit_tcpSendWindow
{
return (1, $text{'mod_core_swindow'},
&opt_input($_[0]->{'value'}, "tcpSendWindow", $text{'default'}, 6));
}
sub save_tcpSendWindow
{
return &parse_opt("tcpSendWindow", '^\d+$', $text{'mod_core_eswindow'});
}
sub edit_TimesGMT
{
return (1, $text{'mod_core_gmt'},
&choice_input($_[0]->{'value'}, "TimesGMT", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_TimesGMT
{
return &parse_choice("TimesGMT", "");
}
sub edit_TimeoutIdle
{
return (1, $text{'mod_core_tidle'},
&opt_input($_[0]->{'value'}, "TimeoutIdle", $text{'default'}, 6,
$text{'mod_core_secs'}));
}
sub save_TimeoutIdle
{
return &parse_opt("TimeoutIdle", '^\d+$', $text{'mod_core_etidle'});
}
sub edit_TimeoutLogin
{
return (1, $text{'mod_core_tlogin'},
&opt_input($_[0]->{'value'}, "TimeoutLogin", $text{'default'}, 6,
$text{'mod_core_secs'}));
}
sub save_TimeoutLogin
{
return &parse_opt("TimeoutLogin", '^\d+$', $text{'mod_core_etlogin'});
}
sub edit_TimeoutNoTransfer
{
return (1, $text{'mod_core_ttransfer'},
&opt_input($_[0]->{'value'}, "TimeoutNoTransfer", $text{'default'}, 6,
$text{'mod_core_secs'}));
}
sub save_TimeoutNoTransfer
{
return &parse_opt("TimeoutNoTransfer", '^\d+$', $text{'mod_core_ettransfer'});
}
sub edit_TimeoutStalled
{
return (1, $text{'mod_core_tstalled'},
&opt_input($_[0]->{'value'}, "TimeoutStalled", $text{'default'}, 6,
$text{'mod_core_secs'}));
}
sub save_TimeoutStalled
{
return &parse_opt("TimeoutStalled", '^\d+$', $text{'mod_core_etstalled'});
}
sub edit_Umask
{
my $rv = &ui_opt_textbox("Umask", $_[0]->{'words'}->[0], 5,
$text{'default'}, $text{'mod_core_octal'});
$rv .= " $text{'mod_core_umask_d'}\n";
$rv .= &ui_opt_textbox("Umask_d", $_[0]->{'words'}->[1], 5,
$text{'default'}, $text{'mod_core_octal'});
return (2, $text{'mod_core_umask'}, $rv);
}
sub save_Umask
{
if ($in{'Umask_def'}) {
return ( [ ] );
}
else {
$in{'Umask'} =~ /^[0-7]{3}$/ || &error($text{'mod_core_eumask'});
if ($in{'Umask_d_def'}) {
return ( [ $in{'Umask'} ] );
}
else {
$in{'Umask_d'} =~ /^[0-7]{3}$/ || &error($text{'mod_core_eumask'});
return ( [ $in{'Umask'}." ".$in{'Umask_d'} ] );
}
}
}
sub edit_UseFtpUsers
{
return (1, $text{'mod_core_ftpusers'},
&choice_input($_[0]->{'value'}, "UseFtpUsers", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_UseFtpUsers
{
return &parse_choice("UseFtpUsers", "");
}
sub edit_UseHostsAllowFile
{
return (2, $text{'mod_core_hostsallow'},
&opt_input($_[0]->{'value'}, "UseHostsAllowFile", $text{'default'}, 50,
&file_chooser_button("UseHostsAllowFile")));
}
sub save_UseHostsAllowFile
{
$in{'UseHostsAllowFile_def'} || -r $in{'UseHostsAllowFile'} ||
&error($text{'mod_core_ehostsallow'});
return &parse_opt("UseHostsAllowFile");
}
sub edit_UseHostsDenyFile
{
return (2, $text{'mod_core_hostsdeny'},
&opt_input($_[0]->{'value'}, "UseHostsDenyFile", $text{'default'}, 50,
&file_chooser_button("UseHostsDenyFile")));
}
sub save_UseHostsDenyFile
{
$in{'UseHostsDenyFile_def'} || -r $in{'UseHostsDenyFile'} ||
&error($text{'mod_core_ehostsdeny'});
return &parse_opt("UseHostsDenyFile");
}
sub edit_UseReverseDNS
{
return (1, $text{'mod_core_revdns'},
&choice_input($_[0]->{'value'}, "UseReverseDNS", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_UseReverseDNS
{
return &parse_choice("UseReverseDNS", "");
}
sub edit_UserDirRoot
{
return (1, $text{'mod_core_userdir'},
&choice_input($_[0]->{'value'}, "UserDirRoot", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'default'},"));
}
sub save_UserDirRoot
{
return &parse_choice("UserDirRoot", "");
}
sub edit_User
{
my @ginfo;
my $rv = &ui_radio_table("User",
!$_[0] ? 0 :
$_[0]->{'value'} =~ /^#/ ? 2 : 1,
[ [ 0, $text{'default'} ],
[ 1, $text{'mod_core_uname'},
&ui_textbox("User_name", $_[0]->{'value'} !~ /^#/ ? $_[0]->{'value'} : "", 13) ],
[ 2, $text{'mod_core_uid'},
&ui_textbox("User_name", $_[0]->{'value'} =~ /^#(.*)$/ ? $1 : "", 13) ] ]);
return (2, $text{'mod_core_user'}, $rv);
}
sub save_User
{
if ($in{'User'} == 0) { return ( [ ] ); }
elsif ($in{'User'} == 1) { return ( [ $in{'User_name'} ] ); }
elsif ($in{'User_id'} !~ /^\-?\d+$/) {
&error(&text('core_egid', $in{'User_id'}));
}
else { return ( [ "#$in{'User_id'}" ] ); }
}
sub edit_UserAlias
{
my $rv = &ui_columns_start([ $text{'mod_core_afrom'},
$text{'mod_core_ato'} ]);
my $i = 0;
foreach my $u (@{$_[0]}, { }) {
my @w = @{$u->{'words'}};
$rv .= &ui_columns_row([
&ui_textbox("UserAlias_f_$i", $w[0], 15),
&ui_textbox("UserAlias_t_$i", $w[1], 15),
]);
$i++;
}
$rv .= &ui_columns_end();
return (2, $text{'mod_core_ualias'}, $rv);
}
sub save_UserAlias
{
local @rv;
for($i=0; defined($in{"UserAlias_f_$i"}); $i++) {
next if (!$in{"UserAlias_f_$i"});
$in{"UserAlias_f_$i"} =~ /^\S+$/ || &error($text{'mod_core_eafrom'});
$in{"UserAlias_t_$i"} =~ /^\S+$/ || &error($text{'mod_core_eato'});
push(@rv, $in{"UserAlias_f_$i"}.' '.$in{"UserAlias_t_$i"});
}
return ( \@rv );
}
sub edit_UserOwner
{
return (1, $text{'mod_core_uowner'},
&opt_input($_[0]->{'value'}, "UserOwner", $text{'default'}, 13,
&user_chooser_button("UserOwner")));
}
sub save_UserOwner
{
if ($in{'UserOwner_def'}) { return ( [ ] ); }
else {
getpwnam($in{'UserOwner'}) || &error($text{'mod_core_euowner'});
return ( [ $in{'UserOwner'} ] );
}
}
sub edit_UserPassword
{
my $rv = &ui_columns_start([ $text{'mod_core_upname'},
$text{'mod_core_uppass'} ]);
my $i = 0;
foreach my $u (@{$_[0]}) {
my @v = @{$u->{'words'}};
$rv .= &ui_columns_row([
&ui_textbox("UserPassword_n_$i", $v[0], 13),
&ui_radio("UserPassword_d_$i", $v[1],
[ [ $v[1], $text{'mod_core_updef'} ],
[ 0, &ui_textbox("UserPassword_p_$i", "", 25) ] ])
]);
$i++;
}
$rv .= &ui_columns_row([
&ui_textbox("UserPassword_n_$i", undef, 13),
&ui_textbox("UserPassword_p_$i", undef, 35),
]);
$rv .= &ui_columns_end();
return (2, $text{'mod_core_userpassword'}, $rv);
}
sub save_UserPassword
{
local @rv;
for($i=0; defined($in{"UserPassword_n_$i"}); $i++) {
next if (!$in{"UserPassword_n_$i"});
scalar(getpwnam($in{"UserPassword_n_$i"})) ||
&error($text{'mod_core_eupname'});
if ($in{"UserPassword_d_$i"}) {
push(@rv, $in{"UserPassword_n_$i"}.' '.
$in{"UserPassword_d_$i"});
}
else {
$salt = substr(time(), 0, 2);
push(@rv, $in{"UserPassword_n_$i"}.' '.
&unix_crypt($in{"UserPassword_p_$i"}, $salt));
}
}
return ( \@rv );
}
sub edit_WtmpLog
{
return (1, $text{'mod_core_wtmp'},
&choice_input($_[0]->{'value'}, "WtmpLog", "",
"$text{'yes'},on", "$text{'no'},off",
"$text{'mod_core_none'},NONE", "$text{'default'},"));
}
sub save_WtmpLog
{
return &parse_choice("WtmpLog", "");
}