mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
28 lines
599 B
Perl
Executable File
28 lines
599 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, %in, %access, %config);
|
|
require 'fail2ban-lib.pl';
|
|
|
|
# syslog_getlogs()
|
|
# Returns the Fail2Ban log
|
|
sub syslog_getlogs
|
|
{
|
|
my @rv;
|
|
my $conf = &get_config();
|
|
my ($def) = grep { $_->{'name'} eq 'Definition' } @$conf;
|
|
if ($def) {
|
|
my $logtarget = &find_value("logtarget", $def);
|
|
if ($logtarget && $logtarget =~ /^\//) {
|
|
push(@rv, { 'file' => $logtarget,
|
|
'desc' => $text{'syslog_logtarget'},
|
|
'active' => 1 });
|
|
}
|
|
}
|
|
return @rv;
|
|
}
|
|
|