summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAnssi Hannula <anssi@mageia.org>2011-04-17 14:33:45 +0000
committerAnssi Hannula <anssi@mageia.org>2011-04-17 14:33:45 +0000
commitd002efb5c6cae59da09da2371fb59c821e1c499f (patch)
tree8617fae7e67f24e0bb718500a66c5cb82f5a2394 /perl-install
parentfc308dfdd9b045316c542dcafa60f4f4787bdde6 (diff)
downloaddrakx-d002efb5c6cae59da09da2371fb59c821e1c499f.tar
drakx-d002efb5c6cae59da09da2371fb59c821e1c499f.tar.gz
drakx-d002efb5c6cae59da09da2371fb59c821e1c499f.tar.bz2
drakx-d002efb5c6cae59da09da2371fb59c821e1c499f.tar.xz
drakx-d002efb5c6cae59da09da2371fb59c821e1c499f.zip
service_harddrake: Adapt from bootsplash to plymouth.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rwxr-xr-xperl-install/standalone/service_harddrake9
2 files changed, 5 insertions, 7 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 19012a660..2edd99a43 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- service_harddrake:
+ o adapt splash handling for plymouth (for showing dialogs)
+
Version 13.47
- modify a string in partitioning_wizard.pm to be more grammatically correct
(spotted by Sigrid Carrera, on mageia-i18n ML)
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index c8abea227..19333172e 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -219,8 +219,7 @@ my $is_globetrotter = -f '/usr/sbin/mdkmove';
my (%config, $wait);
my $in;
-my $splash = -f '/proc/splash';
-my $splash_was_silent = cat_('/proc/splash') =~ /, silent : on/;
+my $plymouth = -x '/bin/plymouth';
# For each hw, class, detect device, compare and offer to reconfigure if needed
foreach my $hw_class (@harddrake::data::tree) {
@@ -339,7 +338,7 @@ foreach my $hw_class (@harddrake::data::tree) {
if (!$hw_class->{automatic}) {
$SIG{ALRM} = sub { $no = 1; kill 15, $pid };
unless ($pid = fork()) {
- $splash and eval { output('/proc/splash', 'verbose') } and $splash = 0;
+ $plymouth and system('plymouth', 'hide-splash');
exec("/usr/share/harddrake/confirm", $Ident, $timeout, $msg);
}
alarm($timeout);
@@ -379,8 +378,4 @@ foreach my $hw_class (@harddrake::data::tree) {
log::explanations("created file $last_boot_config");
Storable::store(\%config, $last_boot_config);
-# restore bootsplash mode
-$splash_was_silent and eval { output('/proc/splash', 'silent') };
-
-
$in->exit(0) if $in;