updated autologin.

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;
     }
 }