--- loncom/build/make_domain_coordinator.pl	2013/12/20 21:13:02	1.26
+++ loncom/build/make_domain_coordinator.pl	2021/01/08 00:38:07	1.28
@@ -11,7 +11,7 @@ make_domain_coordinator.pl - Make a doma
 # The LearningOnline Network
 # make_domain_coordinator.pl - Make a domain coordinator on a system
 #
-# $Id: make_domain_coordinator.pl,v 1.26 2013/12/20 21:13:02 raeburn Exp $
+# $Id: make_domain_coordinator.pl,v 1.28 2021/01/08 00:38:07 raeburn Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -97,6 +97,7 @@ use Apache::lonnet;
 use Apache::lonlocal;
 use DBI;
 use Storable qw(nfreeze);
+use Sys::Hostname::FQDN();
 use strict;
 
 =pod
@@ -371,6 +372,10 @@ if ($distro =~ /^ubuntu|debian/) {
     if ($1 > 12.2) {
         $nostdin = 1;
     }
+} elsif ($distro =~ /^sles(\d+)$/) {
+    if ($1 > 11) {
+        $nostdin = 1;
+    }
 }
 if ($nostdin) {
     open(OUT,"|usermod -p `mkpasswd $passwd` $username");
@@ -535,7 +540,7 @@ by going to http://MACHINENAME/adm/creat
 
 # Output success message, and inform sysadmin about how to further proceed.
 print("\n".&mt('[_1] is now a domain coordinator',$username)."\n"); # Output success message.
-my $hostname=`hostname`; chomp($hostname); # Read in hostname.
+my $hostname = Sys::Hostname::FQDN::fqdn(); # Read in hostname.
 print("\n".
       &mt('Once LON-CAPA is running, you should log-in and use: [_1] to further define this user.',
           "\nhttp://$hostname/adm/createuser\n")."\n\n".