fix command work again

5 files changed, 9 insertions, 17 deletions

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);
 }