diff options
| author | fukachan <fukachan> | 2003-05-20 10:02:16 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-05-20 10:02:16 +0000 |
| commit | e120fbb694c40e0c869fe1d1a937e8d6f50351b0 (patch) | |
| tree | 05cbda101e128fc48ad4700173c6f91c35437835 /fml/lib | |
| parent | a4ad91af43ae72050ef0b59840b8a50fc2cc2e51 (diff) | |
| download | fml8-e120fbb694c40e0c869fe1d1a937e8d6f50351b0.tar.gz fml8-e120fbb694c40e0c869fe1d1a937e8d6f50351b0.tar.bz2 fml8-e120fbb694c40e0c869fe1d1a937e8d6f50351b0.zip | |
move the status dump code from FML::Command::Admin:error to FML::Error.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Command/Admin/error.pm | 24 | ||||
| -rw-r--r-- | fml/lib/FML/Error.pm | 37 |
2 files changed, 40 insertions, 21 deletions
diff --git a/fml/lib/FML/Command/Admin/error.pm b/fml/lib/FML/Command/Admin/error.pm index 11bb4d93..4534f766 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.4 2003/03/28 10:32:22 fukachan Exp $ +# $FML: error.pm,v 1.5 2003/05/20 04:22:56 fukachan Exp $ # package FML::Command::Admin::error; @@ -82,25 +82,9 @@ sub _fmlerror my $config = $curproc->config(); use FML::Error; - my $obj = new FML::Error $curproc; - my $data = $obj->analyze(); - my $info = $obj->get_data_detail(); - - # XXX-TODO: move to FML::Error more. - my ($k, $v); - while (($k, $v) = each %$info) { - if (defined($v) && ref($v) eq 'ARRAY') { - my $x = ''; - for my $y (@$v) { - $x .= $y if defined $y; - $x .= " "; - } - print "$k => ( $x)\n"; - } - else { - print "$k => $v\n"; - } - } + my $error = new FML::Error $curproc; + $error->analyze(); + $error->dump(); } diff --git a/fml/lib/FML/Error.pm b/fml/lib/FML/Error.pm index 1df5c568..7c8aaaff 100644 --- a/fml/lib/FML/Error.pm +++ b/fml/lib/FML/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.18 2003/03/28 10:32:20 fukachan Exp $ +# $FML: Error.pm,v 1.19 2003/04/19 11:41:04 fukachan Exp $ # package FML::Error; @@ -371,6 +371,41 @@ sub deluser } +=head1 DUMP ADDRESS AND STATUS + +=head2 dump([$handle]) + +=cut + + +# Descriptions: +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: +# Return Value: none +sub dump +{ + my ($self, $handle) = @_; + my $info = $self->get_data_detail(); + my $wh = $handle || \*STDOUT; + + my ($k, $v); + while (($k, $v) = each %$info) { + if (defined($v) && ref($v) eq 'ARRAY') { + my $x = ''; + for my $y (@$v) { + $x .= $y if defined $y; + $x .= " "; + } + + printf $wh "%25s => (%s)\n", $k, $x; + } + else { + printf $wh "%25s => %s\n", $k, $v; + } + } +} + + =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |