diff options
| author | fukachan <fukachan> | 2004-11-25 12:06:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-11-25 12:06:45 +0000 |
| commit | f849b7c596085773cc77c3f3a8d10958fd8e4404 (patch) | |
| tree | 92738b3cf64d01adcd336c240b2d4b0614c6ddd8 /fml/lib/FML/ML | |
| parent | 58035bddc83f5b33eada8f4524185715a358e8f4 (diff) | |
| download | fml8-f849b7c596085773cc77c3f3a8d10958fd8e4404.tar.gz fml8-f849b7c596085773cc77c3f3a8d10958fd8e4404.tar.bz2 fml8-f849b7c596085773cc77c3f3a8d10958fd8e4404.zip | |
implement install_config_cf() method to install only config.cf.
Diffstat (limited to 'fml/lib/FML/ML')
| -rw-r--r-- | fml/lib/FML/ML/Control.pm | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/fml/lib/FML/ML/Control.pm b/fml/lib/FML/ML/Control.pm index b4e1013e..3fd5fc2e 100644 --- a/fml/lib/FML/ML/Control.pm +++ b/fml/lib/FML/ML/Control.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: Control.pm,v 1.5 2004/02/15 04:38:32 fukachan Exp $ +# $FML: Control.pm,v 1.6 2004/07/23 13:16:39 fukachan Exp $ # package FML::ML::Control; @@ -166,6 +166,31 @@ sub install_template_files } +# Descriptions: install ONLY config.cf file. +# Arguments: OBJ($self) +# OBJ($curproc) +# HASH_REF($command_args) +# HASH_REF($params) +# Side Effects: config.cf created if needed. +# Return Value: none +sub install_config_cf +{ + my ($self, $curproc, $command_args, $params) = @_; + my $config = $curproc->config(); + my $template_dir = $curproc->template_files_dir_for_newml(); + my $ml_home_dir = $params->{ ml_home_dir }; + + use File::Spec; + for my $file (qw(config.cf)) { + my $src = File::Spec->catfile($template_dir, $file); + my $dst = File::Spec->catfile($ml_home_dir, $file); + + $curproc->ui_message("creating $dst"); + $self->_install($src, $dst, $params); + } +} + + # Descriptions: update alias entries. # Arguments: OBJ($self) # OBJ($curproc) |