clean up. fix descriptions

9 files changed, 19 insertions, 33 deletions

diff --git a/fml/lib/FML/Command/Admin/edit.pm b/fml/lib/FML/Command/Admin/edit.pm
index 16b540aa..518744e3 100644
--- a/fml/lib/FML/Command/Admin/edit.pm
+++ b/fml/lib/FML/Command/Admin/edit.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: edit.pm,v 1.7 2002/02/18 14:24:12 fukachan Exp $
+# $FML: edit.pm,v 1.8 2002/02/20 14:10:37 fukachan Exp $
 #
 
 package FML::Command::Admin::edit;
@@ -13,11 +13,9 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
 
-
-
 =head1 NAME
 
-FML::Command::Admin::edit - edit config.cf
+FML::Command::Admin::edit - edit config.cf (not yet implemented)
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/FML/Command/User/deny.pm b/fml/lib/FML/Command/User/deny.pm
index 095b0e65..e5af795a 100644
--- a/fml/lib/FML/Command/User/deny.pm
+++ b/fml/lib/FML/Command/User/deny.pm
@@ -4,16 +4,13 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: deny.pm,v 1.2 2002/02/13 10:41:17 fukachan Exp $
+# $FML: deny.pm,v 1.3 2002/02/18 14:14:52 fukachan Exp $
 #
 
 package FML::Command::User::deny;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-
-
-
 use FML::Command::SendFile;
 use FML::Log qw(Log LogWarn LogError);
 @ISA = qw(FML::Command::SendFile);
diff --git a/fml/lib/FML/Command/User/get.pm b/fml/lib/FML/Command/User/get.pm
index 8574932f..2879d5c9 100644
--- a/fml/lib/FML/Command/User/get.pm
+++ b/fml/lib/FML/Command/User/get.pm
@@ -4,20 +4,18 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: get.pm,v 1.9 2002/02/13 10:41:17 fukachan Exp $
+# $FML: get.pm,v 1.10 2002/02/18 14:14:52 fukachan Exp $
 #
 
 package FML::Command::User::get;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-
-
-
 use FML::Command::SendFile;
 use FML::Log qw(Log LogWarn LogError);
 @ISA = qw(FML::Command::SendFile);
 
+
 =head1 NAME
 
 FML::Command::User::get - send back articles
diff --git a/fml/lib/FML/Command/User/guide.pm b/fml/lib/FML/Command/User/guide.pm
index 2a358815..1d176e1e 100644
--- a/fml/lib/FML/Command/User/guide.pm
+++ b/fml/lib/FML/Command/User/guide.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: guide.pm,v 1.6 2002/02/13 10:41:17 fukachan Exp $
+# $FML: guide.pm,v 1.7 2002/02/18 14:14:52 fukachan Exp $
 #
 
 package FML::Command::User::guide;
@@ -12,8 +12,6 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
-
-
 use FML::Command::SendFile;
 use FML::Log qw(Log LogWarn LogError);
 @ISA = qw(FML::Command::SendFile);
diff --git a/fml/lib/FML/Command/User/help.pm b/fml/lib/FML/Command/User/help.pm
index b7bde430..8c2988d5 100644
--- a/fml/lib/FML/Command/User/help.pm
+++ b/fml/lib/FML/Command/User/help.pm
@@ -4,18 +4,16 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: help.pm,v 1.10 2002/02/13 10:41:17 fukachan Exp $
+# $FML: help.pm,v 1.11 2002/02/18 14:14:52 fukachan Exp $
 #
 
 package FML::Command::User::help;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-
-
-
 use FML::Command::SendFile;
 use FML::Log qw(Log LogWarn LogError);
+
 @ISA = qw(FML::Command::SendFile);
 
 
diff --git a/fml/lib/FML/Command/User/info.pm b/fml/lib/FML/Command/User/info.pm
index 820ebdda..572f752f 100644
--- a/fml/lib/FML/Command/User/info.pm
+++ b/fml/lib/FML/Command/User/info.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: info.pm,v 1.3 2001/12/22 09:53:09 fukachan Exp $
+# $FML: info.pm,v 1.4 2002/02/18 14:14:52 fukachan Exp $
 #
 
 package FML::Command::User::info;
@@ -17,7 +17,7 @@ use FML::Command::User::guide;
 @ISA = qw(FML::Command::User::guide);
 
 
-# Descriptions: send back guide
+# Descriptions: send back guide file
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: forward request to guide module
 # Return Value: none
@@ -30,7 +30,7 @@ sub process
 
 =head1 NAME
 
-FML::Command::User::info - send guide file
+FML::Command::User::info - send back guide file
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/FML/Command/User/mget.pm b/fml/lib/FML/Command/User/mget.pm
index a7750593..ed98bae9 100644
--- a/fml/lib/FML/Command/User/mget.pm
+++ b/fml/lib/FML/Command/User/mget.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: mget.pm,v 1.7 2002/02/13 10:41:17 fukachan Exp $
+# $FML: mget.pm,v 1.8 2002/02/18 14:14:53 fukachan Exp $
 #
 
 package FML::Command::User::mget;
@@ -16,7 +16,7 @@ use FML::Command::User::get;
 @ISA = qw(FML::Command::User::get);
 
 
-# Descriptions: send articles, files, et.al...
+# Descriptions: send article(s)
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: forward request to get module
 # Return Value: none
@@ -29,7 +29,7 @@ sub process
 
 =head1 NAME
 
-FML::Command::User::mget - what is this
+FML::Command::User::mget - send articles
 
 =head1 SYNOPSIS
 
@@ -37,7 +37,7 @@ forwarded C<FML::Command::User::get>.
 
 =head1 DESCRIPTION
 
-forwarded C<FML::Command::User::get>.
+an alias of C<FML::Command::User::get>.
 
 =head1 AUTHOR
 
diff --git a/fml/lib/FML/Command/User/objective.pm b/fml/lib/FML/Command/User/objective.pm
index bae6dbda..90a48741 100644
--- a/fml/lib/FML/Command/User/objective.pm
+++ b/fml/lib/FML/Command/User/objective.pm
@@ -4,16 +4,13 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: objective.pm,v 1.2 2002/02/13 10:41:17 fukachan Exp $
+# $FML: objective.pm,v 1.3 2002/02/18 14:14:53 fukachan Exp $
 #
 
 package FML::Command::User::objective;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-
-
-
 use FML::Command::SendFile;
 use FML::Log qw(Log LogWarn LogError);
 @ISA = qw(FML::Command::SendFile);
diff --git a/fml/lib/FML/Command/User/signoff.pm b/fml/lib/FML/Command/User/signoff.pm
index 7f060857..5914f37b 100644
--- a/fml/lib/FML/Command/User/signoff.pm
+++ b/fml/lib/FML/Command/User/signoff.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: signoff.pm,v 1.7 2002/02/18 14:14:53 fukachan Exp $
+# $FML: signoff.pm,v 1.8 2002/02/20 14:10:38 fukachan Exp $
 #
 
 package FML::Command::User::signoff;
@@ -30,7 +30,7 @@ sub process
 
 =head1 NAME
 
-FML::Command::User::signoff - signoff the specified member
+FML::Command::User::signoff - unsubscribe the specified member
 
 =head1 SYNOPSIS
 
@@ -38,7 +38,7 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
-same as C<unsubscribe>.
+an alias of C<FML::Command::User::unsubscribe>.
 
 =head1 AUTHOR