diff options
| author | tmu <tmu> | 2003-01-04 12:55:53 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2003-01-04 12:55:53 +0000 |
| commit | d5cd2c26e70694ab950efe13c9f1e6cada114b5e (patch) | |
| tree | ed352ded69050d347e0ce0294417a1897fa7134e | |
| parent | fa61287705c582b3612bd78620cbcc142e008f40 (diff) | |
| download | fml8-d5cd2c26e70694ab950efe13c9f1e6cada114b5e.tar.gz fml8-d5cd2c26e70694ab950efe13c9f1e6cada114b5e.tar.bz2 fml8-d5cd2c26e70694ab950efe13c9f1e6cada114b5e.zip | |
add analize day limit
| -rw-r--r-- | fml/lib/FML/Error/Analyze.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fml/lib/FML/Error/Analyze.pm b/fml/lib/FML/Error/Analyze.pm index e12d1dd2..94134f53 100644 --- a/fml/lib/FML/Error/Analyze.pm +++ b/fml/lib/FML/Error/Analyze.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Analyze.pm,v 1.10 2002/12/18 04:23:41 fukachan Exp $ +# $FML: Analyze.pm,v 1.11 2002/12/23 21:28:32 fukachan Exp $ # package FML::Error::Analyze; @@ -77,6 +77,7 @@ sub simple_count my $summary = {}; my $config = $curproc->config(); my $limit = $config->{ error_analyzer_simple_count_limit } || 5; + my $daylimit = $config->{ error_analyzer_day_limit } || 14; while (($addr, $bufarray) = each %$data) { $count = 0; @@ -85,6 +86,8 @@ sub simple_count if (defined $bufarray) { for my $buf (@$bufarray) { if ($buf =~ /status=5/i) { + ($time, $status, $reason) = split(/\s+/, $buf); + next if((time - $time) > (86400*$daylimit)); $count++; $summary->{ $addr } = $count; } @@ -139,12 +142,14 @@ sub error_continuity my $summary = {}; my $config = $curproc->config(); my $limit = $config->{ error_analyzer_simple_count_limit } || 14; + my $daylimit = $config->{ error_analyzer_day_limit } || 14; while (($addr, $bufarray) = each %$data) { $count = 0; if (defined $bufarray) { for my $buf (@$bufarray) { ($time, $status, $reason) = split(/\s+/, $buf); + next if((time - $time) > (86400*$daylimit)); if ($buf =~ /status=5/i) { unless (defined $summary->{ $addr }) { |