diff options
author | Anssi Hannula <anssi@mageia.org> | 2011-04-20 23:32:50 +0000 |
---|---|---|
committer | Anssi Hannula <anssi@mageia.org> | 2011-04-20 23:32:50 +0000 |
commit | 1ce1be1f7b16c378de6b4eb4605b40374bece003 (patch) | |
tree | f7ac312fcdd7903e5bb4e4023b8980131d5c01c0 /perl-install/standalone/service_harddrake_confirm | |
parent | 86b6cbea214a9254ab812470b9be9f138a86ce55 (diff) | |
download | drakx-backup-do-not-use-1ce1be1f7b16c378de6b4eb4605b40374bece003.tar drakx-backup-do-not-use-1ce1be1f7b16c378de6b4eb4605b40374bece003.tar.gz drakx-backup-do-not-use-1ce1be1f7b16c378de6b4eb4605b40374bece003.tar.bz2 drakx-backup-do-not-use-1ce1be1f7b16c378de6b4eb4605b40374bece003.tar.xz drakx-backup-do-not-use-1ce1be1f7b16c378de6b4eb4605b40374bece003.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-x | perl-install/standalone/service_harddrake_confirm | 11 |
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); |