added new 'limit' functionality to 'fail2ban' graph

This commit is contained in:
Jordi Sanfeliu 2014-06-20 10:32:15 +02:00
parent 1db83e9cfd
commit 067784970c
1 changed files with 3 additions and 12 deletions

View File

@ -206,8 +206,8 @@ sub fail2ban_cgi {
my ($package, $config, $cgi) = @_;
my $fail2ban = $config->{fail2ban};
my @rigid = split(',', $fail2ban->{rigid});
my @limit = split(',', $fail2ban->{limit});
my @rigid = split(',', ($fail2ban->{rigid} || ""));
my @limit = split(',', ($fail2ban->{limit} || ""));
my $tf = $cgi->{tf};
my $colors = $cgi->{colors};
my $graph = $cgi->{graph};
@ -337,14 +337,7 @@ sub fail2ban_cgi {
}
}
if(trim($rigid[0]) eq 1) {
push(@riglim, "--upper-limit=" . trim($limit[0]));
} else {
if(trim($rigid[0]) eq 2) {
push(@riglim, "--upper-limit=" . trim($limit[0]));
push(@riglim, "--rigid");
}
}
@riglim = @{setup_riglim($rigid[0], $limit[0])};
$n = 0;
while($n < scalar(my @fl = split(',', $fail2ban->{list}))) {
if($title) {
@ -391,7 +384,6 @@ sub fail2ban_cgi {
"--width=$width",
"--height=$height",
@riglim,
"--lower-limit=0",
$zoom,
@{$cgi->{version12}},
@{$cgi->{version12_small}},
@ -420,7 +412,6 @@ sub fail2ban_cgi {
"--width=$width",
"--height=$height",
@riglim,
"--lower-limit=0",
@{$cgi->{version12}},
@{$cgi->{version12_small}},
@{$colors->{graph_colors}},