From 05a4d73fb33d00d61833106eca90cfce8d7cbede Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 1 Apr 2004 09:44:16 +0000
Subject: pass timeout parameter too

---
 perl-install/standalone/service_harddrake         | 2 +-
 perl-install/standalone/service_harddrake_confirm | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index d1805ef14..f3b763979 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -94,7 +94,7 @@ foreach (@harddrake::data::tree) {
     my ($pid, $no);
     $SIG{ALRM} = sub { $no = 1; kill 15, $pid };
     unless ($pid = fork()) {
-        exec("/usr/share/harddrake/confirm '$Ident' '$msg'");
+        exec("/usr/share/harddrake/confirm '$Ident' '$timeout' '$msg'");
     }
     alarm($timeout);
     wait();
diff --git a/perl-install/standalone/service_harddrake_confirm b/perl-install/standalone/service_harddrake_confirm
index 99eaf7b0f..eaf454960 100644
--- a/perl-install/standalone/service_harddrake_confirm
+++ b/perl-install/standalone/service_harddrake_confirm
@@ -1,7 +1,9 @@
 #!/usr/bin/perl
 use lib qw(/usr/lib/libDrakX);
+use common;
 use interactive;
 
 my $in = interactive->vnew;
-my $res = $in->ask_okcancel($ARGV[0], $ARGV[1], 1);
+my $res = $in->ask_okcancel(N("Hardware changes in \"%s\" class (%s seconds to answer)", $ARGV[0], $ARGV[1]),
+                            $ARGV[2] . N("Do you want to run the appropriate config tool ?"), 1);
 $in->exit($res);
-- 
cgit v1.2.1