summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/service_harddrake_confirm
blob: 1528fd9bf3b6206a496b94a1ae1ef9d964c8eddf (plain)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use common;
use interactive;

my $in = interactive->vnew;
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);