fix command work again

14 files changed, 103 insertions, 38 deletions

diff --git a/fml/lib/FML/Command/Admin/MANIFEST.euc-jp b/fml/lib/FML/Command/Admin/MANIFEST.euc-jp
index a52ebdbc..f51bf6d8 100644
--- a/fml/lib/FML/Command/Admin/MANIFEST.euc-jp
+++ b/fml/lib/FML/Command/Admin/MANIFEST.euc-jp
@@ -22,17 +22,18 @@ htmlify		記事を HTML 化する (新コマンド、 spool2html の代わりともいう)
 		オプション: outdir=$directory srcdir=$source_directory
 
 
+get		任意のファイルを取り寄せる ( MIME/multipart only )
+(mget)
+(send)
+
+
 ○ 未実装
 
 edit		config.cf を編集する
 
 help		admin のヘルプファイルを取り寄せる
 
-get		任意のファイルを取り寄せる ( MIME/multipart only )
-(mget)
-(send)
-
 off		メンバーの誰かを off にする
 on		メンバーの誰かを on  にする
 
-$FML: MANIFEST.euc-jp,v 1.1 2001/10/13 02:55:51 fukachan Exp $
+$FML: MANIFEST.euc-jp,v 1.2 2001/10/22 12:41:59 fukachan Exp $
diff --git a/fml/lib/FML/Command/Admin/edit.pm b/fml/lib/FML/Command/Admin/edit.pm
index 6fa585f5..16b540aa 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.6 2002/02/13 10:41:16 fukachan Exp $
+# $FML: edit.pm,v 1.7 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::edit;
@@ -39,6 +39,19 @@ now we can read and write config.cf, not change it.
 =cut
 
 
+# Descriptions: standard constructor
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: OBJ
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
 # Descriptions: need lock or not
 #    Arguments: none
 # Side Effects: none
diff --git a/fml/lib/FML/Command/Admin/get.pm b/fml/lib/FML/Command/Admin/get.pm
index 8b2ef54a..68d316f9 100644
--- a/fml/lib/FML/Command/Admin/get.pm
+++ b/fml/lib/FML/Command/Admin/get.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: get.pm,v 1.7 2002/02/17 09:14:02 fukachan Exp $
+# $FML: get.pm,v 1.8 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::get;
@@ -37,6 +37,19 @@ get arbitrary file in $ml_home_dir
 =cut
 
 
+# Descriptions: standard constructor
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: OBJ
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
 # Descriptions: need lock or not
 #    Arguments: none
 # Side Effects: none
diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm
index 4fb12bd6..c2031966 100644
--- a/fml/lib/FML/Command/Admin/htmlify.pm
+++ b/fml/lib/FML/Command/Admin/htmlify.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: htmlify.pm,v 1.6 2002/02/17 04:51:14 fukachan Exp $
+# $FML: htmlify.pm,v 1.7 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::htmlify;
@@ -12,8 +12,6 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
-
-
 use FML::Log qw(Log LogWarn LogError);
 
 
@@ -49,6 +47,19 @@ if --srcdir is not specified, the source is taken from
 =cut
 
 
+# Descriptions: standard constructor
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: OBJ
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
 # Descriptions: need lock or not
 #    Arguments: none
 # Side Effects: none
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index 396d51cd..c90c3cf7 100644
--- a/fml/lib/FML/Command/Admin/newml.pm
+++ b/fml/lib/FML/Command/Admin/newml.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: newml.pm,v 1.14 2002/02/17 03:13:48 fukachan Exp $
+# $FML: newml.pm,v 1.15 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -13,10 +13,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
 
-
-
-
-
 =head1 NAME
 
 FML::Command::Admin::newml - set up a new mailing list
@@ -42,6 +38,19 @@ install config.cf, include, include-ctl et. al.
 =cut
 
 
+# Descriptions: standard constructor
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: OBJ
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
 # Descriptions: not need lock in the first time
 #    Arguments: none
 # Side Effects: none
