use $curproc->config(), pcb() not { config }, { pcb } respectively.

28 files changed, 66 insertions, 66 deletions

diff --git a/fml/lib/FML/Command/Admin/addadmin.pm b/fml/lib/FML/Command/Admin/addadmin.pm
index f0b2744a..ece2be51 100644
--- a/fml/lib/FML/Command/Admin/addadmin.pm
+++ b/fml/lib/FML/Command/Admin/addadmin.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: addadmin.pm,v 1.10 2003/03/18 10:42:41 fukachan Exp $
+# $FML: addadmin.pm,v 1.11 2003/08/23 04:35:29 fukachan Exp $
 #
 
 package FML::Command::Admin::addadmin;
@@ -66,7 +66,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
     my $member_map    = $config->{ primary_admin_member_map };
     my $recipient_map = $config->{ primary_admin_recipient_map };
     my $options       = $command_args->{ options };
diff --git a/fml/lib/FML/Command/Admin/addmoderator.pm b/fml/lib/FML/Command/Admin/addmoderator.pm
index a5f39f16..8c7fb273 100644
--- a/fml/lib/FML/Command/Admin/addmoderator.pm
+++ b/fml/lib/FML/Command/Admin/addmoderator.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: addmoderator.pm,v 1.5 2003/03/18 10:42:42 fukachan Exp $
+# $FML: addmoderator.pm,v 1.6 2003/08/23 04:35:29 fukachan Exp $
 #
 
 package FML::Command::Admin::addmoderator;
@@ -66,7 +66,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
     my $member_map    = $config->{ primary_moderator_member_map };
     my $recipient_map = $config->{ primary_moderator_recipient_map };
     my $options       = $command_args->{ options };
diff --git a/fml/lib/FML/Command/Admin/chaddr.pm b/fml/lib/FML/Command/Admin/chaddr.pm
index 50306b64..791aa249 100644
--- a/fml/lib/FML/Command/Admin/chaddr.pm
+++ b/fml/lib/FML/Command/Admin/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.17 2003/08/23 04:35:30 fukachan Exp $
+# $FML: chaddr.pm,v 1.18 2003/08/23 07:24:43 fukachan Exp $
 #
 
 package FML::Command::Admin::chaddr;
@@ -69,7 +69,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
     my $member_map    = $config->{ 'primary_member_map'    };
     my $recipient_map = $config->{ 'primary_recipient_map' };
     my $options       = $command_args->{ options };
diff --git a/fml/lib/FML/Command/Admin/check.pm b/fml/lib/FML/Command/Admin/check.pm
index 276c32a1..d75a8dd2 100644
--- a/fml/lib/FML/Command/Admin/check.pm
+++ b/fml/lib/FML/Command/Admin/check.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: check.pm,v 1.7 2003/02/13 14:40:43 fukachan Exp $
+# $FML: check.pm,v 1.8 2003/02/14 15:29:02 fukachan Exp $
 #
 
 package FML::Command::Admin::check;
@@ -83,7 +83,7 @@ sub process
 sub check_spool_dir
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config    = $curproc->{ config };
+    my $config    = $curproc->config();
     my $spool_dir = $config->{ spool_dir };
 
     #
@@ -116,7 +116,7 @@ sub check_spool_dir
 sub check_html_archive_dir
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
     my $html_dir = $config->{ html_archive_dir };
 
     print "html_archive_dir ... ";
diff --git a/fml/lib/FML/Command/Admin/dir.pm b/fml/lib/FML/Command/Admin/dir.pm
index 1405ef0b..79694d00 100644
--- a/fml/lib/FML/Command/Admin/dir.pm
+++ b/fml/lib/FML/Command/Admin/dir.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: dir.pm,v 1.11 2003/01/25 12:48:38 fukachan Exp $
+# $FML: dir.pm,v 1.12 2003/08/23 04:35:30 fukachan Exp $
 #
 
 package FML::Command::Admin::dir;
@@ -59,7 +59,7 @@ sub need_lock { 0;}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
     my $log_file = $config->{ log_file };
     my $options  = $command_args->{ options };
     my $du_args  = {};
diff --git a/fml/lib/FML/Command/Admin/file.pm b/fml/lib/FML/Command/Admin/file.pm
index d1acb6af..82812d83 100644
--- a/fml/lib/FML/Command/Admin/file.pm
+++ b/fml/lib/FML/Command/Admin/file.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: file.pm,v 1.12 2003/03/18 10:42:43 fukachan Exp $
+# $FML: file.pm,v 1.13 2003/08/23 04:35:31 fukachan Exp $
 #
 
 package FML::Command::Admin::file;
