[BACK]Return to lonManage CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/Attic/lonManage between versions 1.18 and 1.20

version 1.18, 2003/10/28 11:55:58 version 1.20, 2003/11/03 10:24:49
Line 71  use LondConnection; Line 71  use LondConnection;
 my %perlvar; # Perl variable defs from apache config.  my %perlvar; # Perl variable defs from apache config.
 my %hostshash; # Host table as a host indexed hash.  my %hostshash; # Host table as a host indexed hash.
   
 my $MyHost; # Host name to use as me.  my $MyHost=""; # Host name to use as me.
 my $ForeignHostTab; # Name of foreign hosts table.  my $ForeignHostTab=""; # Name of foreign hosts table.
   
 #  #
 #   prints out utility's command usage info.  #   prints out utility's command usage info.
Line 227  sub ParseArgs { Line 227  sub ParseArgs {
     return @result;      return @result;
 }  }
 #  #
 #  Read the loncapa configuration stuff.  #  Read the loncapa configuration stuff.  If ForeignHostTab is empty,
   #  assume we are part of a loncapa cluster and read the hosts.tab
   #  file from the config directory.  Otherwise, ForeignHossTab
   #  is the name of an alternate configuration file to read in 
   #  standalone mode.
 #  #
 sub ReadConfig {  sub ReadConfig {
     my $perlvarref = LondConnection::read_conf('loncapa.conf');  
     %perlvar       = %{$perlvarref};      if($ForeignHostTab eq "") {
     my $hoststab   = LondConnection::read_hosts(   my $perlvarref = LondConnection::read_conf('loncapa.conf');
  "$perlvar{'lonTabDir'}/hosts.tab");   %perlvar       = %{$perlvarref};
     %hostshash     = %{$hoststab};   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};
    $perlvar{londPort}   = 5663;
    $perlvar{lonSockDir} = "/home/httpd/sockets";
       }
   
 }  }
 #  #
Line 388  sub ReinitProcess { Line 401  sub ReinitProcess {
 }  }
 #--------------------------- Entry point: --------------------------  #--------------------------- Entry point: --------------------------
   
 ReadConfig; # Read the configuration info (incl.hosts).  
   
   
 #  Parse the parameters  #  Parse the parameters
Line 408  if ($EUID != 0) { Line 420  if ($EUID != 0) {
     die "ENOPRIV - No privilege for requested operation"      die "ENOPRIV - No privilege for requested operation"
 }  }
   
   #
   #   Read the configuration file.
   #   
   
   ReadConfig; # Read the configuration info (incl.hosts).
   
 #   Based on the operation requested invoke the appropriate function:  #   Based on the operation requested invoke the appropriate function:
   
Removed from v.1.18  
changed lines
  Added in v.1.20

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>