diff options
Diffstat (limited to 'perl-install/Xconfigurator.pm')
| -rw-r--r-- | perl-install/Xconfigurator.pm | 44 |
1 files changed, 9 insertions, 35 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 08eabf1d4..f0f51c162 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -1094,41 +1094,15 @@ Would you like X to start when you reboot?"), 1); my %l; @l{@etc_pass_fields} = split ':'; $l{uid} > 500, $l{name}; } cat_("$o->{prefix}/etc/passwd"); - if (!(exists $o->{miscellaneous}{autologuser} || $::auto || !@users || exists $o->{authentication}{NIS} )) - { - if($in->ask_from_entries_refH(_("Autologin"), - _("I can set up your computer to automatically log on one user. + + !(exists $o->{miscellaneous}{autologuser} || $::auto || !@users || exists $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} ], )) { - my (@lines, $autoString, $autoUser); - open (F, "$prefix/etc/X11/xdm/xdm_config"); - foreach (<F>) { - /DisplayManager._0.autoUser/ and $autoUser=1; - /DisplayManager._0.autoString/ and $autoString=1; - } - close F; - if ( $autoUser) { - substInFile { - s/^(DisplayManager._0.autoUser):.*/$1:\t$o->{miscellaneous}{autologuser}/; - } "$prefix/etc/X11/xdm/xdm_config" - } else { - open F, ">>$prefix/etc/X11/xdm/xdm_config" or die "Can't append $prefix/etc/X11/xdm/xdm_config !"; - print F "\nDisplayManager._0.autoUser:\t$o->{miscellaneous}{autologuser}"; - close F; - } - if ( $autoString) { - substInFile { - s/^(DisplayManager._0.autoString):.*/$1:\tkde\n/; # Change it when /etc/wmsession.d is complete. - } "$prefix/etc/X11/xdm/xdm_config" - } else { - open F, ">>$prefix/etc/X11/xdm/xdm_config" or die "Can't append $prefix/etc/X11/xdm/xdm_config !"; - print F "\nDisplayManager._0.autoString:\tkde\n"; - close F; - } - # (dam's) : a patch for gdm is being done. - } - } - } - run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone; +[ _("Choose the default user :") => {val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1} ], ) + or delete $o->{miscellaneaous}{autologuser}; + set_autologin($prefix, $o->{miscellaneous}{autologuser}, "kde" ) if (@users && !exists $o->{authentication}{NIS} && exists $o->{miscellaneous}{autologuser}); + } + run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone; } } |