diff options
| author | fukachan <fukachan> | 2003-05-28 14:35:16 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-05-28 14:35:16 +0000 |
| commit | 79b9c7c0a2d39b6de0b6b53bec398f8cc54c2e4f (patch) | |
| tree | 146ed8ddb81ff091cd09086c685e2279b64c1bb6 /fml/lib/FML/Command/Admin/error.pm | |
| parent | abb03e0988c3a3df59546994ba1b5cd14aa67283 (diff) | |
| download | fml8-79b9c7c0a2d39b6de0b6b53bec398f8cc54c2e4f.tar.gz fml8-79b9c7c0a2d39b6de0b6b53bec398f8cc54c2e4f.tar.bz2 fml8-79b9c7c0a2d39b6de0b6b53bec398f8cc54c2e4f.zip | |
list up summary for each algorithm defined in $error_analyzer_function_list.
Diffstat (limited to 'fml/lib/FML/Command/Admin/error.pm')
| -rw-r--r-- | fml/lib/FML/Command/Admin/error.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/Admin/error.pm b/fml/lib/FML/Command/Admin/error.pm index 4534f766..953caffa 100644 --- a/fml/lib/FML/Command/Admin/error.pm +++ b/fml/lib/FML/Command/Admin/error.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: error.pm,v 1.5 2003/05/20 04:22:56 fukachan Exp $ +# $FML: error.pm,v 1.6 2003/05/20 10:02:17 fukachan Exp $ # package FML::Command::Admin::error; @@ -80,11 +80,18 @@ sub _fmlerror { my ($self, $curproc) = @_; my $config = $curproc->config(); + my $list = $config->get_as_array_ref('error_analyzer_function_list'); use FML::Error; my $error = new FML::Error $curproc; - $error->analyze(); - $error->dump(); + + for my $fp (@$list) { + print "# analyzer function = $fp\n"; + $error->set_analyzer_function($fp); + $error->analyze(); + $error->print(); + print "\n"; + } } |