diff options
| author | fukachan <fukachan> | 2004-11-24 12:24:32 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-11-24 12:24:32 +0000 |
| commit | 75ca7bff487192aac391e80cea5cea1b3ba0648e (patch) | |
| tree | d9c0efd1c1eb7f38512b3d0f4eaeb89ec32ba2eb /fml/lib/FML/Command | |
| parent | 2bb8e9371b8fadf8fd62c5e07adcb49c10deb29a (diff) | |
| download | fml8-75ca7bff487192aac391e80cea5cea1b3ba0648e.tar.gz fml8-75ca7bff487192aac391e80cea5cea1b3ba0648e.tar.bz2 fml8-75ca7bff487192aac391e80cea5cea1b3ba0648e.zip | |
generate merge() method by separeting codes.
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/Admin/mergeml.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/Admin/mergeml.pm b/fml/lib/FML/Command/Admin/mergeml.pm index 991e4368..bc94d620 100644 --- a/fml/lib/FML/Command/Admin/mergeml.pm +++ b/fml/lib/FML/Command/Admin/mergeml.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: mergeml.pm,v 1.3 2004/07/23 13:04:07 fukachan Exp $ +# $FML: mergeml.pm,v 1.4 2004/09/06 07:06:04 fukachan Exp $ # package FML::Command::Admin::mergeml; @@ -103,6 +103,19 @@ sub process # HERE WE GO! my $ml_list = "$ml_name\@$ml_domain"; print STDERR "merge configurations at @$options into $ml_list\n"; + $self->merge($curproc, $command_args, $params); +} + + +# Descriptions: merge ML configurations. +# Arguments: OBJ($self) +# OBJ($curproc) HASH_REF($command_args) HASH_REF($params) +# Side Effects: none +# Return Value: none +sub merge +{ + my ($self, $curproc, $command_args, $params) = @_; + my $src_dir = $params->{ src_dir } || undef; # XXX-TODO: configurable. use FML::Merge; |