define access method need_lock().

each command module determins whether it needs lock or not.

20 files changed, 175 insertions, 160 deletions

diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm
index 241f9487..6b4c68ee 100644
--- a/fml/lib/FML/Command.pm
+++ b/fml/lib/FML/Command.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: Command.pm,v 1.16 2002/01/20 13:50:22 fukachan Exp $
+# $FML: Command.pm,v 1.17 2002/01/30 14:51:14 fukachan Exp $
 #
 
 package FML::Command;
@@ -13,8 +13,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 use FML::Log qw(Log LogWarn LogError);
 
-use FML::Command::Attribute;
-@ISA = qw(FML::Command::Attribute);
 
 =head1 NAME
 
@@ -87,16 +85,22 @@ sub AUTOLOAD
 
     eval qq{ require $pkg; $pkg->import();};
     unless ($@) {
-	my $command = $pkg->new();
+	my $command   = $pkg->new();
+	my $need_lock = 1; # default.
 
 	if ($command->can('auth')) {
 	    $command->auth($curproc, $command_args);
 	}
 
+	# this command needs lock (currently giant lock) ?
+	if ($command->can('need_lock')) { 
+	    $need_lock = $command->need_lock($mode);
+	}
+
 	if ($command->can('process')) {
-	    $curproc->lock() if $self->require_lock($mode, $comname);
+	    $curproc->lock()   if $need_lock;
 	    $command->process($curproc, $command_args);
-	    $curproc->unlock() if $self->require_lock($mode, $comname);
+	    $curproc->unlock() if $need_lock;
 
 	    if ($command->error()) { Log($command->error());}
 	}
diff --git a/fml/lib/FML/Command/Admin/edit.pm b/fml/lib/FML/Command/Admin/edit.pm
index ec4f07ae..ba8a06d9 100644
--- a/fml/lib/FML/Command/Admin/edit.pm
+++ b/fml/lib/FML/Command/Admin/edit.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: edit.pm,v 1.4 2001/12/22 09:21:03 fukachan Exp $
+# $FML: edit.pm,v 1.5 2001/12/23 03:50:27 fukachan Exp $
 #
 
 package FML::Command::Admin::edit;
@@ -39,6 +39,13 @@ now we can read and write config.cf, not change it.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: edit config.cf
 #    Arguments: $self $curproc $command_args
 # Side Effects: update config.cf
@@ -80,7 +87,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm
index de1d694f..6608f878 100644
--- a/fml/lib/FML/Command/Admin/htmlify.pm
+++ b/fml/lib/FML/Command/Admin/htmlify.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: htmlify.pm,v 1.3 2001/12/22 09:21:03 fukachan Exp $
+# $FML: htmlify.pm,v 1.4 2001/12/23 03:50:27 fukachan Exp $
 #
 
 package FML::Command::Admin::htmlify;
@@ -51,6 +51,13 @@ Hmm, ... but it is strange.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: htmlify articles
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: none
@@ -90,7 +97,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index b8856634..ecc29565 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.11 2002/02/03 12:11:55 fukachan Exp $
+# $FML: newml.pm,v 1.12 2002/02/03 12:30:29 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -42,6 +42,13 @@ install config.cf, include, include-ctl et. al.
 =cut
 
 
+# Descriptions: not need lock in the first time
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 0;}
+
+
 # Descriptions: set up a new mailing list
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: create mailing list directory,
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm
index dbdd14d1..220acafc 100644
--- a/fml/lib/FML/Command/Admin/subscribe.pm
+++ b/fml/lib/FML/Command/Admin/subscribe.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: subscribe.pm,v 1.7 2001/12/22 09:21:04 fukachan Exp $
+# $FML: subscribe.pm,v 1.8 2001/12/23 03:50:27 fukachan Exp $
 #
 
 package FML::Command::Admin::subscribe;
