summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Command
diff options
context:
space:
mode:
Diffstat (limited to 'fml/lib/FML/Command')
-rw-r--r--fml/lib/FML/Command/Admin/edit.pm13
-rw-r--r--fml/lib/FML/Command/Admin/htmlify.pm13
-rw-r--r--fml/lib/FML/Command/Admin/newml.pm9
-rw-r--r--fml/lib/FML/Command/Admin/subscribe.pm13
-rw-r--r--fml/lib/FML/Command/Admin/unsubscribe.pm13
-rw-r--r--fml/lib/FML/Command/Attribute.pm108
-rw-r--r--fml/lib/FML/Command/User/chaddr.pm13
-rw-r--r--fml/lib/FML/Command/User/confirm.pm13
-rw-r--r--fml/lib/FML/Command/User/deny.pm11
-rw-r--r--fml/lib/FML/Command/User/get.pm9
-rw-r--r--fml/lib/FML/Command/User/guide.pm11
-rw-r--r--fml/lib/FML/Command/User/help.pm11
-rw-r--r--fml/lib/FML/Command/User/mget.pm6
-rw-r--r--fml/lib/FML/Command/User/objective.pm11
-rw-r--r--fml/lib/FML/Command/User/send.pm13
-rw-r--r--fml/lib/FML/Command/User/signoff.pm13
-rw-r--r--fml/lib/FML/Command/User/subscribe.pm13
-rw-r--r--fml/lib/FML/Command/User/summary.pm13
-rw-r--r--fml/lib/FML/Command/User/unsubscribe.pm13
19 files changed, 165 insertions, 154 deletions
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.
generated by cgit v1.2.1 (git 2.18.0) at 2026-09-08 04:11:43 +0000