mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
29 lines
651 B
Perl
Executable File
29 lines
651 B
Perl
Executable File
# Contains a function to supply the syslog module with extra logs
|
|
|
|
require 'usermin-lib.pl';
|
|
|
|
# syslog_getlogs()
|
|
# Returns the Usermin error log
|
|
sub syslog_getlogs
|
|
{
|
|
local %miniserv;
|
|
&get_usermin_miniserv_config(\%miniserv);
|
|
if ($miniserv{'errorlog'} eq '-') {
|
|
# Logging to stdout
|
|
return ( );
|
|
}
|
|
elsif ($miniserv{'errorlog'}) {
|
|
# Specific file
|
|
return ( { 'file' => $miniserv{'errorlog'},
|
|
'desc' => $text{'syslog_errorlog'},
|
|
'active' => 1, } );
|
|
}
|
|
elsif ($miniserv{'logfile'} =~ /^(.*)\/[^\/]+$/) {
|
|
# Relative to main log
|
|
return ( { 'file' => "$1/miniserv.error",
|
|
'desc' => $text{'syslog_errorlog'},
|
|
'active' => 1, } );
|
|
}
|
|
}
|
|
|