@@ -36,6 +36,13 @@ subscribe a new address.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: subscribe a new user
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
@@ -85,7 +92,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm
index 94326fc1..efb3a998 100644
--- a/fml/lib/FML/Command/Admin/unsubscribe.pm
+++ b/fml/lib/FML/Command/Admin/unsubscribe.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: unsubscribe.pm,v 1.4 2001/12/22 09:21:04 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.5 2001/12/23 03:50:27 fukachan Exp $
 #
 
 package FML::Command::Admin::unsubscribe;
@@ -35,6 +35,13 @@ unsubscribe a new user.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: unsubscribe a new user
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
@@ -74,7 +81,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/Attribute.pm b/fml/lib/FML/Command/Attribute.pm
deleted file mode 100644
index f6fa42be..00000000
--- a/fml/lib/FML/Command/Attribute.pm
+++ /dev/null
@@ -1,108 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 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: Attribute.pm,v 1.2 2001/12/22 09:21:03 fukachan Exp $
-#
-
-package FML::Command::Attribute;
-use strict;
-use vars qw($FML_USER_COMMAND $FML_ADMIN_COMMAND);
-
-=head1 NAME
-
-FML::Command::Attribute - define attributes for each command
-
-=head1 SYNOPSIS
-
-    $r = $obj->get_attribute($mode, $comname, 'require_lock');
-    lock() if $r;
-
-=head1 DESCRIPTION
-
-get attribute for command under ucrrent mode.
-do something following the attribute value.
-
-=head1 METHOD
-
-=head2 get_attribute(mode, comname, attribute)
-
-return attribute for (mode, comname, attribute) combination.
-
-=cut
-
-
-$FML_USER_COMMAND = {
-    '__default__' => {
-	'require_lock' => 1,
-    },
-
-    'newml' => {
-	'require_lock' => 0,
-    },
-};
-
-
-# Descriptions: return attribute for (mode, comname, attribute) combination
-#    Arguments: OBJ($self) STR($mode) STR($comname) STR($attribute)
-# Side Effects: none
-# Return Value: STR
-sub get_attribute
-{
-    my ($self, $mode, $comname, $attribute) = @_;
-
-    # aligned to lowercase
-    $mode      =~ tr/A-Z/a-z/;
-    $comname   =~ tr/A-Z/a-z/;
-    $attribute =~ tr/A-Z/a-z/;
-
-    if ($mode eq 'user') {
-	if (defined $FML_USER_COMMAND->{ $comname }->{ $attribute }) {
-	    return $FML_USER_COMMAND->{ $comname }->{ $attribute };
-	}
-	elsif (defined $FML_USER_COMMAND->{ '__default__' }->{ $attribute }) {
-	    return $FML_USER_COMMAND->{ '__default__' }->{ $attribute };
-	}
-	else {
-	    return undef;
-	}
-    }
-    elsif ($mode eq 'admin') {
-	if (defined $FML_ADMIN_COMMAND->{ $comname }->{ $attribute }) {
-	    return $FML_ADMIN_COMMAND->{ $comname }->{ $attribute };
-	}
-	elsif (defined $FML_ADMIN_COMMAND->{ '__default__' }->{ $attribute }) {
-	    return $FML_ADMIN_COMMAND->{ '__default__' }->{ $attribute };
-	}
-	else {
-	    return undef;
-	}
-    }
-    else {
-	return undef;
-    }
-}
-
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 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.
-
-=head1 HISTORY
-
-FML::Command::Attribute appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;
diff --git a/fml/lib/FML/Command/User/chaddr.pm b/fml/lib/FML/Command/User/chaddr.pm
index bb27ce1c..fb48b8c4 100644
--- a/fml/lib/FML/Command/User/chaddr.pm
+++ b/fml/lib/FML/Command/User/chaddr.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: chaddr.pm,v 1.3 2001/12/22 09:21:04 fukachan Exp $
+# $FML: chaddr.pm,v 1.4 2001/12/23 03:50:27 fukachan Exp $
 #
 
 package FML::Command::User::chaddr;
