PAL.C.T MINI SHELL
# 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, } );
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`