summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/service_harddrake_confirm
diff options
context:
space:
mode:
authorAnssi Hannula <anssi@mandriva.org>2011-04-20 23:34:21 +0000
committerAnssi Hannula <anssi@mandriva.org>2011-04-20 23:34:21 +0000
commitc647d61c5df99e338066a972642d53bece120ef2 (patch)
treec4a08d8528ea8671b974660f9f59ea3ab906f74c /perl-install/standalone/service_harddrake_confirm
parent7efe2b0a051c4390417cf7f3d59d6e83233471c5 (diff)
downloaddrakx-backup-do-not-use-c647d61c5df99e338066a972642d53bece120ef2.tar
drakx-backup-do-not-use-c647d61c5df99e338066a972642d53bece120ef2.tar.gz
drakx-backup-do-not-use-c647d61c5df99e338066a972642d53bece120ef2.tar.bz2
drakx-backup-do-not-use-c647d61c5df99e338066a972642d53bece120ef2.tar.xz
drakx-backup-do-not-use-c647d61c5df99e338066a972642d53bece120ef2.zip
service_harddrake: add support for timeouted OK and Yes/No dialogs in
addition to the current OK/Cancel dialogs.
Diffstat (limited to 'perl-install/standalone/service_harddrake_confirm')
-rwxr-xr-xperl-install/standalone/service_harddrake_confirm11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/standalone/service_harddrake_confirm b/perl-install/standalone/service_harddrake_confirm
index 914f644f8..f92807e2d 100755
--- a/perl-install/standalone/service_harddrake_confirm
+++ b/perl-install/standalone/service_harddrake_confirm
@@ -4,5 +4,14 @@ use common;
use interactive;
my $in = interactive->vnew;
-my $res = $in->ask_okcancel($ARGV[0], $ARGV[1], 1);
+my $res;
+
+if ($ARGV[0] eq "warn") {
+ $res = $in->ask_warn($ARGV[1], $ARGV[2]);
+} elsif ($ARGV[0] eq "yesorno") {
+ $res = $in->ask_yesorno($ARGV[1], $ARGV[2], 1);
+} elsif ($ARGV[0] eq "okcancel") {
+ $res = $in->ask_okcancel($ARGV[1], $ARGV[2], 1);
+}
+
$in->exit($res);