@@ -38,6 +38,13 @@ After confirmation succeeds, chaddr process proceeds.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: chaddr adapter: confirm before chaddr operation
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update database for confirmation.
@@ -90,7 +97,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index 65e8fa4e..2cb16e28 100644
--- a/fml/lib/FML/Command/User/confirm.pm
+++ b/fml/lib/FML/Command/User/confirm.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: confirm.pm,v 1.3 2001/12/22 09:21:04 fukachan Exp $
+# $FML: confirm.pm,v 1.4 2001/12/23 03:50:27 fukachan Exp $
 #
 
 package FML::Command::User::confirm;
@@ -37,6 +37,13 @@ real process after confirmation succeeds.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: real process after confirmation succeeds.
 #               run _switch_command() for real process.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
@@ -121,7 +128,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/deny.pm b/fml/lib/FML/Command/User/deny.pm
index cc950f31..834f5d51 100644
--- a/fml/lib/FML/Command/User/deny.pm
+++ b/fml/lib/FML/Command/User/deny.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: deny.pm,v 1.8 2002/02/11 10:24:13 fukachan Exp $
+# $FML: deny.pm,v 1.1 2002/02/11 10:59:37 fukachan Exp $
 #
 
 package FML::Command::User::deny;
@@ -38,6 +38,13 @@ See C<FML::Command> for more details.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: send file by FML::Command::SendFile.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: none
@@ -56,7 +63,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/get.pm b/fml/lib/FML/Command/User/get.pm
index 14548780..9076efe3 100644
--- a/fml/lib/FML/Command/User/get.pm
+++ b/fml/lib/FML/Command/User/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 2001/12/22 16:10:51 fukachan Exp $
+# $FML: get.pm,v 1.8 2002/01/27 09:27:11 fukachan Exp $
 #
 
 package FML::Command::User::get;
@@ -37,6 +37,13 @@ send back articles.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: send articles (filename =~ /^\d+/$) by FML::Command::SendFile.
 #               This module is called after
 #               FML::Process::Command::_can_accpet_command() already checks the
diff --git a/fml/lib/FML/Command/User/guide.pm b/fml/lib/FML/Command/User/guide.pm
index 79c39195..4813ae51 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.8 2002/02/11 10:24:13 fukachan Exp $
+# $FML: guide.pm,v 1.5 2002/02/11 10:59:37 fukachan Exp $
 #
 
 package FML::Command::User::guide;
@@ -38,6 +38,13 @@ See C<FML::Command> for more details.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: send file by FML::Command::SendFile.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: none
@@ -56,7 +63,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/help.pm b/fml/lib/FML/Command/User/help.pm
index 62d55796..7c8654f9 100644
--- a/fml/lib/FML/Command/User/help.pm
+++ b/fml/lib/FML/Command/User/help.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: help.pm,v 1.8 2002/02/11 10:24:13 fukachan Exp $
+# $FML: help.pm,v 1.9 2002/02/11 10:59:37 fukachan Exp $
 #
 
 package FML::Command::User::help;
@@ -38,6 +38,13 @@ See C<FML::Command> for more details.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: send file by FML::Command::SendFile.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: none
@@ -56,7 +63,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/mget.pm b/fml/lib/FML/Command/User/mget.pm
index 555073c3..165cbd3a 100644
--- a/fml/lib/FML/Command/User/mget.pm
+++ b/fml/lib/FML/Command/User/mget.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: mget.pm,v 1.5 2001/12/22 09:53:10 fukachan Exp $
+# $FML: mget.pm,v 1.6 2002/02/13 10:12:08 fukachan Exp $
 #
 
 package FML::Command::User::mget;
@@ -47,7 +47,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/objective.pm b/fml/lib/FML/Command/User/objective.pm
index 337f7204..996f8d40 100644
--- a/fml/lib/FML/Command/User/objective.pm
+++ b/fml/lib/FML/Command/User/objective.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: objective.pm,v 1.8 2002/02/11 10:24:13 fukachan Exp $
+# $FML: objective.pm,v 1.1 2002/02/11 10:59:37 fukachan Exp $
 #
 
 package FML::Command::User::objective;
