confirm_keyword -> confirm_command_prefix

5 files changed, 11 insertions, 11 deletions

diff --git a/fml/lib/FML/Command/User/chaddr.pm b/fml/lib/FML/Command/User/chaddr.pm
index fb48b8c4..83a81243 100644
--- a/fml/lib/FML/Command/User/chaddr.pm
+++ b/fml/lib/FML/Command/User/chaddr.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: chaddr.pm,v 1.4 2001/12/23 03:50:27 fukachan Exp $
+# $FML: chaddr.pm,v 1.5 2002/02/13 10:41:17 fukachan Exp $
 #
 
 package FML::Command::User::chaddr;
@@ -57,7 +57,7 @@ sub process
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
     my $cache_dir     = $config->{ db_dir };
-    my $keyword       = $config->{ confirm_keyword };
+    my $keyword       = $config->{ confirm_command_prefix };
     my $command       = $command_args->{ command };
     my $address       = $curproc->{ credential }->sender();
 
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index 2cb16e28..4dc4334c 100644
--- a/fml/lib/FML/Command/User/confirm.pm
+++ b/fml/lib/FML/Command/User/confirm.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: confirm.pm,v 1.4 2001/12/23 03:50:27 fukachan Exp $
+# $FML: confirm.pm,v 1.5 2002/02/13 10:41:17 fukachan Exp $
 #
 
 package FML::Command::User::confirm;
@@ -56,7 +56,7 @@ sub process
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
     my $cache_dir     = $config->{ db_dir };
-    my $keyword       = $config->{ confirm_keyword };
+    my $keyword       = $config->{ confirm_command_prefix };
     my $expire_limit  = $config->{ confirm_expire_limit } || 14*24*3600;
     my $command       = $command_args->{ command };
 
diff --git a/fml/lib/FML/Command/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm
index b4d2fb60..c5cc871a 100644
--- a/fml/lib/FML/Command/User/subscribe.pm
+++ b/fml/lib/FML/Command/User/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.8 2001/12/23 03:50:27 fukachan Exp $
+# $FML: subscribe.pm,v 1.9 2002/02/13 10:41:18 fukachan Exp $
 #
 
 package FML::Command::User::subscribe;
@@ -57,7 +57,7 @@ sub process
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
     my $cache_dir     = $config->{ db_dir };
-    my $keyword       = $config->{ confirm_keyword };
+    my $keyword       = $config->{ confirm_command_prefix };
     my $command       = $command_args->{ command };
     my $address       = $curproc->{ credential }->sender();
 
diff --git a/fml/lib/FML/Command/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index 7d0ce9ef..e8a17d4d 100644
--- a/fml/lib/FML/Command/User/unsubscribe.pm
+++ b/fml/lib/FML/Command/User/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 2001/12/23 03:50:28 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.7 2002/02/13 10:41:18 fukachan Exp $
 #
 
 package FML::Command::User::unsubscribe;
@@ -57,7 +57,7 @@ sub process
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
     my $cache_dir     = $config->{ db_dir };
-    my $keyword       = $config->{ confirm_keyword };
+    my $keyword       = $config->{ confirm_command_prefix };
     my $command       = $command_args->{ command };
     my $address       = $curproc->{ credential }->sender();
 
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index 1ebbec64..a6538dfc 100644
--- a/fml/lib/FML/Process/Command.pm
+++ b/fml/lib/FML/Process/Command.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Command.pm,v 1.31 2002/02/13 10:39:33 fukachan Exp $
+# $FML: Command.pm,v 1.32 2002/02/17 03:07:55 fukachan Exp $
 #
 
 package FML::Process::Command;
@@ -196,7 +196,7 @@ sub _pre_scan
 {
     my ($curproc, $ra_body) = @_;
     my $config  = $curproc->{ config };
-    my $keyword = $config->{ confirm_keyword };
+    my $keyword = $config->{ confirm_command_prefix };
     my $found   = 0;
 
     for (@$ra_body) {
@@ -304,7 +304,7 @@ sub _evaluate_command
     my $config  = $curproc->{ config };
     my $ml_name = $config->{ ml_name };
     my $argv    = $curproc->command_line_argv();
-    my $keyword = $config->{ confirm_keyword };
+    my $keyword = $config->{ confirm_command_prefix };
     my $prompt  = $config->{ command_prompt } || '>>>';
 
     my $rbody   = $curproc->{ incoming_message }->{ body };