From 97783f172543c3b0f6c899195bb3c74fd5182b72 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Tue, 16 Mar 2004 20:41:41 +0000
Subject: - do not clobber files

---
 mdkonline | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'mdkonline')

diff --git a/mdkonline b/mdkonline
index 86ec9e26..bb434ae0 100755
--- a/mdkonline
+++ b/mdkonline
@@ -199,6 +199,7 @@ sub checkErrors {
 }
 sub setEntryWithConf {
     my %t = getVarsFromSh($wideconf);
+    $t{MACHINE} ||= chomp_(`hostname`);
     foreach (qw(login machine)) { $o->{$_}->get_text or $o->{$_}->set_text($t{uc($_)}) }
 }
 sub sendConfig {
@@ -411,11 +412,4 @@ MACHINE=$boxname
 COUNTRY=$country
 LASTCHECK=$d
 );
-    my $user = $ENV{INITIAL_USER} || $ENV{USER};
-    my $confpers = $user eq 'root' ? '/root/.mdkonline' : "/home/$user/.mdkonline";
-    my ($uid, $gid) = (getpwnam($user) || $user, getgrnam($user) || $user);
-    output_with_perm $confpers, 644,
-    qq(AUTOSTART=TRUE
-);
-    chown $uid, $gid, $confpers;
 }
-- 
cgit v1.2.1