diff options
| author | fukachan <fukachan> | 2002-04-01 12:40:54 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-01 12:40:54 +0000 |
| commit | bed92f10af224b57190a3e0e03567260d0de32d5 (patch) | |
| tree | 09894e046371b402f84d3ef9a80c67a38824ec59 /fml/lib/FML/Command/UserControl.pm | |
| parent | 621a422fe411786c18c0a20451ef50b94a1d6237 (diff) | |
| download | fml8-bed92f10af224b57190a3e0e03567260d0de32d5.tar.gz fml8-bed92f10af224b57190a3e0e03567260d0de32d5.tar.bz2 fml8-bed92f10af224b57190a3e0e03567260d0de32d5.zip | |
enable "admin list" command
Diffstat (limited to 'fml/lib/FML/Command/UserControl.pm')
| -rw-r--r-- | fml/lib/FML/Command/UserControl.pm | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/UserControl.pm b/fml/lib/FML/Command/UserControl.pm index 1d88e518..734ac1a9 100644 --- a/fml/lib/FML/Command/UserControl.pm +++ b/fml/lib/FML/Command/UserControl.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: UserControl.pm,v 1.1 2002/03/19 10:12:44 fukachan Exp $ +# $FML: UserControl.pm,v 1.2 2002/03/30 11:08:34 fukachan Exp $ # package FML::Command::UserControl; @@ -106,6 +106,33 @@ sub userdel } +# Descriptions: show list +# Arguments: OBJ($self) +# HASH_REF($curproc) HASH_REF($command_args) HASH_REF($uc_args) +# Side Effects: none +# Return Value: none +sub userlist +{ + my ($self, $curproc, $command_args, $uc_args) = @_; + my $maplist = $uc_args->{ maplist }; + my $wh = $uc_args->{ wh }; + + for my $map (@$maplist) { + my $obj = new IO::Adapter $map; + + if (defined $obj) { + my $x = ''; + $obj->open || croak("cannot open $map"); + while ($x = $obj->getline()) { print $wh $x; } + $obj->close; + } + else { + LogWarn("canot open $map"); + } + } +} + + =head1 AUTHOR Ken'ichi Fukamachi |