@@ -38,6 +38,13 @@ See C<FML::Command> for more details.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: send file by FML::Command::SendFile.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: none
@@ -56,7 +63,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/send.pm b/fml/lib/FML/Command/User/send.pm
index 63f93279..a3438d32 100644
--- a/fml/lib/FML/Command/User/send.pm
+++ b/fml/lib/FML/Command/User/send.pm
@@ -1,11 +1,11 @@
 
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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.3 2001/12/22 09:21:05 fukachan Exp $
+# $FML: send.pm,v 1.4 2001/12/22 09:53:10 fukachan Exp $
 #
 
 package FML::Command::User::send;
@@ -19,6 +19,13 @@ 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 { 1;}
+
+
 # Descriptions: send articles, files, et.al...
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: forward request to get module
@@ -48,7 +55,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/signoff.pm b/fml/lib/FML/Command/User/signoff.pm
index dda9f7f5..6b3eb3a9 100644
--- a/fml/lib/FML/Command/User/signoff.pm
+++ b/fml/lib/FML/Command/User/signoff.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: signoff.pm,v 1.4 2001/12/22 09:21:05 fukachan Exp $
+# $FML: signoff.pm,v 1.5 2001/12/22 09:53:10 fukachan Exp $
 #
 
 package FML::Command::User::signoff;
@@ -17,6 +17,13 @@ use FML::Command::User::unsubscribe;
 @ISA = qw(FML::Command::User::unsubscribe use FML::Command::Utils);
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: unsubscribe user
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: forward request to unsubscribe module
@@ -46,7 +53,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm
index 80318e4b..b4d2fb60 100644
--- a/fml/lib/FML/Command/User/subscribe.pm
+++ b/fml/lib/FML/Command/User/subscribe.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: subscribe.pm,v 1.7 2001/12/22 09:21:05 fukachan Exp $
+# $FML: subscribe.pm,v 1.8 2001/12/23 03:50:27 fukachan Exp $
 #
 
 package FML::Command::User::subscribe;
@@ -38,6 +38,13 @@ After confirmation succeeds, subcribe process proceeds.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: subscribe adapter: confirm before subscribe
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update database for confirmation.
@@ -94,7 +101,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/summary.pm b/fml/lib/FML/Command/User/summary.pm
index 154c842b..3b395a6f 100644
--- a/fml/lib/FML/Command/User/summary.pm
+++ b/fml/lib/FML/Command/User/summary.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: summary.pm,v 1.3 2001/12/22 09:21:05 fukachan Exp $
+# $FML: summary.pm,v 1.4 2001/12/22 16:10:51 fukachan Exp $
 #
 
 package FML::Command::User::summary;
@@ -38,6 +38,13 @@ send back summary file.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: send file by FML::Command::SendFile.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: none
@@ -58,7 +65,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.
diff --git a/fml/lib/FML/Command/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index 5fa815d4..7d0ce9ef 100644
--- a/fml/lib/FML/Command/User/unsubscribe.pm
+++ b/fml/lib/FML/Command/User/unsubscribe.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  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: unsubscribe.pm,v 1.5 2001/12/22 09:21:05 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.6 2001/12/23 03:50:28 fukachan Exp $
 #
 
 package FML::Command::User::unsubscribe;
@@ -38,6 +38,13 @@ After confirmation succeeds, unsubcribe process proceeds.
 =cut
 
 
+# Descriptions: need lock or not
+#    Arguments: none
+# Side Effects: none
+# Return Value: NUM( 1 or 0)
+sub need_lock { 1;}
+
+
 # Descriptions: unsubscribe adapter: confirm before unsubscribe
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update database for confirmation.
@@ -90,7 +97,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+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.