[LON-CAPA-cvs] cvs: loncom / lonManage

foxr lon-capa-cvs@mail.lon-capa.org
Mon, 03 Nov 2003 10:24:49 -0000


foxr		Mon Nov  3 05:24:49 2003 EDT

  Modified files:              
    /loncom	lonManage 
  Log:
  Get my host from either command lin parameter or from config file
  depending on our startup mode.
  
  
Index: loncom/lonManage
diff -u loncom/lonManage:1.19 loncom/lonManage:1.20
--- loncom/lonManage:1.19	Mon Nov  3 05:18:13 2003
+++ loncom/lonManage	Mon Nov  3 05:24:49 2003
@@ -3,9 +3,9 @@
 #
 #  lonManage supports remote management of nodes in a LonCAPA cluster.
 #
-#  $Id: lonManage,v 1.19 2003/11/03 10:18:13 foxr Exp $
+#  $Id: lonManage,v 1.20 2003/11/03 10:24:49 foxr Exp $
 #
-# $Id: lonManage,v 1.19 2003/11/03 10:18:13 foxr Exp $
+# $Id: lonManage,v 1.20 2003/11/03 10:24:49 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -241,6 +241,7 @@
 	my $hoststab   = LondConnection::read_hosts(
 					    "$perlvar{'lonTabDir'}/hosts.tab");
 	%hostshash     = %{$hoststab};
+	$MyHost        = $perlvar{lonHostID}; # Set hostname from vars.
     } else {
 	my $hoststab   = LondConnection::read_hosts($ForeignHostTab);
 	%hostshash     = %{$hoststab};