diff options
Diffstat (limited to 'mdkonline')
-rwxr-xr-x | mdkonline | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -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; } |