diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-10 14:38:08 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-10 14:38:08 +0000 |
| commit | d402a1848a17ee73540d22ffc5e291a4b87626c5 (patch) | |
| tree | 913b9edd0b90888d66ac44c1f054781bcc10d6c2 /perl-install | |
| parent | d7525a28e68b9c17fe5680cbbf9dc1842afef430 (diff) | |
| download | drakx-backup-do-not-use-d402a1848a17ee73540d22ffc5e291a4b87626c5.tar drakx-backup-do-not-use-d402a1848a17ee73540d22ffc5e291a4b87626c5.tar.gz drakx-backup-do-not-use-d402a1848a17ee73540d22ffc5e291a4b87626c5.tar.bz2 drakx-backup-do-not-use-d402a1848a17ee73540d22ffc5e291a4b87626c5.tar.xz drakx-backup-do-not-use-d402a1848a17ee73540d22ffc5e291a4b87626c5.zip | |
configure automatically XFree and allow to launch interactive_gtk with it
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install2.pm | 5 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 14 |
2 files changed, 14 insertions, 5 deletions
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; } |