PAL.C.T MINI SHELL
# Contains a function to supply the syslog module with extra logs
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %access, $squid_version, %config);
require 'squid-lib.pl';
# syslog_getlogs()
# Returns the Squid cache and store logs
sub syslog_getlogs
{
my @rv;
if (-d $config{'log_dir'}) {
push(@rv, { 'file' => "$config{'log_dir'}/access.log",
'desc' => $text{'syslog_access'},
'active' => 1 });
push(@rv, { 'file' => "$config{'log_dir'}/cache.log",
'desc' => $text{'syslog_cache'},
'active' => 1 });
push(@rv, { 'file' => "$config{'log_dir'}/store.log",
'desc' => $text{'syslog_store'},
'active' => 1 });
}
return @rv;
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`