From ffa6d894b5ae3bd8ccfb5eba35dbcf49beba5a0f Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 21 Dec 2003 14:39:04 +0000
Subject: remove hard-coded language dependent information by moving it to
 $nl_template_files in install.cf.in.

---
 fml/lib/FML/Install.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'fml/lib')

diff --git a/fml/lib/FML/Install.pm b/fml/lib/FML/Install.pm
index 39496b88..edd27a70 100644
--- a/fml/lib/FML/Install.pm
+++ b/fml/lib/FML/Install.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: Install.pm,v 1.7 2003/08/23 04:35:27 fukachan Exp $
+# $FML: Install.pm,v 1.8 2003/10/26 02:04:08 fukachan Exp $
 #
 
 package FML::Install;
@@ -42,8 +42,6 @@ FML::Install - utility functions used in installation
 	}
     }
 
-    # XXX-TODO: check uid, gid
-
     $installer->install_main_cf();
     $installer->install_sample_cf_files();
     $installer->install_default_config_files();
@@ -95,6 +93,9 @@ sub new
 }
 
 
+# XXX-TODO: check uid, gid method
+
+
 =head1 CONFIG
 
 =head2 load_install_cf( $cf )
@@ -288,11 +289,12 @@ sub install_default_config_files
 
     $self->disable_message();
 
+    # XXX change file name of components of $nl_template_files into
+    # XXX ${file_name}.{ja,en,...}
     my $nl_template_files = $config->get_as_array_ref('nl_template_files');
     for my $file (@$nl_template_files) {
-	# XXX-TODO: how should we handle natural language .cf ?
 	# XXX src = relative path, dst = absolute path
-	my $src = File::Spec->catfile("fml", "etc", $file . ".ja");
+	my $src = File::Spec->catfile("fml", "etc", $file);
 	my $dst = File::Spec->catfile($config_dir, $file);
 
 	# always override.
-- 
cgit v1.2.1