From d402a1848a17ee73540d22ffc5e291a4b87626c5 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 10 Oct 2003 14:38:08 +0000
Subject: configure automatically XFree and allow to launch interactive_gtk
 with it

---
 perl-install/install2.pm          |  5 +----
 perl-install/install_steps_gtk.pm | 14 +++++++++++++-
 2 files changed, 14 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index d021f37c8..cdba1e737 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -429,12 +429,9 @@ sub main {
     if ($::move) {
         require move;
         move::init();
-        $::mdkinst = '';
-    } else {
-        $::mdkinst = 'Mandrake/mdkinst';
     }
 
-    $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : $::live ? "" : "/mnt";
+    $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : $::live || $::move ? "" : "/mnt";
     $o->{isUpgrade} = 1 if $::live;
     mkdir $o->{prefix}, 0755;
     devices::make("/dev/zero"); #- needed by ddcxinfos
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index ea95f679f..9279e498c 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -41,6 +41,8 @@ sub new($$) {
 	}
 	my $launchX = sub {
 	    my ($server, $Driver) = @_;
+            $::move and goto launch_X;
+
 	    my $xpmac_opts = cat_('/proc/cmdline');
 	    install_gtk::createXconf($f, @{$o->{mouse}}{"XMOUSETYPE", "device"}, $o->{mouse}{wacom}[0], $Driver);
 
@@ -56,6 +58,7 @@ sub new($$) {
 	    push @options, '-fp', '/usr/X11R6/lib/X11/fonts:unscaled' if $server =~ /Xsun|Xpmac/;
 	    push @options, '-ac', '-geometry', $o->{vga16} ? '640x480' : '800x600' if $server eq 'Xnest';
 
+          launch_X:
 	    if (!fork()) {
 		c::setsid();
 		exec $server, @options or exit 1;
@@ -98,12 +101,20 @@ sub new($$) {
 	    @servers = map { if_($_, "Driver:$_") } $card && $card->{Driver}, 'fbdev';
 	} elsif (arch() eq "ppc") {
 	    @servers = qw(Xpmac);
+        }
+
+        if ($::move) {
+            require move;
+            require run_program;
+            move::automatic_xconf($o);
+            run_program::rooted('', '/sbin/service', 'xfs', 'start');
+            @servers = qw(X);
 	}
 
 	foreach (@servers) {
 	    log::l("Trying with server $_");
 	    my $dir = "/usr/X11R6/bin";
-	    my ($prog, $Driver) = /Driver:(.*)/ ? ('XFree86', $1) : /Xsun|Xpmac|Xnest/ ? $_ : "XF86_$_";
+	    my ($prog, $Driver) = /Driver:(.*)/ ? ('XFree86', $1) : /Xsun|Xpmac|Xnest|^X$/ ? $_ : "XF86_$_";
 	    unless (-x "$dir/$prog") {
 		unlink $_ foreach glob_("$dir/X*");
 		install_any::getAndSaveFile("Mandrake/mdkinst$dir/$prog", "$dir/$prog") or die "failed to get server $prog: $!";
@@ -118,6 +129,7 @@ sub new($$) {
 		$o->{vga16} = 1 if /VGA16/;
 		&$launchX($prog, $Driver) and goto OK;
 	    }
+            $::move and die "can't launch graphical mode :(\n";
 	}
 	return undef;
     }
-- 
cgit v1.2.1