blob: 38bd8cba389b6bdd0bb6df61cc6abb1644deb7b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use standalone;
use interactive;
use common;
$::isStandalone = 0;
my $in = 'interactive'->vnew;
my $driver = eval {
require Xconfig::xfree;
$raw_X = Xconfig::xfree->read;
$raw_X->get_Driver;
} || N("unknown");
my $reason = cat_($ENV{LOCK});
$in->ask_warn(N("Warning"),
join("\n\n",
N("The proprietary driver for your graphic card can not be found, the system is now using the free software driver (%s).", $driver),
if_($reason, N("Reason: %s.", $reason)),
));
unlink $0 if $0 =~ m!/etc/X11/xsetup.d/!;
|
