version 1.16, 2003/10/21 09:44:04
|
version 1.17, 2003/10/28 11:28:35
|
Line 52
|
Line 52
|
# If [host] is not supplied, every host in the client's hosts.tab |
# If [host] is not supplied, every host in the client's hosts.tab |
# table is iterated through and procesed.. |
# table is iterated through and procesed.. |
# |
# |
# $Log$ |
|
# Revision 1.16 2003/10/21 09:44:04 foxr |
|
# Add ability to manage entire cluster in hosts table. |
|
# |
|
# Revision 1.15 2003/09/16 09:49:54 foxr |
|
# Adjust the usage message to reflect what actually will happen on |
|
# --reinit={lond|lonc} |
|
# |
|
# Revision 1.14 2003/09/08 09:45:20 foxr |
|
# Remove BUGBUG about comment about authentication as we'll be doing |
|
# host based authentication initially (no need for lonManage to do anything), |
|
# and certificate based later (need at that time). |
|
# |
|
# Revision 1.13 2003/08/19 10:26:24 foxr |
|
# Initial working version... tested against an unmodified lond this |
|
# produces an unknown_cmd response which is about what I'd expect. |
|
# |
|
# Revision 1.12 2003/08/18 11:08:07 foxr |
|
# Debug request building in Transact. |
|
# |
|
# Revision 1.11 2003/08/18 10:45:32 foxr |
|
# Felt strongly enough about hoisting ReadConfiguration into a separate sub |
|
# that I did it now before I forgot. |
|
# |
|
# Revision 1.10 2003/08/18 10:43:31 foxr |
|
# Code/test ValidHost. The hosts.tab and the perl variables are read in as |
|
# global hashes as a side effect. May later want to clean this up by making |
|
# a separate getconfig function and hoisting the config reads into that. |
|
# |
|
# Revision 1.9 2003/08/18 10:25:46 foxr |
|
# Write ReinitProcess function in terms of ValidHost and Transact. |
|
# |
|
# Revision 1.8 2003/08/18 10:18:21 foxr |
|
# Completed PushFile function in terms of |
|
# - ValidHost - Determines if target host is valid. |
|
# - Transact - Performs one of the valid transactions with the |
|
# appropriate lonc<-->lond client/server pairs. |
|
# |
|
# Revision 1.7 2003/08/18 09:56:01 foxr |
|
# 1. Require to be run as root. |
|
# 2. Catch case where no operation switch is supplied and put out usage. |
|
# 3. skeleton/comments for PushFile function. |
|
# |
|
# Revision 1.6 2003/08/12 11:02:59 foxr |
|
# Implement command switch dispatching. |
|
# |
|
# Revision 1.5 2003/08/12 10:55:42 foxr |
|
# Complete command line parsing (tested) |
|
# |
|
# Revision 1.4 2003/08/12 10:40:44 foxr |
|
# Get switch parsing right. |
|
# |
|
# Revision 1.3 2003/08/12 10:22:35 foxr |
|
# Put in parameter parsing infrastructure |
|
# |
|
# Revision 1.2 2003/08/12 09:58:49 foxr |
|
# Add usage and skeleton documentation. |
|
# |
|
# |
# |
|
|
|
|
|
|
# Modules required: |
# Modules required: |
|
|
|
use lib "."; |
|
|
use strict; # Because it's good practice. |
use strict; # Because it's good practice. |
use English; # Cause I like meaningful names. |
use English; # Cause I like meaningful names. |
use Getopt::Long; |
use Getopt::Long; |
use LONCAPA::Configuration; # To handle configuration I/O. |
|
use IO::Socket::UNIX; # To communicate with lonc. |
use IO::Socket::UNIX; # To communicate with lonc. |
|
use LondConnection; |
|
|
# File scoped variables: |
# File scoped variables: |
|
|
Line 267 sub ParseArgs {
|
Line 211 sub ParseArgs {
|
# Read the loncapa configuration stuff. |
# Read the loncapa configuration stuff. |
# |
# |
sub ReadConfig { |
sub ReadConfig { |
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $perlvarref = LondConnection::read_conf('loncapa.conf'); |
%perlvar = %{$perlvarref}; |
%perlvar = %{$perlvarref}; |
my $hoststab = LONCAPA::Configuration::read_hosts( |
my $hoststab = LondConnection::read_hosts( |
"$perlvar{'lonTabDir'}/hosts.tab"); |
"$perlvar{'lonTabDir'}/hosts.tab"); |
%hostshash = %{$hoststab}; |
%hostshash = %{$hoststab}; |
|
|