summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/service_harddrake_confirm
blob: 99eaf7b0fb9bb45daf9185a53418188295f8904e (plain)
1
2
3
4
5
6
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);