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

Diff for /loncom/Attic/lonManage between versions 1.9 and 1.10

version 1.9, 2003/08/18 10:25:46 version 1.10, 2003/08/18 10:43:31
Line 50 Line 50
 #    not the IP address of the host.  #    not the IP address of the host.
 #  #
 #  $Log$  #  $Log$
   #  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  #  Revision 1.9  2003/08/18 10:25:46  foxr
 #  Write ReinitProcess function in terms of ValidHost and Transact.  #  Write ReinitProcess function in terms of ValidHost and Transact.
 #  #
Line 80 Line 85
 #  Add usage and skeleton documentation.  #  Add usage and skeleton documentation.
 #  #
 #  #
   
   # Modules required:
   
 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.
   
   # File scoped variables:
   
   my %perlvar; # Perl variable defs from apache config.
   my %hostshash; # Host table as a host indexed hash.
   
 sub Usage  {  sub Usage  {
     print "Usage:";      print "Usage:";
Line 187  sub ParseArgs { Line 201  sub ParseArgs {
           
     return @result;      return @result;
 }  }
   #
   #  Determine if the target host is valid.
   #  This is done by reading the current hosts.tab file.
   #  For the host to be valid, it must be inthe file.
   #
   #  Parameters:
   #     host   - Name of host to check on.
   #  Returns:
   #     true   if host is valid.
   #     false  if host is invalid.
   #
 sub ValidHost {  sub ValidHost {
     return 1;      my $host       = shift;
   
       my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');
       %perlvar       = %{$perlvarref};
       my $hoststab   = LONCAPA::Configuration::read_hosts(
    "$perlvar{'lonTabDir'}/hosts.tab");
       %hostshash     = %{$hoststab};
   
       return defined $hostshash{$host};
   
 }  }
 sub Transact {  sub Transact {
   
 }  }
 #  #
 #   Called to push a file to the remote system.  #   Called to push a file to the remote system.
Removed from v.1.9  
changed lines
  Added in v.1.10

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