@@ -73,7 +73,7 @@ sub is_subcommand_style { 1;}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
     my $log_file = $config->{ log_file };
     my $options  = $command_args->{ options };
     my $du_args  = {};
diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm
index 8303b100..6651c9e9 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.19 2002/09/24 14:23:13 fukachan Exp $
+# $FML: htmlify.pm,v 1.20 2002/12/20 03:40:12 fukachan Exp $
 #
 
 package FML::Command::Admin::htmlify;
@@ -57,7 +57,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     my $args    = $command_args->{ args };
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $src_dir = $config->{ spool_dir };
     my $dst_dir = $config->{ html_archive_dir };
     my $debug   = 0;
diff --git a/fml/lib/FML/Command/Admin/list.pm b/fml/lib/FML/Command/Admin/list.pm
index 1f22e838..da5a1983 100644
--- a/fml/lib/FML/Command/Admin/list.pm
+++ b/fml/lib/FML/Command/Admin/list.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: list.pm,v 1.13 2003/01/27 00:02:41 fukachan Exp $
+# $FML: list.pm,v 1.14 2003/08/23 07:24:43 fukachan Exp $
 #
 
 package FML::Command::Admin::list;
@@ -78,7 +78,7 @@ sub process
 sub _show_list
 {
     my ($self, $curproc, $command_args, $options) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $maplist = undef;
 
     for my $option (@$options) {
diff --git a/fml/lib/FML/Command/Admin/log.pm b/fml/lib/FML/Command/Admin/log.pm
index 8791607e..95381f8a 100644
--- a/fml/lib/FML/Command/Admin/log.pm
+++ b/fml/lib/FML/Command/Admin/log.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: log.pm,v 1.15 2003/02/20 04:32:50 fukachan Exp $
+# $FML: log.pm,v 1.16 2003/08/23 04:35:31 fukachan Exp $
 #
 
 package FML::Command::Admin::log;
@@ -59,7 +59,7 @@ sub need_lock { 0;}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
     my $log_file = $config->{ log_file };
     my $options  = $command_args->{ options };
     my $address  = $command_args->{ command_data } || $options->[ 0 ];
@@ -82,7 +82,7 @@ sub process
 sub cgi_menu
 {
     my ($self, $curproc, $args, $command_args) = @_;
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
     my $log_file = $config->{ log_file };
     my $style    = $curproc->get_print_style();
 
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index 1673857e..e1185d85 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.64 2003/04/19 06:13:00 fukachan Exp $
+# $FML: newml.pm,v 1.65 2003/08/23 04:35:31 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -227,7 +227,7 @@ sub _init_ml_home_dir
 sub _install_template_files
 {
     my ($self, $curproc, $command_args, $params) = @_;
-    my $config       = $curproc->{ config };
+    my $config       = $curproc->config();
     my $template_dir = $curproc->template_files_dir_for_newml();
     my $ml_home_dir  = $params->{ ml_home_dir };
     my $templ_files  =
@@ -266,7 +266,7 @@ sub _install_template_files
 sub _update_aliases
 {
     my ($self, $curproc, $command_args, $params) = @_;
-    my $config    = $curproc->{ config };
+    my $config    = $curproc->config();
     my $ml_name   = $config->{ ml_name };
     my $ml_domain = $config->{ ml_domain };
     my $alias     = $config->{ mail_aliases_file };
@@ -360,7 +360,7 @@ sub _is_mta_alias_maps_has_ml_entry
 sub _setup_mail_archive_dir
 {
     my ($self, $curproc, $command_args, $params) = @_;
-    my $config = $curproc->{ config };
+    my $config = $curproc->config();
     my $dir    = $config->{ html_archive_dir };
 
     unless (-d $dir) {
@@ -382,7 +382,7 @@ sub _setup_cgi_interface
 {
     my ($self, $curproc, $command_args, $params) = @_;
     my $template_dir = $curproc->template_files_dir_for_newml();
-    my $config       = $curproc->{ config };
+    my $config       = $curproc->config();
 
     #
     # 1. create directory path if needed
@@ -480,7 +480,7 @@ sub _install
 sub _setup_listinfo
 {
     my ($self, $curproc, $command_args, $params) = @_;
-    my $config       = $curproc->{ config };
+    my $config       = $curproc->config();
     my $template_dir = $config->{ listinfo_template_dir };
     my $listinfo_dir = $config->{ listinfo_dir };
 
diff --git a/fml/lib/FML/Command/Admin/on.pm b/fml/lib/FML/Command/Admin/on.pm
index e69feeb2..e2d7d637 100644
--- a/fml/lib/FML/Command/Admin/on.pm
+++ b/fml/lib/FML/Command/Admin/on.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: on.pm,v 1.9 2003/05/12 10:16:43 fukachan Exp $
+# $FML: on.pm,v 1.10 2003/08/23 04:35:31 fukachan Exp $
 #
 
 package FML::Command::Admin::on;
@@ -66,7 +66,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
     my $recipient_map = $config->{ primary_recipient_map };
     my $options       = $command_args->{ options };
     my $address       = $command_args->{ command_data } || $options->[ 0 ];
diff --git a/fml/lib/FML/Command/Admin/rmml.pm b/fml/lib/FML/Command/Admin/rmml.pm
index 874c9467..a9362755 100644
--- a/fml/lib/FML/Command/Admin/rmml.pm
+++ b/fml/lib/FML/Command/Admin/rmml.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: rmml.pm,v 1.14 2003/01/25 12:48:39 fukachan Exp $
+# $FML: rmml.pm,v 1.15 2003/08/23 04:35:32 fukachan Exp $
 #
 
 package FML::Command::Admin::rmml;
@@ -141,7 +141,7 @@ sub _remove_ml_home_dir
 sub _remove_aliases
 {
     my ($self, $curproc, $command_args, $params) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $ml_name = $params->{ ml_name };
     my $list    = $config->get_as_array_ref('newml_command_mta_config_list');
 
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm
index 0d39f00c..badb60fa 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.22 2003/03/18 10:42:43 fukachan Exp $
+# $FML: subscribe.pm,v 1.23 2003/08/23 04:35:32 fukachan Exp $
 #
 
 package FML::Command::Admin::subscribe;
@@ -68,7 +68,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
     my $options       = $command_args->{ options };
diff --git a/fml/lib/FML/Command/Admin/summary.pm b/fml/lib/FML/Command/Admin/summary.pm
index 8d049be7..9366553b 100644
--- a/fml/lib/FML/Command/Admin/summary.pm
+++ b/fml/lib/FML/Command/Admin/summary.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: summary.pm,v 1.3 2003/03/28 10:03:38 fukachan Exp $
+# $FML: summary.pm,v 1.4 2003/08/23 04:35:32 fukachan Exp $
 #
 
 package FML::Command::Admin::summary;
@@ -78,7 +78,7 @@ sub process
 sub _summary
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $myname  = $curproc->myname();
     my $argv    = $curproc->command_line_argv();
     my $id_max  = $curproc->article_max_id();
diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm
index 97e23e9a..867072f5 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.23 2003/05/12 10:16:43 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.24 2003/08/23 04:35:32 fukachan Exp $
 #
 
 package FML::Command::Admin::unsubscribe;
@@ -68,7 +68,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
     my $member_map    = $config->{ 'primary_member_map' };
     my $recipient_map = $config->{ 'primary_recipient_map' };
     my $options       = $command_args->{ options };
diff --git a/fml/lib/FML/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm
index 8392fdbf..125611f8 100644
--- a/fml/lib/FML/Command/Auth.pm
+++ b/fml/lib/FML/Command/Auth.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: Auth.pm,v 1.26 2003/05/12 10:16:41 fukachan Exp $
+# $FML: Auth.pm,v 1.27 2003/08/23 07:24:41 fukachan Exp $
 #
 
 package FML::Command::Auth;
@@ -131,7 +131,7 @@ check the password if it is valid or not as an administrator.
 sub check_admin_member_password
 {
     my ($self, $curproc, $args, $optargs) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $maplist = $config->get_as_array_ref('admin_member_password_maps');
     my $status  = 0;
 
diff --git a/fml/lib/FML/Command/DataCheck.pm b/fml/lib/FML/Command/DataCheck.pm
index ab2a2780..04a77e62 100644
--- a/fml/lib/FML/Command/DataCheck.pm
+++ b/fml/lib/FML/Command/DataCheck.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: DataCheck.pm,v 1.8 2002/12/24 10:19:43 fukachan Exp $
+# $FML: DataCheck.pm,v 1.9 2002/12/25 03:11:04 fukachan Exp $
 #
 
 package FML::Command::DataCheck;
@@ -92,7 +92,7 @@ sub parse_command_arguments
 sub find_special_keyword
 {
     my ($self, $curproc, $ra_data) = @_;
-    my $config         = $curproc->{ config };
+    my $config         = $curproc->config();
     my $confirm_prefix = $config->{ confirm_command_prefix };
     my $admin_prefix   = $config->{ privileged_command_prefix };
     my $confirm_found  = '';
@@ -130,7 +130,7 @@ sub find_special_keyword
 sub find_commands_for_stranger
 {
     my ($self, $curproc) = @_;
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
     my $commands = $config->get_as_array_ref('commands_for_stranger');
     my $body     = $curproc->incoming_message_body();
     my $msg      = $body->find_first_plaintext_message();
diff --git a/fml/lib/FML/Command/DirUtils.pm b/fml/lib/FML/Command/DirUtils.pm
index f1b00a77..5821efe0 100644
--- a/fml/lib/FML/Command/DirUtils.pm
+++ b/fml/lib/FML/Command/DirUtils.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: DirUtils.pm,v 1.13 2003/01/26 03:11:27 fukachan Exp $
+# $FML: DirUtils.pm,v 1.14 2003/08/23 07:24:42 fukachan Exp $
 #
 
 package FML::Command::DirUtils;
@@ -57,7 +57,7 @@ sub new
 sub dir
 {
     my ($self, $curproc, $command_args, $du_args) = @_;
-    my $config  = $curproc->{ config };
+    my $config  = $curproc->config();
     my $path_ls = $config->{ path_ls };
     my $argv    = $du_args->{ argv };
     my $opt_ls  = '';
diff --git a/fml/lib/FML/Command/FileUtils.pm b/fml/lib/FML/Command/FileUtils.pm
index b3aaa121..f788069f 100644
--- a/fml/lib/FML/Command/FileUtils.pm
+++ b/fml/lib/FML/Command/FileUtils.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: FileUtils.pm,v 1.12 2003/02/09 12:31:41 fukachan Exp $
+# $FML: FileUtils.pm,v 1.13 2003/08/23 07:24:42 fukachan Exp $
 #
 
 package FML::Command::FileUtils;
@@ -80,7 +80,7 @@ sub delete
 sub remove
 {
     my ($self, $curproc, $command_args, $du_args) = @_;
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
     my $argv     = $du_args->{ options };
     my $is_error = 0;
 
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm
index 30631ab6..7d5aa553 100644
--- a/fml/lib/FML/Command/SendFile.pm
+++ b/fml/lib/FML/Command/SendFile.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: SendFile.pm,v 1.29 2003/08/23 04:35:29 fukachan Exp $
+# $FML: SendFile.pm,v 1.30 2003/08/23 07:24:42 fukachan Exp $
 #
 
 package FML::Command::SendFile;
@@ -82,7 +82,7 @@ sub send_article
 {
     my ($self, $curproc, $command_args) = @_;
     my $command   = $command_args->{ command };
-    my $config    = $curproc->{ config };
+    my $config    = $curproc->config();
     my $ml_name   = $config->{ ml_name };
     my $spool_dir = $config->{ spool_dir };
     my $charset   = $config->{ template_file_charset };
@@ -175,7 +175,7 @@ sub send_file
     my ($self, $curproc, $command_args) = @_;
     my $filename = $command_args->{ _filename_to_send };
     my $filepath = $command_args->{ _filepath_to_send };
-    my $config   = $curproc->{ config };
+    my $config   = $curproc->config();
 
     # XXX-TODO: handle non Japanese.
     # XXX-TODO: care for Accept-Language: header field.
@@ -224,7 +224,7 @@ Sebd back the default help message if not found.
 sub send_user_xxx_message
 {
     my ($self, $curproc, $command_args, $type) = @_;
-    my $config = $curproc->{ config };
+    my $config = $curproc->config();
 
     # XXX-TODO: care for non Japanese
     # XXX-TODO: hmm, we can handle file.ja file.ja.euc file.en file.ru ?
diff --git a/fml/lib/FML/Command/User/chaddr.pm b/fml/lib/FML/Command/User/chaddr.pm
index 7a7c254b..dcf58f54 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.20 2003/08/23 04:35:32 fukachan Exp $
+# $FML: chaddr.pm,v 1.21 2003/08/23 07:24:43 fukachan Exp $
 #
 
 package FML::Command::User::chaddr;
@@ -73,7 +73,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
 
     #
     # XXX-TODO: correct to use *_maps not primary_*_map for chaddr?
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index 18c00da4..628d0afc 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.22 2003/08/23 04:35:33 fukachan Exp $
+# $FML: confirm.pm,v 1.23 2003/08/23 07:24:43 fukachan Exp $
 #
 
 package FML::Command::User::confirm;
@@ -66,7 +66,7 @@ sub lock_channel { return 'command_serialize';}
 sub notice_cc_recipient
 {
    my ($self, $curproc, $command_args) = @_;
-   my $config     = $curproc->{ config };
+   my $config     = $curproc->config();
    my $maintainer = $config->{ maintainer };
 
    return [ $maintainer ];
@@ -81,7 +81,7 @@ sub notice_cc_recipient
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
 
     # XXX-TODO: correct we handle only primary_*_map here?
     my $member_map    = $config->{ primary_member_map };
diff --git a/fml/lib/FML/Command/User/digest.pm b/fml/lib/FML/Command/User/digest.pm
index cdb9a227..3374640d 100644
--- a/fml/lib/FML/Command/User/digest.pm
+++ b/fml/lib/FML/Command/User/digest.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: digest.pm,v 1.6 2003/08/23 04:35:33 fukachan Exp $
+# $FML: digest.pm,v 1.7 2003/08/23 07:24:44 fukachan Exp $
 #
 
 package FML::Command::User::digest;
@@ -68,7 +68,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
 
     #
     # XXX-TODO: correct to use primary_*_map for chaddr ?
diff --git a/fml/lib/FML/Command/User/off.pm b/fml/lib/FML/Command/User/off.pm
index 70bd2d90..f5a13769 100644
--- a/fml/lib/FML/Command/User/off.pm
+++ b/fml/lib/FML/Command/User/off.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: off.pm,v 1.9 2003/08/23 04:35:33 fukachan Exp $
+# $FML: off.pm,v 1.10 2003/08/23 07:24:44 fukachan Exp $
 #
 
 package FML::Command::User::off;
@@ -70,7 +70,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
 
     #
     # XXX-TODO: correct to use primary_*_map for on/off ?
diff --git a/fml/lib/FML/Command/User/on.pm b/fml/lib/FML/Command/User/on.pm
index f9b7695c..3703eb4f 100644
--- a/fml/lib/FML/Command/User/on.pm
+++ b/fml/lib/FML/Command/User/on.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: on.pm,v 1.9 2003/08/23 04:35:33 fukachan Exp $
+# $FML: on.pm,v 1.10 2003/08/23 07:24:44 fukachan Exp $
 #
 
 package FML::Command::User::on;
@@ -70,7 +70,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
 
     #
     # XXX-TODO: correct to use primary_*_map for on/off ?
diff --git a/fml/lib/FML/Command/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm
index 68cd28dc..370db4cc 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.20 2003/08/23 04:35:33 fukachan Exp $
+# $FML: subscribe.pm,v 1.21 2003/08/23 07:24:44 fukachan Exp $
 #
 
 package FML::Command::User::subscribe;
@@ -70,7 +70,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
 
     # XXX we handle primary_* . o.k.
     my $member_map    = $config->{ primary_member_map };
diff --git a/fml/lib/FML/Command/User/summary.pm b/fml/lib/FML/Command/User/summary.pm
index 9233e589..785235e0 100644
--- a/fml/lib/FML/Command/User/summary.pm
+++ b/fml/lib/FML/Command/User/summary.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: summary.pm,v 1.14 2003/03/18 10:52:34 fukachan Exp $
+# $FML: summary.pm,v 1.15 2003/08/23 04:35:33 fukachan Exp $
 #
 
 package FML::Command::User::summary;
@@ -70,7 +70,7 @@ sub lock_channel { return 'article_spool_modify';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config       = $curproc->{ config };
+    my $config       = $curproc->config();
     my $summary_file = $config->{ "summary_file" };
 
     if (-f $summary_file) {
diff --git a/fml/lib/FML/Command/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index b771333d..d9e9123e 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.20 2003/08/23 04:35:33 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.21 2003/08/23 07:24:44 fukachan Exp $
 #
 
 package FML::Command::User::unsubscribe;
@@ -69,7 +69,7 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->{ config };
+    my $config        = $curproc->config();
 
     # XXX-TODO: wrong to handle only primary_*_map in deluser phase.
     # XXX-TODO: we should check all maps?