diff options
| author | fukachan <fukachan> | 2003-11-16 11:53:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-11-16 11:53:18 +0000 |
| commit | 66674897f2cc112ab33ea8862350d0326c181f63 (patch) | |
| tree | 581ff7a3b8167481b26870d3b4d5207de3ac289e /fml/lib/FML/Command/Admin | |
| parent | 4f1a2b0bb7999945bfe2289b3f56f0021ba39e3b (diff) | |
| download | fml8-66674897f2cc112ab33ea8862350d0326c181f63.tar.gz fml8-66674897f2cc112ab33ea8862350d0326c181f63.tar.bz2 fml8-66674897f2cc112ab33ea8862350d0326c181f63.zip | |
switched to new ml_home_prefix framework, which is enhanced virtual
domain operation. See fml-devel in 2003/10.
Diffstat (limited to 'fml/lib/FML/Command/Admin')
| -rw-r--r-- | fml/lib/FML/Command/Admin/newdomain.pm | 9 | ||||
| -rw-r--r-- | fml/lib/FML/Command/Admin/rmdomain.pm | 8 |
2 files changed, 15 insertions, 2 deletions
diff --git a/fml/lib/FML/Command/Admin/newdomain.pm b/fml/lib/FML/Command/Admin/newdomain.pm index e7329c2d..1093d5f9 100644 --- a/fml/lib/FML/Command/Admin/newdomain.pm +++ b/fml/lib/FML/Command/Admin/newdomain.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$ +# $FML: newdomain.pm,v 1.1 2003/11/15 03:09:44 fukachan Exp $ # package FML::Command::Admin::newdomain; @@ -55,6 +55,13 @@ sub need_lock { 0;} sub process { my ($self, $curproc, $command_args) = @_; + my $options = $command_args->{ options }; + my $domain = $options->[ 0 ]; + my $prefix = $options->[ 1 ]; + + use FML::HomeDir::Prefix; + my $ml_home_prefix = new FML::HomeDir::Prefix $curproc; + $ml_home_prefix->add($domain, $prefix); } diff --git a/fml/lib/FML/Command/Admin/rmdomain.pm b/fml/lib/FML/Command/Admin/rmdomain.pm index 2bb28ba4..562a1b4b 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$ +# $FML: rmdomain.pm,v 1.1 2003/11/15 03:09:44 fukachan Exp $ # package FML::Command::Admin::rmdomain; @@ -55,6 +55,12 @@ sub need_lock { 0;} sub process { my ($self, $curproc, $command_args) = @_; + my $options = $command_args->{ options }; + my $domain = $options->[ 0 ]; + + use FML::HomeDir::Prefix; + my $ml_home_prefix = new FML::HomeDir::Prefix $curproc; + $ml_home_prefix->delete($domain); } |