summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/service_harddrake_confirm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/service_harddrake_confirm')
-rw-r--r--perl-install/standalone/service_harddrake_confirm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/standalone/service_harddrake_confirm b/perl-install/standalone/service_harddrake_confirm
new file mode 100644
index 000000000..99eaf7b0f
--- /dev/null
+++ b/perl-install/standalone/service_harddrake_confirm
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use lib qw(/usr/lib/libDrakX);
+use interactive;
+
+my $in = interactive->vnew;
+my $res = $in->ask_okcancel($ARGV[0], $ARGV[1], 1);
+$in->exit($res);