- do not clobber files

1 files changed, 1 insertions, 7 deletions

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