From 5bbff1ee25e40ae62bcd8883248ebc249db260f7 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 14 Sep 2000 15:34:42 +0000
Subject: updated

---
 perl-install/any.pm | 23 +++--------------------
 1 file changed, 3 insertions(+), 20 deletions(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 8500c7ed7..fa19cae21 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -237,29 +237,12 @@ _("Default") => { val => \$default, type => 'bool' },
 
 sub setAutologin {
   my ($prefix, $user, $desktop) = @_;
-  $user and do {
+  if ($user) {
       local *F;
-      open F, ">$prefix/home/$user/.wmrc" or die "Can't open $!";
-      print F $desktop;
+      open F, ">$prefix/etc/sysconfig/desktop" or die "Can't open $!";
+      print F uc($desktop);
       close F;
-  };
-  my @wm = (qw(gnome ice maker kde after fvwm fvwm2 fvwm95 mwm twm enligh xfce blackbox sawfish));
-  my @wm2 = (qw(gnome-session icewm wmaker kdestart afterstep fvwm fvwm2 fvwm95 mwm twm enlightenment xfce blackbox sawfish));
-  my $i=0;
-  foreach (@wm) {
-      lc($desktop) =~ /$_/ and $desktop = $wm2[$i] and last;
-      $i++;
   }
-  my $f = "$prefix/home/$user/.xinitrc";
-  -e $f or do {
-      open F, ">$f" or die "Can't open $!";
-      print F "# Mandrake-Autologin : if you remove this comment, I won't ever edit this file.";
-      close F; };
-  cat_($f) =~ /^# Mandrake-Autologin.*\n/ and do {
-      substInFile {
-	  s/^exec .*\n//;
-	  $_ = "exec $desktop\n" . $_ if eof;
-      } "$prefix/home/$user/.xinitrc"; };
   setVarsInSh("$prefix/etc/sysconfig/autologin",
 	      { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" });
 }
-- 
cgit v1.2.1