diff options
| author | damien <damien@mandriva.com> | 2000-09-01 07:57:16 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-09-01 07:57:16 +0000 |
| commit | ed0e070f2f50f0c2283651e1de0c9bb6713f3c29 (patch) | |
| tree | 51c83002416c20dbc85045ccc0cd7154b72a0589 | |
| parent | 23de025004e087985f16d552b9254f5d2567116e (diff) | |
| download | drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar.gz drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar.bz2 drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar.xz drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.zip | |
*** empty log message ***
| -rw-r--r-- | perl-install/Xconfigurator.pm | 29 | ||||
| -rw-r--r-- | perl-install/any.pm | 5 |
2 files changed, 19 insertions, 15 deletions
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"; } |