update comments.

sort 'use ..' phrase.

1 files changed, 14 insertions, 8 deletions

diff --git a/fml/lib/FML/Command/User/admin.pm b/fml/lib/FML/Command/User/admin.pm
index df562a66..d4a2b5ee 100644
--- a/fml/lib/FML/Command/User/admin.pm
+++ b/fml/lib/FML/Command/User/admin.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: admin.pm,v 1.1 2003/01/03 06:45:45 fukachan Exp $
+# $FML: admin.pm,v 1.2 2003/02/09 12:31:42 fukachan Exp $
 #
 
 package FML::Command::User::admin;
@@ -13,9 +13,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
 
-use FML::Command::Admin::password;
-
-
 # Descriptions: constructor.
 #    Arguments: OBJ($self)
 # Side Effects: none
@@ -29,21 +26,28 @@ sub new
 }
 
 
-# Descriptions: rewrite buffer to hide the password phrase in $rbuf
+# Descriptions: rewrite command prompt.
+#               Always we need to rewrite command prompt to hide password.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) STR_REF($rbuf)
-# Side Effects: none
+# Side Effects: rewrite buffer to hide the password phrase in $rbuf.
 # Return Value: none
 sub rewrite_prompt
 {
     my ($self, $curproc, $command_args, $rbuf) = @_;
+
+    # XXX-TODO: good style? FML::Command::Admin::password->rewrite_prompt() ?
+    use FML::Command::Admin::password;
     my $obj = new FML::Command::Admin::password;
     $obj->rewrite_prompt($curproc, $command_args, $rbuf);
 }
 
 
+# XXX-TODO: process() is not implementd. correct ?
+
+
 =head1 NAME
 
-FML::Command::User::admin - dummy but provide utility for the case auth fail.
+FML::Command::User::admin - dummy.
 
 =head1 SYNOPSIS
 
@@ -51,7 +55,9 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
-forward request to C<FML::Command::User::subscribe> module.
+In fact, this module is dummy but provide utility for the case auth
+fail. It rewrites buffer to hide the password phrase in command
+prompt.
 
 =head1 CODING STYLE