Ilia Ross
6183a4006a
This PR adds the ability for the logging pages to hand the Miniserv access and error logs, and the Webmin actions log, to logrotate instead of having Miniserv periodically delete them. The generated section uses copy-truncate rotation, since Miniserv only reopens its error log when the file disappears. The option only appears when the Log File Rotation module is available and configured correctly.
118 lines
3.8 KiB
Perl
Executable File
118 lines
3.8 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_log.cgi
|
|
# Logging config form
|
|
|
|
require './webmin-lib.pl';
|
|
&ui_print_header(undef, $text{'log_title'}, "");
|
|
&foreign_require("acl", "acl-lib.pl");
|
|
&get_miniserv_config(\%miniserv);
|
|
|
|
print &text('log_desc', "<tt>$miniserv{'logfile'}</tt>"),"<p>\n";
|
|
print &text('log_desc2', "<tt>$webmin_logfile</tt>"),"<p>\n";
|
|
|
|
print &ui_form_start("change_log.cgi", "post");
|
|
print &ui_table_start($text{'log_header'}, undef, 2);
|
|
|
|
# Is logging enabled?
|
|
print &ui_table_row($text{'log_status'},
|
|
&ui_radio("log", $miniserv{'log'} ? 1 : 0,
|
|
[ [ 1, $text{'log_enable'} ],
|
|
[ 0, $text{'log_disable'} ] ]));
|
|
|
|
# Log resolved hostnames
|
|
print &ui_table_row($text{'log_resolv'},
|
|
&ui_yesno_radio("loghost", int($miniserv{'loghost'})));
|
|
|
|
# Log IP provided by proxy?
|
|
print &ui_table_row($text{'log_trust'},
|
|
&ui_yesno_radio("logtrust", int($miniserv{'logtrust'})));
|
|
|
|
# Use common log format
|
|
print &ui_table_row($text{'log_clf'},
|
|
&ui_yesno_radio("logclf", int($miniserv{'logclf'})));
|
|
|
|
# Clear logs regularly, or hand them over to logrotate when available
|
|
my @clear_opts = ( [ 1, &text('log_period',
|
|
&ui_textbox("logtime", $miniserv{'logtime'}, 10)) ] );
|
|
my $logclear = int($miniserv{'logclear'});
|
|
if (&miniserv_logrotate_available()) {
|
|
push(@clear_opts, [ 2, $text{'log_logrotate'} ]);
|
|
$logclear = 2 if (!$logclear &&
|
|
&get_miniserv_logrotate_section(\%miniserv));
|
|
}
|
|
push(@clear_opts, [ 0, $text{'no'} ]);
|
|
print &ui_table_row($text{'log_clear2'},
|
|
&ui_radio("logclear", $logclear, \@clear_opts));
|
|
|
|
# A systemd service can keep Miniserv errors in the journal instead.
|
|
if (&miniserv_systemd_journal_available("webmin.service")) {
|
|
print &ui_table_row($text{'log_error'},
|
|
&ui_radio("error_journal", $miniserv{'errorlog'} eq '-' ? 1 : 0,
|
|
[ [ 0, $text{'log_error_file'} ],
|
|
[ 1, $text{'log_error_journal'} ] ]));
|
|
}
|
|
|
|
print &ui_table_hr();
|
|
|
|
# Webmin users to log for
|
|
print &ui_table_row($text{'log_forusers'},
|
|
&ui_radio("uall", $gconfig{'logusers'} ? 0 : 1,
|
|
[ [ 1, $text{'log_uall'} ], [ 0, $text{'log_users'} ] ]).
|
|
"<br>\n".
|
|
&ui_select("users", [ split(/\s+/, $gconfig{'logusers'}) ],
|
|
[ map { [ $_->{'name'} ] }
|
|
sort { $a->{'name'} cmp $b->{'name'} }
|
|
&acl::list_users() ],
|
|
5, 1));
|
|
|
|
# Create list of modules for which logging is possible
|
|
@logmods = ( [ "global", $text{'log_global'} ],
|
|
map { [ $_->{'dir'}, $_->{'desc'} ] }
|
|
grep { -r &module_root_directory($_)."/log_parser.pl" }
|
|
sort { lc($a->{'desc'}) cmp lc($b->{'desc'}) }
|
|
&get_all_module_infos() );
|
|
|
|
# Modules to log in
|
|
print &ui_table_row($text{'log_inmods'},
|
|
&ui_radio("mall", $gconfig{'logmodules'} ? 0 : 1,
|
|
[ [ 1, $text{'log_mall'} ], [ 0, $text{'log_modules'} ] ]).
|
|
"<br>\n".
|
|
&ui_select("modules", [ split(/\s+/, $gconfig{'logmodules'}) ],
|
|
\@logmods, 5, 1));
|
|
|
|
# Log logins and logouts?
|
|
if (!$miniserv{'login_script'} ||
|
|
$miniserv{'login_script'} eq $record_login_cmd) {
|
|
print &ui_table_row($text{'log_login'},
|
|
&ui_yesno_radio("login",
|
|
$miniserv{'login_script'} eq $record_login_cmd));
|
|
}
|
|
|
|
# Log scheduled actions?
|
|
print &ui_table_row($text{'log_sched'},
|
|
&ui_yesno_radio("logsched", $gconfig{'logsched'}));
|
|
|
|
# Log file changes?
|
|
print &ui_table_row($text{'log_files'},
|
|
&ui_yesno_radio("logfiles", int($gconfig{'logfiles'})));
|
|
|
|
# Log full files?
|
|
print &ui_table_row($text{'log_fullfiles'},
|
|
&ui_yesno_radio("logfullfiles", int($gconfig{'logfullfiles'})));
|
|
|
|
# Logfile permissions
|
|
print &ui_table_row($text{'log_perms'},
|
|
&ui_opt_textbox("perms", $gconfig{'logperms'}, 5, $text{'default'}));
|
|
|
|
# Also log to syslog?
|
|
eval "use Sys::Syslog qw(:DEFAULT setlogsock)";
|
|
if (!$@) {
|
|
print &ui_table_row($text{'log_syslog'},
|
|
&ui_yesno_radio("logsyslog", int($gconfig{'logsyslog'})));
|
|
}
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ "save", $text{'save'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|