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

15 files changed, 36 insertions, 36 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 };