summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-09-18 10:39:52 +0000
committerThierry Vignaud <tv@mageia.org>2012-09-18 10:39:52 +0000
commitd7b7d35bf9c90a133c5c9d818f85b8f124798513 (patch)
tree39e877d26e9ba6ae64e68286bd4d813241800be4 /perl-install
parente24ebc86feb79937d5db9418199091a26a1e2519 (diff)
downloaddrakx-backup-do-not-use-d7b7d35bf9c90a133c5c9d818f85b8f124798513.tar
drakx-backup-do-not-use-d7b7d35bf9c90a133c5c9d818f85b8f124798513.tar.gz
drakx-backup-do-not-use-d7b7d35bf9c90a133c5c9d818f85b8f124798513.tar.bz2
drakx-backup-do-not-use-d7b7d35bf9c90a133c5c9d818f85b8f124798513.tar.xz
drakx-backup-do-not-use-d7b7d35bf9c90a133c5c9d818f85b8f124798513.zip
save the untranslated license early
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/install2.pm3
-rwxr-xr-xperl-install/standalone/finish-install3
2 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 1019e2809..24d99cb03 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -27,6 +27,7 @@ use log;
use fs;
use fs::any;
use fs::mount;
+use messages;
#-#######################################################################################
#-$O
@@ -65,7 +66,7 @@ $o = $::o = {
#- eth0 => { DEVICE => "eth0", IPADDR => '1.2.3.4', NETMASK => '255.255.255.128' }
#- },
},
-
+ untranslated_license => messages::main_license_raw(),
#-step : the current one
#-prefix
#-mouse
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 6dd358bed..fc91491cd 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -12,6 +12,7 @@ use any;
use authentication;
use network::network;
use security::level;
+use messages;
my $conf_file = '/etc/sysconfig/finish-install';
my %conf = getVarsFromSh($conf_file);
@@ -24,6 +25,8 @@ network::network::read_net_conf($net);
$::isWizard = 1;
my $in = 'interactive'->vnew('su');
+$in->{untranslated_license} = messages::main_license_raw();
+
any::set_wm_hints_if_needed($in);
sub get_conf {