Branch for updates

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..51e9cf85a
--- /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;
+    $raw_X = Xconfig::xfree->read;
+    $raw_X->get_Driver;
+} || N("unknown");
+
+
+my $reason = cat_utf8($ENV{LOCK});
+
+$in->ask_warn(N("Warning"),
+              join("\n\n",
+                   N("The proprietary driver for your graphic card cannot 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/!;