diff options
| author | fukachan <fukachan> | 2003-09-04 12:27:53 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-09-04 12:27:53 +0000 |
| commit | 5a684eef4b3d3ef878114be0838d7a16197996f2 (patch) | |
| tree | 4f9bf64692347a0c045f81b505943184bc704fcb /fml/lib | |
| parent | e8bfae23dd44ccad1533e8658b9bb0eb76891fd0 (diff) | |
| download | fml8-5a684eef4b3d3ef878114be0838d7a16197996f2.tar.gz fml8-5a684eef4b3d3ef878114be0838d7a16197996f2.tar.bz2 fml8-5a684eef4b3d3ef878114be0838d7a16197996f2.zip | |
use $curproc->config()
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Command/Admin/get.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Command/Admin/newml.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Command/Admin/rmml.pm | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/FML/Command/Admin/get.pm b/fml/lib/FML/Command/Admin/get.pm index 7d447040..ce004659 100644 --- a/fml/lib/FML/Command/Admin/get.pm +++ b/fml/lib/FML/Command/Admin/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.19 2003/03/18 10:52:35 fukachan Exp $ +# $FML: get.pm,v 1.20 2003/08/23 07:24:43 fukachan Exp $ # package FML::Command::Admin::get; @@ -62,7 +62,7 @@ sub need_lock { 0;} sub process { my ($self, $curproc, $command_args) = @_; - my $config = $curproc->{ 'config' }; + my $config = $curproc->config(); my $ml_home_dir = $config->{ ml_home_dir }; my $command = $command_args->{ command }; my $options = $command_args->{ options }; diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm index e1185d85..8e63b5f0 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.65 2003/08/23 04:35:31 fukachan Exp $ +# $FML: newml.pm,v 1.66 2003/08/29 15:33:59 fukachan Exp $ # package FML::Command::Admin::newml; @@ -67,7 +67,7 @@ sub process { my ($self, $curproc, $command_args) = @_; my $options = $curproc->command_line_options(); - my $config = $curproc->{ 'config' }; + my $config = $curproc->config(); my $ml_name = $config->{ ml_name }; my $ml_domain = $config->{ ml_domain }; my $ml_home_prefix = $curproc->ml_home_prefix($ml_domain); @@ -191,7 +191,7 @@ sub _adjust_params_for_virtual_domain sub _init_ml_home_dir { my ($self, $curproc, $command_args, $params) = @_; - my $config = $curproc->{ 'config' }; + my $config = $curproc->config(); my $ml_home_dir = $config->{ ml_home_dir }; unless (-d $ml_home_dir) { diff --git a/fml/lib/FML/Command/Admin/rmml.pm b/fml/lib/FML/Command/Admin/rmml.pm index a9362755..c556240b 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.15 2003/08/23 04:35:32 fukachan Exp $ +# $FML: rmml.pm,v 1.16 2003/08/29 15:33:59 fukachan Exp $ # package FML::Command::Admin::rmml; @@ -67,7 +67,7 @@ sub process { my ($self, $curproc, $command_args) = @_; my $options = $curproc->command_line_options(); - my $config = $curproc->{ 'config' }; + my $config = $curproc->config(); my $ml_name = $config->{ ml_name }; my $ml_domain = $config->{ ml_domain }; my $ml_home_prefix = $curproc->ml_home_prefix($ml_domain); |