perl-install/standalone/harddrake2


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);
use standalone;
use harddrake::ui;

if ("@ARGV" =~ /--help|-h/) {
    print "Harddrake 2\n", $harddrake::ui::license, N("\nUsage: harddrake [-h|--help] [--test]\n");
    exit;
}
$::isStandalone=1;

harddrake::ui->new;