diff options
| author | fukachan <fukachan> | 2003-11-16 12:23:46 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-11-16 12:23:46 +0000 |
| commit | e524389853c5053bc37ccc9b5f05deac5b56d649 (patch) | |
| tree | 36ba8b4a8c1c75ee6ce2f9762f6434968025847c /fml/lib/FML/Command/Admin/rmdomain.pm | |
| parent | 93ae76b016a22fc003ae924ef288d76c560dbaa1 (diff) | |
| download | fml8-e524389853c5053bc37ccc9b5f05deac5b56d649.tar.gz fml8-e524389853c5053bc37ccc9b5f05deac5b56d649.tar.bz2 fml8-e524389853c5053bc37ccc9b5f05deac5b56d649.zip | |
fixed argument handling to support:
o makefml method domain
o fml domain method
Diffstat (limited to 'fml/lib/FML/Command/Admin/rmdomain.pm')
| -rw-r--r-- | fml/lib/FML/Command/Admin/rmdomain.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/Admin/rmdomain.pm b/fml/lib/FML/Command/Admin/rmdomain.pm index 562a1b4b..6955e4ab 100644 --- a/fml/lib/FML/Command/Admin/rmdomain.pm +++ b/fml/lib/FML/Command/Admin/rmdomain.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: rmdomain.pm,v 1.1 2003/11/15 03:09:44 fukachan Exp $ +# $FML: rmdomain.pm,v 1.2 2003/11/16 11:53:18 fukachan Exp $ # package FML::Command::Admin::rmdomain; @@ -55,8 +55,8 @@ sub need_lock { 0;} sub process { my ($self, $curproc, $command_args) = @_; - my $options = $command_args->{ options }; - my $domain = $options->[ 0 ]; + my $canon_argv = $command_args->{ canon_argv }; + my $domain = $canon_argv->{ ml_name }; use FML::HomeDir::Prefix; my $ml_home_prefix = new FML::HomeDir::Prefix $curproc; |