[LON-CAPA-cvs] cvs: loncom /build make_domain_coordinator.pl

[raeburn]

raeburn		Fri Jan  8 00:38:07 2021 EDT

  Modified files:              
    /loncom/build	make_domain_coordinator.pl 
  Log:
  - hostname from Sys::Hostname::FQDN::fqdn
  
  
Index: loncom/build/make_domain_coordinator.pl
diff -u loncom/build/make_domain_coordinator.pl:1.27 loncom/build/make_domain_coordinator.pl:1.28
--- loncom/build/make_domain_coordinator.pl:1.27	Sat Jan  3 02:45:22 2015
+++ loncom/build/make_domain_coordinator.pl	Fri Jan  8 00:38:07 2021
@@ -11,7 +11,7 @@
 # The LearningOnline Network
 # make_domain_coordinator.pl - Make a domain coordinator on a system
 #
-# $Id: make_domain_coordinator.pl,v 1.27 2015/01/03 02:45:22 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::lonlocal;
 use DBI;
 use Storable qw(nfreeze);
+use Sys::Hostname::FQDN();
 use strict;
 
 =pod
@@ -539,7 +540,7 @@
 
 # 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".