From ed0e070f2f50f0c2283651e1de0c9bb6713f3c29 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 1 Sep 2000 07:57:16 +0000
Subject: *** empty log message ***

---
 perl-install/Xconfigurator.pm | 29 +++++++++++++++--------------
 perl-install/any.pm           |  5 ++++-
 2 files changed, 19 insertions(+), 15 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 8ab708853..30c8cdedf 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -1104,23 +1104,24 @@ sub main {
 _("I can set up your computer to automatically start X upon booting.
 Would you like X to start when you reboot?"), 1);
 	    rewriteInittab($run ? 5 : 3) unless $::testing;
-
-	    my @etc_pass_fields = qw(name pw uid gid realname home shell);
-	    my @users = mapgrep {
-		my %l; @l{@etc_pass_fields} = split ':';
-		$l{uid} > 500, $l{name};
-	    } cat_("$o->{prefix}/etc/passwd");
-
-	    my $flag='no';
-	    unless (exists $o->{miscellaneous}{autologuser} || $::auto || !@users || $o->{authentication}{NIS}) {
-	        $in->ask_from_entries_refH(_("Autologin"),
+	}
+	my @etc_pass_fields = qw(name pw uid gid realname home shell);
+	my @users = mapgrep {
+	    my %l; @l{@etc_pass_fields} = split ':';
+	    $l{uid} > 500, $l{name};
+	} cat_("$o->{prefix}/etc/passwd");
+	my @wm = run_program::rooted($prefix, "/usr/sbin/chksession", "-l");
+	my $flag='no';
+	unless (exists $o->{miscellaneous}{autologuser} || $::auto || !@users || $o->{authentication}{NIS}) {
+	    $in->ask_from_entries_refH(_("Autologin"),
 _("I can set up your computer to automatically log on one user.
 If you don't want to use this feature, click on the cancel button."),
-                                           [ _("Choose the default user:") => {val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1} ])
-		    ? do { $flag='yes'; system("urpmi --auto autologin"); } : delete $o->{miscellaneaous}{autologuser};
-	    }
-	    any::setAutologin($prefix, $o->{miscellaneous}{autologuser}, "startx", $flag);
+				       [ _("Choose the default user:") => { val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1},
+					 _("Choose the window_manager to run:") => { val => \$o->{miscellaneous}{autologwm}, list => \@wm, not_edit => 1}, ])
+	      ? do { $flag='yes'; $::isStandalone ? system("urpmi --auto autologin") : $o->pkgs_install("autologin"); } : delete $o->{miscellaneaous}{autologuser};
 	}
+	any::setAutologin($prefix, $o->{miscellaneous}{autologuser}, $o->{miscellaneous}{autologwm}, "/usr/X11R6/bin/startx", $flag);
+
 	run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone;
     }
 }
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1878ed0c7..eb6eee009 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -236,13 +236,16 @@ _("Default") => { val => \$default, type => 'bool' },
 }
 
 sub setAutologin {
-  my ($prefix, $user, $exe, $flag) = @_; 
+  my ($prefix, $user, $wm, $exe, $flag) = @_; 
   my $f = "$prefix/etc/sysconfig/autologin";
   my $t1 = "USER=";
   my $t2 = "EXEC=";
   my $t3 = "AUTOLOGIN=";
   substInFile { s/^(\Q$t1\E|\Q$t2\E|\Q$t3\E).*\n//; $_ .= "$t1$user\n$t2$exe\n$t3=$flag" if eof } $f;
   `chmod 644 $f`;
+  local *F;
+  open F, ">$prefix/etc/sysconfig/desktop" or die "Can't open $!";
+  print F "$wm";
 }
 
 
-- 
cgit v1.2.1