diff options
| author | fukachan <fukachan> | 2002-06-25 09:38:09 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-06-25 09:38:09 +0000 |
| commit | c4388d934a22b06a35c18d449aa2f99223aee87a (patch) | |
| tree | a036ff2cee264fefff852894cad854492b50d6bb /fml | |
| parent | 609353c93cad7724b531601283024dfcc1c1c2bc (diff) | |
| download | fml8-c4388d934a22b06a35c18d449aa2f99223aee87a.tar.gz fml8-c4388d934a22b06a35c18d449aa2f99223aee87a.tar.bz2 fml8-c4388d934a22b06a35c18d449aa2f99223aee87a.zip | |
fix virtual domain handling. sync w/ newml logic
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Command/Admin/rmml.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/Admin/rmml.pm b/fml/lib/FML/Command/Admin/rmml.pm index 20723568..343648f2 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.2 2002/04/24 03:50:01 fukachan Exp $ +# $FML: rmml.pm,v 1.3 2002/04/24 03:59:15 fukachan Exp $ # package FML::Command::Admin::rmml; @@ -67,8 +67,10 @@ sub process my ($self, $curproc, $command_args) = @_; my $options = $curproc->command_line_options(); my $config = $curproc->{ 'config' }; - my ($ml_name, $ml_domain, $ml_home_prefix, $ml_home_dir) = - $self->_get_domain_info($curproc, $command_args); + my $ml_name = $config->{ ml_name }; + my $ml_domain = $config->{ ml_domain }; + my $ml_home_prefix = $curproc->ml_home_prefix($ml_domain); + my $ml_home_dir = $curproc->ml_home_dir($ml_name, $ml_domain); my $params = { fml_owner => $curproc->fml_owner(), executable_prefix => $curproc->executable_prefix(), |