1 files changed, 23 insertions, 0 deletions
diff --git a/perl-install/standalone/notify-x11-free-driver-switch b/perl-install/standalone/notify-x11-free-driver-switch
new file mode 100755
index 000000000..30c42f82c
--- /dev/null
+++ b/perl-install/standalone/notify-x11-free-driver-switch
@@ -0,0 +1,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/!;