mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
30 lines
708 B
Perl
Executable File
30 lines
708 B
Perl
Executable File
# Contains a function to supply the syslog module with extra logs
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
our (%text);
|
|
|
|
require 'bind8-lib.pl';
|
|
|
|
# syslog_getlogs()
|
|
# Returns a list of structures containing extra log files known to this module
|
|
sub syslog_getlogs
|
|
{
|
|
my $conf = &get_config();
|
|
my $logging = &find("logging", $conf);
|
|
return ( ) if (!$logging);
|
|
my @chans = &find("channel", $logging->{'members'});
|
|
my @rv;
|
|
foreach my $c (@chans) {
|
|
my $file = &find("file", $c->{'members'});
|
|
if ($file && $file->{'values'}->[0] =~ /^\//) {
|
|
push(@rv, { 'file' => $file->{'values'}->[0],
|
|
'active' => 1,
|
|
'desc' => $text{'syslog_desc'} });
|
|
}
|
|
}
|
|
return @rv;
|
|
}
|
|
|