mirror of
https://github.com/webmin/webmin.git
synced 2026-01-14 03:11:35 +00:00
20 lines
457 B
Perl
Executable File
20 lines
457 B
Perl
Executable File
# Contains a function to supply the syslog module with extra logs
|
|
|
|
require 'apache-lib.pl';
|
|
|
|
# syslog_getlogs()
|
|
# Returns the main error log, if it exists
|
|
sub syslog_getlogs
|
|
{
|
|
local $conf = &get_config();
|
|
local $errlog = &find_directive("ErrorLog", $conf, 1);
|
|
local @rv;
|
|
if ($errlog && $errlog !~ /^\|/ && $errlog !~ /^syslog:/) {
|
|
push(@rv, { 'file' => &server_root($errlog),
|
|
'desc' => $text{'syslog_desc'},
|
|
'active' => 1 });
|
|
}
|
|
return @rv;
|
|
}
|
|
|