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

Diff for /loncom/Attic/lonManage between versions 1.3 and 1.8

version 1.3, 2003/08/12 10:22:35 version 1.8, 2003/08/18 10:18:21
Line 50 Line 50
 #    not the IP address of the host.  #    not the IP address of the host.
 #  #
 #  $Log$  #  $Log$
   #  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  #  Revision 1.3  2003/08/12 10:22:35  foxr
 #  Put in parameter parsing infrastructure  #  Put in parameter parsing infrastructure
 #  #
Line 57 Line 77
 #  Add usage and skeleton documentation.  #  Add usage and skeleton documentation.
 #  #
 #  #
   use strict; # Because it's good practice.
   use English; # Cause I like meaningful names.
 use Getopt::Long;  use Getopt::Long;
   
 sub Usage  {  sub Usage  {
Line 71  sub Usage  { Line 93  sub Usage  {
     lonManage  --reinit=lonc host      lonManage  --reinit=lonc host
            Sends a HUP signal to the remote systems's lond.             Sends a HUP signal to the remote systems's lond.
   
     lonmanage  --reinit=lond host      lonManage  --reinit=lond host
           Requests the remote system's lond perform the same action as if            Requests the remote system's lond perform the same action as if
           it had received a HUP signal.            it had received a HUP signal.
   
Line 95  USAGE Line 117  USAGE
 #  #
 #   This function does not validation of the parameters of push and  #   This function does not validation of the parameters of push and
 #   reinit.  #   reinit.
   #
   #   returns a list.  The first element of the list is the operation name
   #   (e.g. reinit or push).  The second element is the switch parameter.
   #   for push, this is the table name, for reinit, this is the process name.
   #   Additional elements of the list are the command argument.  The count of
   #   command arguments is validated, but not their semantics.
   #
 #   returns an empty list if the parse fails.  #   returns an empty list if the parse fails.
 #  #
   
 sub ParseArgs {  sub ParseArgs {
     return ();      my $pushing   = '';
 }      my $reinitting = '';
   
       if(!GetOptions('push=s'    => \$pushing,
              'reinit=s'  => \$reinitting)) {
    return ();
       }
   
       #  Require exactly   one of --push and --reinit
   
       my $command    = '';
       my $commandarg = '';
       my $paramcount = @ARGV; # Number of additional arguments.
       
   
       if($pushing ne '') {
   
           # --push takes in addition a table, and a host:
           #
    if($paramcount != 2) {
       return (); # Invalid parameter count.
    }
    if($command ne '') {
       return ();
    } else {
       
       $command    = 'push';
       $commandarg = $pushing;
    }
       }
   
       if ($reinitting ne '') {
   
    # --reinit takes in addition just a host name
   
    if($paramcount != 1) {
       return ();
    }
    if($command ne '') {
       return ();
    } else {
       $command    = 'reinit';
       $commandarg = $reinitting; 
    }
       }
   
       #  Build the result list:
   
       my @result = ($command, $commandarg);
       my $i;
       for($i = 0; $i < $paramcount; $i++) {
    push(@result, $ARGV[$i]);
       }
       
       return @result;
   }
   sub ValidHost {
       return 1;
   }
   sub Transact {
   }
 #  #
 #    If command parsing failed, then print usage:  #   Called to push a file to the remote system.
   #   The only legal files to push are hosts.tab and domain.tab.
   #   Security is somewhat improved by
   #   
   #   - Requiring the user run as root.
   #   - Connecting with lonc rather than lond directly ensuring this is a loncapa
   #     host
   #   - We must appear in the remote host's hosts.tab file.
   #   - The host must appear in our hosts.tab file.
   #
   #  Parameters:
   #     tablename - must be one of hosts or domain.
   #     tablefile - name of the file containing the table to push.
   #     host      - name of the host to push this file to.     
   #
   sub PushFile {
       my $tablename = shift;
       my $tablefile = shift;
       my $host      = shift;
       
       # Open the table file:
   
       if(!open(TABLEFILE, "<$tablefile")) {
    die "ENOENT - No such file or directory $tablefile";
       }
     
       # Require that the host be valid:
   
       if(!ValidHost($host)) {
    die "EHOSTINVAL - Invalid host $host"; # Ok so I invented this 'errno'.
       }
       # Read in the file.  If the table name is valid, push it.
   
       my @table = <TABLEFILE>; #  These files are pretty small.
       close TABLEFILE;
   
       if( ($tablename eq "host")    ||
    ($tablename eq "domain")) {
    Transact($host, "pushfile:$tablename:",\@table);
       } else {
    die "EINVAL - Invalid parameter. tablename: $tablename must be host or domain";
       }
   }
   
 @status = ParseArgs;=  sub ReinitProcess {
 $nparam   = @status;      print "Reinitializing a process\n";
   }
   #--------------------------- Entry point: --------------------------
   
   #  Parse the parameters
   #  If command parsing failed, then print usage:
   
   my @params   = ParseArgs;
   my $nparam   = @params;
   
 if($nparam == 0) {  if($nparam == 0) {
     Usage;      Usage;
       exit -1;
   }
   #
   #   Next, ensure we are running as EID root.
   #
   if ($EUID != 0) {
       die "ENOPRIV - No privilege for requested operation"
   }
   
   
   #   Based on the operation requested invoke the appropriate function:
   
   my $operation = shift @params;
   
   if($operation eq "push") {  # push tablename filename host
       my $tablename = shift @params;
       my $tablefile = shift @params;
       my $host      = shift @params;
       PushFile($tablename, $tablefile, $host);
   
   } elsif($operation eq "reinit") { # reinit processname host.
       my $process   = shift @params;
       my $host      = shift @params;
       ReinitProcess($process, $host);
   }
   else {
       Usage;
 }  }
   exit 0;
   
 =head1 NAME  =head1 NAME
     lonManage - Command line utility for remote management of lonCAPA      lonManage - Command line utility for remote management of lonCAPA
Line 140  Usage: Line 305  Usage:
   
 =head1 PREREQUISITES  =head1 PREREQUISITES
   
   =item strict
 =item Getopt::Long  =item Getopt::Long
   =item English
   
 =head1  CATEGORIES  =head1  CATEGORIES
     Command line utility      Command line utility
Removed from v.1.3  
changed lines
  Added in v.1.8

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