diff --git a/fml/lib/FML/Command/Admin/remove.pm b/fml/lib/FML/Command/Admin/remove.pm
index 68ad6ee6..640771b6 100644
--- a/fml/lib/FML/Command/Admin/remove.pm
+++ b/fml/lib/FML/Command/Admin/remove.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: remove.pm,v 1.4 2001/12/22 09:53:09 fukachan Exp $
+# $FML: remove.pm,v 1.5 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::remove;
@@ -24,7 +24,7 @@ use FML::Command::Admin::unsubscribe;
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    $self->SUPER::unsubscribe($curproc, $command_args);
+    $self->SUPER::process($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/Admin/signoff.pm b/fml/lib/FML/Command/Admin/signoff.pm
index aee445bf..9751c436 100644
--- a/fml/lib/FML/Command/Admin/signoff.pm
+++ b/fml/lib/FML/Command/Admin/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.4 2001/12/22 09:53:09 fukachan Exp $
+# $FML: signoff.pm,v 1.5 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::signoff;
@@ -24,7 +24,7 @@ use FML::Command::Admin::unsubscribe;
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    $self->SUPER::unsubscribe($curproc, $command_args);
+    $self->SUPER::process($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm
index ec0cac87..757e21e8 100644
--- a/fml/lib/FML/Command/Admin/subscribe.pm
+++ b/fml/lib/FML/Command/Admin/subscribe.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: subscribe.pm,v 1.9 2002/02/13 10:41:16 fukachan Exp $
+# $FML: subscribe.pm,v 1.10 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::subscribe;
@@ -36,6 +36,19 @@ subscribe a new address.
 =cut
 
 
+# Descriptions: standard constructor
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: OBJ
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
 # Descriptions: need lock or not
 #    Arguments: none
 # Side Effects: none
diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm
index e704c738..56391fb0 100644
--- a/fml/lib/FML/Command/Admin/unsubscribe.pm
+++ b/fml/lib/FML/Command/Admin/unsubscribe.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: unsubscribe.pm,v 1.6 2002/02/13 10:41:17 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.7 2002/02/18 14:24:12 fukachan Exp $
 #
 
 package FML::Command::Admin::unsubscribe;
@@ -35,6 +35,19 @@ unsubscribe a new user.
 =cut
 
 
+# Descriptions: standard constructor
+#    Arguments: OBJ($self)
+# Side Effects: none
+# Return Value: OBJ
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
 # Descriptions: need lock or not
 #    Arguments: none
 # Side Effects: none
diff --git a/fml/lib/FML/Command/User/MANIFEST.euc-jp b/fml/lib/FML/Command/User/MANIFEST.euc-jp
index 91c65891..b5eb8d92 100644
--- a/fml/lib/FML/Command/User/MANIFEST.euc-jp
+++ b/fml/lib/FML/Command/User/MANIFEST.euc-jp
@@ -11,7 +11,7 @@ summary		summary ファイルを取り寄せる
 
 ( (compatibility)
 objective	objective ファイルを取り寄せる if found
-deny		deny ファイルを取り寄せる if found
+deny		deny ファイルを取り寄せる if found	   (needed ?)
 )
 
 
@@ -55,4 +55,4 @@ off
 on
 
 
-$FML: MANIFEST.euc-jp,v 1.2 2001/10/13 12:23:35 fukachan Exp $
+$FML: MANIFEST.euc-jp,v 1.3 2002/02/11 13:29:12 fukachan Exp $
diff --git a/fml/lib/FML/Command/User/remove.pm b/fml/lib/FML/Command/User/remove.pm
index 0789b378..5af07598 100644
--- a/fml/lib/FML/Command/User/remove.pm
+++ b/fml/lib/FML/Command/User/remove.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: remove.pm,v 1.5 2001/12/22 09:53:10 fukachan Exp $
+# $FML: remove.pm,v 1.6 2002/02/18 14:14:53 fukachan Exp $
 #
 
 package FML::Command::User::remove;
@@ -24,7 +24,7 @@ use FML::Command::User::unsubscribe;
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    $self->SUPER::unsubscribe($curproc, $command_args);
+    $self->SUPER::process($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/User/resign.pm b/fml/lib/FML/Command/User/resign.pm
index 563f79da..850bef8b 100644
--- a/fml/lib/FML/Command/User/resign.pm
+++ b/fml/lib/FML/Command/User/resign.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: resign.pm,v 1.5 2001/12/22 09:53:10 fukachan Exp $
+# $FML: resign.pm,v 1.6 2002/02/18 14:14:53 fukachan Exp $
 #
 
 package FML::Command::User::resign;
@@ -24,7 +24,7 @@ use FML::Command::User::unsubscribe;
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    $self->unsubscribe($curproc, $command_args);
+    $self->SUPER::process($curproc, $command_args);
 }
 
 =head1 NAME
diff --git a/fml/lib/FML/Command/User/send.pm b/fml/lib/FML/Command/User/send.pm
index c822a38d..a1f134ad 100644
--- a/fml/lib/FML/Command/User/send.pm
+++ b/fml/lib/FML/Command/User/send.pm
@@ -1,11 +1,10 @@
-
 #-*- perl -*-
 #
 #  Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: send.pm,v 1.5 2002/02/13 10:41:17 fukachan Exp $
+# $FML: send.pm,v 1.6 2002/02/18 14:14:53 fukachan Exp $
 #
 
 package FML::Command::User::send;
@@ -17,13 +16,6 @@ use FML::Command::User::get;
 @ISA = qw(FML::Command::User::get);
 
 
-# Descriptions: need lock or not
-#    Arguments: none
-# Side Effects: none
-# Return Value: NUM( 1 or 0)
-sub need_lock { $self->SUPER::need_lock();}
-
-
 # Descriptions: send articles, files, et.al...
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: forward request to get module
diff --git a/fml/lib/FML/Command/User/signoff.pm b/fml/lib/FML/Command/User/signoff.pm
index 50851de2..7f060857 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.6 2002/02/13 10:41:17 fukachan Exp $
+# $FML: signoff.pm,v 1.7 2002/02/18 14:14:53 fukachan Exp $
 #
 
 package FML::Command::User::signoff;
@@ -24,7 +24,7 @@ use FML::Command::User::unsubscribe;
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    $self->SUPER::unsubscribe($curproc, $command_args);
+    $self->SUPER::process($curproc, $command_args);
 }