michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-05-04 22:30:33 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

strict/warn

Browse Source
This commit is contained in:
Joe Cooper
2016-06-03 14:37:59 -07:00
parent 0bc3eb6430
commit a6984f6be5
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
bind8/syslog_logs.pl
View File

@@ -1,4 +1,7 @@
# Contains a function to supply the syslog module with extra logs
use strict;
use warnings;
our (%text);
do 'bind8-lib.pl';
@@ -6,13 +9,13 @@ do 'bind8-lib.pl';
# Returns a list of structures containing extra log files known to this module
sub syslog_getlogs
{
local $conf = &get_config();
local $logging = &find("logging", $conf);
my $conf = &get_config();
my $logging = &find("logging", $conf);
return ( ) if (!$logging);
local @chans = &find("channel", $logging->{'members'});
local @rv;
my @chans = &find("channel", $logging->{'members'});
my @rv;
foreach my $c (@chans) {
local $file = &find("file", $c->{'members'});
my $file = &find("file", $c->{'members'});
if ($file && $file->{'values'}->[0] =~ /^\//) {
push(@rv, { 'file' => $file->{'values'}->[0],
'active' => 1,