From 8225178a24911e82aa2bb6ee6ee4cd206933baf9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 7 Nov 2003 14:45:58 +0000 Subject: create and handle always_i18n_xxx clp's --- move/make_live_tree_boot | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'move/make_live_tree_boot') diff --git a/move/make_live_tree_boot b/move/make_live_tree_boot index b272af94e..73422dab5 100755 --- a/move/make_live_tree_boot +++ b/move/make_live_tree_boot @@ -3,6 +3,7 @@ use MDK::Common; my $prefix = '/tmp/live_tree'; +my @ALLOWED_LANGS = split(' ', first(cat_('move.pm') =~ /ALLOWED_LANGS = qw\((.*)\)/)); sub create_light_tree { my ($live_name, $list) = @_; @@ -107,6 +108,7 @@ sub remove_light_tree { my @always_list = chomp_(cat_('data/always.list')); my @boot_list_orig = chomp_(cat_('data/boot.list')); my @totem_list_orig = chomp_(cat_('data/totem.list')); +my @always_i18n_list = chomp_(cat_('data/always_i18n.list')); @always_list = uniq(@always_list, intersection(\@boot_list_orig, \@totem_list_orig)); @@ -116,10 +118,17 @@ my @totem_list = difference2(\@totem_list_orig, \@always_list); remove_light_tree('always', \@always_list); remove_light_tree('boot', \@boot_list); remove_light_tree('totem', \@totem_list); +foreach my $lang (@ALLOWED_LANGS) { + remove_light_tree("always_i18n_$lang", []); +} if (!@ARGV) { create_light_tree('always', \@always_list); create_light_tree('boot', \@boot_list); create_light_tree('totem', \@totem_list); + foreach my $lang (@ALLOWED_LANGS) { + my @list = map { my $s = $_; $s =~ s/__LANG__/$lang/; if_(-e $s, $s) } @always_i18n_list; + create_light_tree("always_i18n_$lang", \@list); + } create_totem_links('totem', \@totem_list_orig); } -- cgit v1.2.1