perl-install/standalone/notify-x11-free-driver-switch


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;
    my $raw_X = Xconfig::xfree->read;
    $raw_X->get_Driver;
} || N("unknown");


my $reason = cat_utf8($ENV{LOCK});

$in->ask_warn(N("Display driver setup"),
              join("\n\n",
                   N("The display driver has been automatically switched to '%s'.", $driver),
                   if_($reason, N("Reason: %s.", $reason)),
               ));
unlink $0 if $0 =~ m!/etc/X11/xsetup.d/!;