summaryrefslogtreecommitdiffstats
path: root/move/make_live_tree_boot
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-11-18 14:37:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-11-18 14:37:50 +0000
commit7fbfd48f4107df099475128f90b597b36641c2d2 (patch)
treeaf8ef447c33677fd1c9f872184c8c5325de89fee /move/make_live_tree_boot
parent4945f073b797f4ebc9a8207054b80b336649575b (diff)
downloaddrakx-7fbfd48f4107df099475128f90b597b36641c2d2.tar
drakx-7fbfd48f4107df099475128f90b597b36641c2d2.tar.gz
drakx-7fbfd48f4107df099475128f90b597b36641c2d2.tar.bz2
drakx-7fbfd48f4107df099475128f90b597b36641c2d2.tar.xz
drakx-7fbfd48f4107df099475128f90b597b36641c2d2.zip
try replacing __LANG__ with fr_FR (same for other langs) then with fr (same
for other langs) in always_i18n file list
Diffstat (limited to 'move/make_live_tree_boot')
-rwxr-xr-xmove/make_live_tree_boot12
1 files changed, 10 insertions, 2 deletions
diff --git a/move/make_live_tree_boot b/move/make_live_tree_boot
index 379f60c8d..b31cecfa2 100755
--- a/move/make_live_tree_boot
+++ b/move/make_live_tree_boot
@@ -1,6 +1,8 @@
#!/usr/bin/perl
-use MDK::Common;
+use lib qw(../perl-install);
+use common;
+use lang;
my $prefix = '/tmp/live_tree';
my @ALLOWED_LANGS = split(' ', first(cat_('move.pm') =~ /ALLOWED_LANGS = qw\((.*)\)/));
@@ -127,9 +129,15 @@ if (!@ARGV) {
create_light_tree('boot', \@boot_list);
create_light_tree('totem', \@totem_list);
foreach my $lang (@ALLOWED_LANGS) {
+ my $full_lang = lang::l2locale($lang);
+ my ($short_lang) = $full_lang =~ /(..)/;
my @list = map {
my $s = $_;
- $s =~ s/__LANG__/$lang/;
+ $s =~ s/__LANG__/$full_lang/;
+ if (! -e $s) {
+ $s = $_;
+ $s =~ s/__LANG__/$short_lang/;
+ }
if (readlink($s) =~ m!^[^/]!) {
system('cp', $s, "$s-");
rename "$s-", $s;