\n",
join("\n", @al) );
}
sub save_ServerAlias
{
local(@al);
@al = split(/\s+/, $in{'ServerAlias'});
if (@al) {
local @spal;
while(@al > 200) {
push(@spal, join(" ", @al[0 .. 199]));
@al = @al[200 .. $#al];
}
push(@spal, join(" ", @al)) if (@al);
return ( \@spal );
}
else {
return ( [ ] );
}
}
sub edit_ServerName
{
return (1, $text{'core_hostname'},
&opt_input($_[0]->{'value'}, "ServerName", $text{'core_auto'}, 25));
}
sub save_ServerName
{
return &parse_opt("ServerName", '^\S+$', $text{'core_ehostname'});
}
sub edit_NameVirtualHost
{
local(@nv, $nv, $star);
foreach $nv (@{$_[0]}) {
if ($nv->{'value'} eq "*" && $_[1]->{'version'} >= 1.312) { $star++; }
elsif ($nv->{'value'} =~ /^\[(\S+)\]$/) { push(@nv, $1); }
else { push(@nv, $nv->{'value'}); }
}
if ($_[1]->{'version'} >= 1.312) {
$starui = sprintf
"
%s
\n",
$star ? "checked" : "", $text{'core_virtaddr_star'};
}
return (1, $text{'core_virtaddr'},
$starui.
"
");
}
sub save_NameVirtualHost
{
local(@nv, $nv, $addr);
@nv = split(/\s+/, $in{'NameVirtualHost'});
@nv = ( "*", @nv ) if ($in{'NameVirtualHost_star'});
foreach $nv (@nv) {
if ($nv =~ /^\[(\S+)\]:(\d+|\*)$/) { $addr = $1; }
elsif ($nv =~ /^(\S+):(\d+|\*)$/) { $addr = $1; }
else { $addr = $nv; }
if (!&to_ipaddress($addr) &&
!&to_ip6address($addr) && $addr ne '*') {
&error(&text('core_evirtaddr', $addr));
}
if ($nv =~ /^(\S+):(\d+|\*)$/ && &check_ip6address($1)) {
$nv = "[$1]:$2";
}
elsif (&check_ip6address($nv)) {
$nv = "[$nv]";
}
}
if (@nv) { return ( \@nv ); }
else { return ( [ ] ); }
}
sub edit_Protocols
{
my %p = map { $_, 1 } @{$_[0]->{'words'}};
my @popts = ( "h2", "h2c", "http/1.1" );
my @psel = map { &ui_checkbox("protocols", $_, $text{'core_protocols_'.$_} || $_, $p{$_}) } @popts;
return (1,
$text{'core_protocols'},
&ui_radio("protocols_def", %p ? 0 : 1,
[ [ 1, $text{'default'}.
" (".$text{'core_protocols_http/1.1'}.")
" ],
[ 0, $text{'core_protocols_sel'} ] ])." ".
join(" ", @psel),
);
}
sub save_Protocols
{
if ($in{'protocols_def'}) {
return ( [ ] );
}
else {
my @prots = split(/\0/, $in{'protocols'});
@prots || &error($text{'core_eprotocols'});
@prots = sort @prots;
return ( [ join(" ", @prots) ] );
}
}
#########################################################################
# Document directives
sub edit_AccessFileName
{
return (1,
$text{'core_optfile'},
&opt_input($_[0]->{'value'}, "AccessFileName", $text{'core_default'}, 20));
}
sub save_AccessFileName
{
if ($_[0]->{'version'} < 1.3) {
return &parse_opt("AccessFileName", '^(\S+)$',
$text{'core_eoptfile'});
}
else {
return &parse_opt("AccessFileName", '\S',
$text{'core_enoopt'});
}
}
@AllowOverride_v = ("AuthConfig", "FileInfo", "Indexes", "Limit", "Options");
@AllowOverride_d = ("$text{'core_auth'}", "$text{'core_mime'}",
"$text{'core_indexing'}", "$text{'core_hostacc'}",
"$text{'core_diropts'}");
sub edit_AllowOverride
{
local($rv, @ov, %over, $rv);
$rv = &choice_input($_[0] ? 0 : 1, "AllowOverride_def", 1,
"$text{'core_default'},1", "$text{'core_filesel'},0");
$rv .= "
\n";
return (1, $text{'core_overr'}, $rv);
}
sub save_AllowOverride
{
local(@ov, $ov);
if ($in{'AllowOverride_def'}) { return ( [ ] ); }
foreach $ov (@AllowOverride_v) {
if ($in{"AllowOverride_$ov"}) { push(@ov, $ov); }
}
if (!@ov) { return ( [ "None" ] ); }
elsif (@ov == @AllowOverride_v) { return ( [ "All" ] ); }
else { return ( [ join(' ', @ov) ] ); }
}
sub edit_ContentDigest
{
return (1,
$text{'core_genmd5'},
&choice_input($_[0]->{'value'}, "ContentDigest", "",
"$text{'yes'},on", "$text{'no'},off", "$text{'core_default'},"));
}
sub save_ContentDigest
{
return &parse_choice("ContentDigest", "");
}
sub edit_DocumentRoot
{
return (2, $text{'core_docroot'},
&opt_input($_[0]->{'words'}->[0], "DocumentRoot", $text{'core_default'}, 40).
&file_chooser_button("DocumentRoot", 1));
}
sub save_DocumentRoot
{
if (!$in{'DocumentRoot_def'}) {
-d $in{'DocumentRoot'} ||
&error(&text('core_enodoc', $in{'DocumentRoot'}));
&allowed_doc_dir($in{'DocumentRoot'}) ||
&error(&text('core_ecandoc', $in{'DocumentRoot'}));
}
return &parse_opt("DocumentRoot");
}
sub edit_Options
{
local(@po, @o, $o, %opts, $opts, $po, @pon, $i);
@po = ("ExecCGI", "FollowSymLinks", "Includes", "IncludesNOEXEC",
"Indexes", "MultiViews", "SymLinksIfOwnerMatch");
@pon = ("$text{'core_execcgi'}", "$text{'core_flink'}",
"$text{'core_inclexe'}", "$text{'core_incl'}",
"$text{'core_genind'}", "$text{'core_genmview'}",
"$text{'core_flinkmatch'}");
$opts = &choice_input($_[0] ? 0 : 1, "Options_def", 1, "$text{'core_default'},1",
"$text{'core_optsel'},0")."
\n";
@o = split(/\s+/, $_[0]->{'value'});
foreach $o (split(/\s+/, $_[0]->{'value'})) {
if ($o =~ /^\+(.*)$/) { $opts{$1} = 2; }
elsif ($o =~ /^\-(.*)$/) { $opts{$1} = 3; }
else { $opts{$o} = 1; }
}
if ($opts{'All'}) {
local($all); $all = $opts{'All'};
undef(%opts);
foreach $o (grep {!/MultiViews/} @po) {
$opts{$o} = $all;
}
}
$opts .= "
\n";
return (2, $text{'core_diropts'}, $opts);
}
sub save_Options
{
local(@po, $po, @rv);
if ($in{'Options_def'}) { return ( [ ] ); }
@po = ("ExecCGI", "FollowSymLinks", "Includes", "IncludesNOEXEC",
"Indexes", "MultiViews", "SymLinksIfOwnerMatch");
my $abscount = 0;
my $pluscount = 0;
foreach $po (@po) {
if ($in{$po} == 1) {
push(@rv, $po);
$abscount++;
}
elsif ($in{$po} == 2) {
push(@rv, "+$po");
$pluscount++;
}
elsif ($in{$po} == 3) {
push(@rv, "-$po");
$pluscount++;
}
}
$abscount && $pluscount && &error($text{'core_eoptionsboth'});
return @rv ? ( [ join(' ', @rv) ] ) : ( [ "None" ] );
}
sub edit_ServerPath
{
return (2,
$text{'core_virtpath'},
&opt_input($_[0]->{'value'}, "ServerPath", $text{'core_default'}, 40).
&file_chooser_button("ServerPath", 1));
}
sub save_ServerPath
{
return &parse_opt("ServerPath", '^\/\S*$',
$text{'core_evirtpath'});
}
sub edit_ServerSignature
{
return (1, $text{'core_footer'},
&select_input($_[0]->{'value'}, "ServerSignature", undef,
"$text{'core_sigemail'},Email", "$text{'core_signame'},On",
"$text{'core_signone'},Off", "$text{'core_default'},"));
}
sub save_ServerSignature
{
return &parse_select("ServerSignature", undef);
}
sub edit_FileETag
{
local (%et, $rv);
map { $et{lc($_)}++ } @{$_[0]->{'words'}} if ($_[0]);
$rv .= sprintf "
%s\n",
$_[0] ? "" : "checked", $text{'default'};
$rv .= sprintf "
%s\n",
$_[0] ? "checked" : "", $text{'core_fileetag_sel'};
foreach $e ('INode', 'MTime', 'Size') {
$rv .= sprintf "
%s\n",
$e, $et{lc($e)} || $et{'all'} ? "checked" : "",
$text{'core_fileetag_'.lc($e)};
}
return (2, $text{'core_fileetag'}, $rv);
}
sub save_FileETag
{
if ($in{'FileETag_def'}) {
return ( [ ] );
}
else {
local @e = split(/\0/, $in{'FileETag'});
return @e ? ( [ join(" ", @e) ] ) : ( [ "None" ] );
}
}
#########################################################################
# MIME directives directives
sub edit_DefaultType
{
return (1,
$text{'core_defmime'},
&opt_input($_[0]->{'value'}, "DefaultType", $text{'core_default'}, 20));
}
sub save_DefaultType
{
return &parse_opt("DefaultType", '^(\S+)\/(\S+)$',
$text{'core_edefmime'});
}
sub edit_ForceType
{
return (1, $text{'mod_mime_defmime'},
&opt_input($_[0]->{'value'}, "ForceType", $text{'mod_mime_real'}, 15));
}
sub save_ForceType
{
return &parse_opt("ForceType", '^\S+\/\S+$', $text{'mod_mime_etype'});
}
sub edit_SetOutputFilter
{
local @vals = split(/[\s;]+/, $_[0]->{'value'});
my $fi = &filters_input(\@vals, "SetOutputFilter");
return (2, $text{'core_outfilter'}, $fi);
}
sub save_SetOutputFilter
{
return &parse_filters("SetOutputFilter");
}
sub edit_SetInputFilter
{
local @vals = split(/[\s;]+/, $_[0]->{'value'});
my $fi = &filters_input(\@vals, "SetInputFilter");
return (2, $text{'core_infilter'}, $fi);
}
sub save_SetInputFilter
{
return &parse_filters("SetInputFilter");
}
sub edit_AddDefaultCharset
{
local $rv;
local $m = lc($_[0]->{'value'}) eq 'off' ? 2 :
$_[0]->{'value'} ? 0 : 1;
$rv .= sprintf "
%s\n",
$m == 1 ? "checked" : "", $text{'default'};
$rv .= sprintf "
%s\n",
$m == 2 ? 'checked' : "", $text{'core_none'};
$rv .= sprintf "
\n",
$m == 0 ? "checked" : "";
$rv .= sprintf "
\n",
$m == 0 ? $_[0]->{'value'} : "";
return (1, $text{'core_defchar'}, $rv);
}
sub save_AddDefaultCharset
{
if ($in{'AddDefaultCharset_def'} == 1) {
return ( [ ] );
}
elsif ($in{'AddDefaultCharset_def'} == 2) {
return ( [ "Off" ] );
}
else {
$in{'AddDefaultCharset'} =~ /^\S+$/ || &error($text{'core_edefchar'});
return ( [ $in{'AddDefaultCharset'} ] );
}
}
#########################################################################
# Access control directives
sub edit_AuthName
{
my $val = $_[1]->{'version'} >= 1.3 ? $_[0]->{'words'}->[0]
: $_[0]->{'value'};
return (1, $text{'core_realm'},
&opt_input($val, "AuthName", $text{'core_default'}, 25));
}
sub save_AuthName
{
return $in{'AuthName_def'} ? ( [ ] ) :
$_[0]->{'version'} >= 1.3 ? ( [ "\"$in{'AuthName'}\"" ] ) :
( [ $in{'AuthName'} ] );
}
sub edit_AuthType
{
local($rv, $a);
$rv = "
";
return (1, $text{'core_authtype'}, $rv);
}
sub save_AuthType
{
if ($in{'AuthType'}) { return ( [ $in{'AuthType'} ] ); }
else { return ( [ ] ); }
}
sub edit_require
{
local($rv, $mode, $list);
local @w = @{$_[0]->{'words'}};
$mode = shift(@w);
$list = join(" ", map { $_ =~ /\s/ ? "\"$_\"" : $_ } @w);
# All users
$rv = sprintf
"
$text{'default'}
\n",
$mode ? "" : "checked";
# Only some users
$rv .= sprintf
"
$text{'core_users'}:\n",
$mode eq "user" ? "checked" : "";
$rv .= sprintf
"
\n",
$mode eq "user" ? &html_escape($list) : "";
# Only members of groups
$rv .= sprintf
"
$text{'core_groups'}:\n",
$mode eq "group" ? "checked" : "";
$rv .= sprintf
"
\n",
$mode eq "group" ? &html_escape($list) : "";
# All users
$rv .= sprintf
"
$text{'core_allusers'}
\n",
$mode eq "valid-user" ? "checked" : "";
if ($httpd_modules{'mod_authz_owner'} >= 2.2) {
# File owner / group matches
$rv .= sprintf
"
$text{'core_fileowner'}
\n",
$mode eq "file-owner" ? "checked" : "";
$rv .= sprintf
"
$text{'core_filegroup'}
\n",
$mode eq "file-group" ? "checked" : "";
}
return (1, $text{'core_authlog'}, $rv);
}
sub save_require
{
if ($in{'require_mode'} == 0) { return ( [ ] ); }
elsif ($in{'require_mode'} == 1) { return ( [ "user $in{'require_user'}" ] ); }
elsif ($in{'require_mode'} == 2) { return ( [ "group $in{'require_group'}" ] ); }
elsif ($in{'require_mode'} == 3) { return ( [ "valid-user" ] ); }
elsif ($in{'require_mode'} == 4) { return ( [ "file-owner" ] ); }
elsif ($in{'require_mode'} == 5) { return ( [ "file-group" ] ); }
else { return ( [ ] ); } # huh?
}
sub edit_Satisfy
{
return (1, $text{'core_satisfy'},
&choice_input_vert($_[0]->{'value'}, "Satisfy", "", "$text{'core_default'},",
"$text{'core_authall'},all","$text{'core_authany'},any"));
}
sub save_Satisfy
{
return &parse_choice("Satisfy", "");
}
#########################################################################
# Misc. directives
sub edit_CoreDumpDirectory
{
return (1, $text{'core_coredir'},
&opt_input($_[0]->{'words'}->[0], "CoreDumpDirectory", $text{'core_sroot'}, 20).
&file_chooser_button("CoreDumpDirectory", 1));
}
sub save_CoreDumpDirectory
{
return &parse_opt("CoreDumpDirectory", '^\S+$', $text{'core_ecore'});
}
sub edit_LockFile
{
return (1, $text{'core_lockfile'},
&opt_input($_[0]->{'words'}->[0], "LockFile", $text{'core_default'}, 20).
&file_chooser_button("LockFile", 0));
}
sub save_LockFile
{
return &parse_opt("LockFile", '^\S+', $text{'core_elock'});
}
sub edit_LimitRequestBody
{
return (1, $text{'core_maxbody'},
&opt_input($_[0]->{'value'}, "LimitRequestBody", $text{'core_default'}, 8)
.&ui_space(2).$text{'bytes'});
}
sub save_LimitRequestBody
{
return &parse_opt("LimitRequestBody", '^\d+$', $text{'core_ebody'});
}
sub edit_LimitXMLRequestBody
{
return (1, $text{'core_maxxml'},
&opt_input($_[0]->{'value'}, "LimitXMLRequestBody",
$text{'core_default'}, 8).&ui_space(2).$text{'bytes'});
}
sub save_LimitXMLRequestBody
{
return &parse_opt("LimitXMLRequestBody", '^\d+$', $text{'core_exml'});
}
sub edit_LimitRequestFields
{
return (1, $text{'core_maxhead'},
&opt_input($_[0]->{'value'}, "LimitRequestFields", $text{'core_default'}, 6));
}
sub save_LimitRequestFields
{
return &parse_opt("LimitRequestFields", '^\d+$', $text{'core_ehead'});
}
sub edit_LimitRequestFieldsize
{
return (1, $text{'core_maxshead'},
&opt_input($_[0]->{'value'}, "LimitRequestFieldsize", $text{'core_default'}, 6));
}
sub save_LimitRequestFieldsize
{
return &parse_opt("LimitRequestFieldsize", '^\d+$', $text{'core_eshead'});
}
sub edit_LimitRequestLine
{
return (1, $text{'core_maxline'},
&opt_input($_[0]->{'value'}, "LimitRequestLine", $text{'core_default'}, 6));
}
sub save_LimitRequestLine
{
return &parse_opt("LimitRequestLine", '^\d+$', $text{'core_eline'});
}
sub edit_PidFile
{
return (1, $text{'core_pid'},
&opt_input($_[0]->{'words'}->[0], "PidFile", $text{'core_default'}, 20).
&file_chooser_button("PidFile", 0));
}
sub save_PidFile
{
return &parse_opt("PidFile", '^\S+$', $text{'core_epid'});
}
sub edit_ScoreBoardFile
{
return (1, $text{'core_memsco'},
&opt_input($_[0]->{'words'}->[0], "ScoreBoardFile", $text{'core_default'}, 20).
&file_chooser_button("ScoreBoardFile", 0));
}
sub save_ScoreBoardFile
{
return &parse_opt("ScoreBoardFile", '^\S+$', $text{'core_escore'});
}
sub edit_ServerType
{
return (1, $text{'core_exec'},
&choice_input($_[0]->{'value'}, "ServerType", "standalone",
"$text{'core_salone'},standalone", "$text{'core_inetd'},inetd"));
}
sub save_ServerType
{
return &parse_choice("ServerType", "standalone");
}
sub edit_ServerTokens
{
local $v = $_[0]->{'value'};
$v = "ProductOnly" if ($v eq "Prod");
$v = "Min" if ($v eq "Minimal");
return (1, $text{'core_header'},
&select_input($v, "ServerTokens", "Full",
"$text{'core_verosmod'},Full",
"$text{'core_veros'},OS",
"$text{'core_ver'},Min",
"$text{'core_minor'},Minor",
$_[1]->{'version'} >= 1.313 ?
("$text{'core_product'},ProductOnly") : (),
$_[1]->{'version'} >= 2.041 ?
("$text{'core_major'},Major") : ()
));
}
sub save_ServerTokens
{
return &parse_select("ServerTokens", "Full");
}
#########################################################################
# User/group directives
sub edit_Group
{
local($rv, @ginfo);
$rv = sprintf "
$text{'core_default'} \n",
$_[0] ? "" : "checked";
$rv .= sprintf "
$text{'core_group'}\n",
$_[0] && $_[0]->{'words'}->[0] !~ /^#/ ? "checked" : "";
$rv .= sprintf "
%s \n",
$_[0]->{'words'}->[0] !~ /^#/ ? $_[0]->{'words'}->[0] : "",
&group_chooser_button("Group_name", 0);
$rv .= sprintf "
$text{'core_gid'}\n",
$_[0]->{'words'}->[0] =~ /^#/ ? "checked" : "";
$rv .= sprintf "
\n",
$_[0]->{'words'}->[0] =~ /^#(.*)$/ ? $1 : "";
return (2, $text{'core_asgroup'}, $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_User
{
local($rv, @uinfo);
$rv = sprintf "
$text{'core_default'} \n",
$_[0] ? "" : "checked";
$rv .= sprintf "
$text{'core_user'}\n",
$_[0] && $_[0]->{'words'}->[0] !~ /^#/ ? "checked" : "";
$rv .= sprintf "
%s \n",
$_[0]->{'words'}->[0] !~ /^#/ ? $_[0]->{'words'}->[0] : "",
&user_chooser_button("User_name", 0);
$rv .= sprintf "
$text{'core_uid'}\n",
$_[0]->{'words'}->[0] =~ /^#/ ? "checked" : "";
$rv .= sprintf "
\n",
$_[0]->{'words'}->[0] =~ /^#(.*)$/ ? $1 : "";
return (2, $text{'core_asuser'}, $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'}\"" ] ); }
}
#########################################################################
# Error handling directives
sub edit_ErrorDocument
{
local($rv, $len, $i);
$rv = "
\n";
return (2, $text{'core_custom'}, $rv);
}
sub save_ErrorDocument
{
local($i, $code, $url, @rv);
for($i=0; defined($in{"ErrorDocument_code_$i"}); $i++) {
$code = $in{"ErrorDocument_code_$i"}; $url = $in{"ErrorDocument_url_$i"};
if ($code !~ /\S/ || $url !~ /\S/) { next; }
$code =~ /^\d\d\d$/ || &error(&text('core_eerror', $code));
if ($in{"ErrorDocument_type_$i"} == 0) {
$url =~ /^\S+$/ || &error(&text('core_eurl', $url));
push(@rv, "$code $url");
}
elsif ($_[0]->{'version'} >= 2.0) { push(@rv, "$code \"$url\""); }
elsif ($_[0]->{'version'} >= 1.2) { push(@rv, "$code \"$url"); }
else { push(@rv, "$code $url"); }
}
return ( \@rv );
}
#########################################################################
# Logging directives
sub edit_ErrorLog
{
if ($_[1]->{'version'} < 1.3) {
return (1, $text{'core_errfile'},
&opt_input($_[0]->{'value'}, "ErrorLog", $text{'core_default'}, 20).
&file_chooser_button("ErrorLog", 0));
}
else {
local $v = $_[0]->{'words'}->[0];
local $t = !$v ? 3 :
$v eq 'syslog' ? 2 :
$v =~ /^\|/ ? 1 : 0;
$rv = sprintf "
\n",
$t == 3 ? "checked" : "";
$rv .= "$text{'core_default'}";
$rv .= sprintf "
\n",
$t == 2 ? "checked" : "";
$rv .= "$text{'core_syslog'}
\n";
$rv .= sprintf "
\n",
$t == 0 ? "checked" : "";
$rv .= sprintf "$text{'core_filelog'}
\n",
$t == 0 ? $v : "";
$rv .= sprintf "
\n",
$t == 1 ? "checked" : "";
$rv .= sprintf "$text{'core_proglog'}
\n",
$t == 1 ? substr($v, 1) : "";
return (2, $text{'core_logto'}, $rv);
}
}
sub save_ErrorLog
{
if ($_[0]->{'version'} < 1.3) {
$in{'ErrorLog_def'} || &allowed_auth_file($in{'ErrorLog'}) ||
&error($text{'core_edirlog'});
$in{'ErrorLog_def'} || &directory_exists($in{'ErrorLog'}) ||
&error($text{'core_eerrordir'});
return &parse_opt("ErrorLog", '^\S+$', $text{'core_efilelog'});
}
else {
if ($in{'ErrorLog_type'} == 3) {
return ( [ ] );
}
elsif ($in{'ErrorLog_type'} == 0) {
$in{'ErrorLog_file'} =~ /\S/ ||
&error($text{'core_efilemiss'});
&allowed_auth_file($in{'ErrorLog_file'}) ||
&error($text{'core_edirlog'});
&directory_exists($in{'ErrorLog_file'}) ||
&error($text{'core_eerrordir'});
return ( [ $in{'ErrorLog_file'} ] );
}
elsif ($in{'ErrorLog_type'} == 1) {
$in{'ErrorLog_prog'} =~ /\S/ ||
&error($text{'core_eprogmiss'});
$access{'pipe'} ||
&error($text{'core_eperm'});
return ( [ "\"|$in{'ErrorLog_prog'}\"" ] );
}
else {
return ( [ "syslog" ] );
}
}
}
sub edit_LogLevel
{
return (1, $text{'core_loglevel'},
&select_input($_[0]->{'value'}, "LogLevel", "",
"$text{'core_log_emerg'} (emerg),emerg",
"$text{'core_log_alert'} (alert),alert",
"$text{'core_log_crit'} (crit),crit",
"$text{'core_log_error'} (error),error",
"$text{'core_log_warn'} (warn),warn",
"$text{'core_log_notice'} (notice),notice",
"$text{'core_log_info'} (info),info",
"$text{'core_log_debug'} (debug),debug"));
}
sub save_LogLevel
{
return &parse_select("LogLevel", "");
}
#########################################################################
# Module directives
# This isn't shown if the distro has a way of managing these, such as Debian's
# /etc/apache/mods-enabled
sub edit_ClearModuleList_AddModule
{
local($mods, @allmods, $d, %mods, $m, $i, $rv);
local $httpd = &find_httpd();
($ver, $mods) = &httpd_info($httpd);
@allmods = grep { !/^core$/ } @$mods;
local $conf = &get_config();
foreach $d (&find_directive_struct("LoadModule", $conf)) {
# Add mod_ like modules
if ($d->{'words'}->[1] =~ /(mod_\S+)\.(so|dll)/) {
push(@allmods, $1);
}
# nodo50 v0.1 - Change 000002 - Bug fixed: Apache-ssl module detected as mod_ssl. Now Apache-ssl module included as mod_apachessl
# nodo50 v0.1 - Change 000002 - Bug corregido: El modulo Apache-ssl se detecta como mod_ssl. Ahora Apache-ssl se incluye como mod_apachessl
# Add apache-ssl libssl.so as mod_apachessl module
elsif ($d->{'words'}->[1] =~ /libssl\.so/) {
push(@allmods, "mod_apachessl");
}
# Add others lib* like as mod_ modules
# nodo50 v0.1 - Change 000002 - End
elsif ($d->{'words'}->[1] =~ /lib([^\/\s]+)\.(so|dll)/) {
push(@allmods, "mod_$1");
}
}
if (@{$_[0]}) {
# Only selected modules have been enabled
foreach $d (@{$_[1]}) {
local $modc = $d->{'value'};
$modc =~ s/\.c$//;
$mods{$modc} = "checked";
}
}
else { foreach $m (@allmods) { $mods{$m} = "checked"; } }
$rv = &choice_input(@{$_[0]} ? 1 : 0, "ClearModuleList", 1,
"$text{'core_allmod'},0", "$text{'core_selmod'},1")."
\n";
$rv .= "
\n";
return (2, $text{'core_actmod'}, $rv);
}
sub save_ClearModuleList_AddModule
{
if ($in{'ClearModuleList'}) {
local @mods = split(/\0/, $in{'AddModule'});
return ( [ "" ], [ map { $_.".c" } @mods ] );
}
else { return ( [ ], [ ] ); }
}
1;