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

Diff for /loncom/Attic/lonManage between versions 1.2 and 1.4

version 1.2, 2003/08/12 09:58:49 version 1.4, 2003/08/12 10:40:44
Line 50 Line 50
 #    not the IP address of the host.  #    not the IP address of the host.
 #  #
 #  $Log$  #  $Log$
   #  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  #  Revision 1.2  2003/08/12 09:58:49  foxr
 #  Add usage and skeleton documentation.  #  Add usage and skeleton documentation.
 #  #
 #  #
   use Getopt::Long;
   
 sub Usage {} {  sub Usage  {
     print "Usage:";      print "Usage:";
     print <<USAGE;      print <<USAGE;
     lonManage  -push   <tablename>  newfile  host      lonManage  --push=<tablename>  newfile  host
         Push <tablename> to the lonTabs directory.  Note that          Push <tablename> to the lonTabs directory.  Note that
         <tablename> must be one of:          <tablename> must be one of:
            hosts  (hosts.tab)             hosts  (hosts.tab)
            domain (domain.tab)             domain (domain.tab)
   
     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 79  USAGE Line 86  USAGE
 }  }
   
 #  #
   #  Use Getopt::Long to parse the parameters of the program.
   #
   #  Return value is a list consisting of:
   #    A 'command' which is one of:
   #       push   - table push requested.
   #       reinit - reinit requested.
   #   Additional parameters as follows:
   #       for push: Tablename, hostname
   #       for reinit: Appname  hostname
   #
   #   This function does not validation of the parameters of push and
   #   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.
   #
   
   sub ParseArgs {
       my $pushing   = '';
       my $reiniting = '';
       if(!GetOptions('push=s'    => \$pushing,
              'reinit=s'  => \$reinitting)) {
    return ();
       }
   
       #  Require exactly   one of --push and --reinit
   
       my $command = '';
       my $commandarg = '';
       if($pushing ne '') {
    if($command ne '') {
       return ();
    } else {
       $command    = 'push';
       $commandarg = $pushing;
    }
       }
       if ($reinitting ne '') {
    if($command ne '') {
       return ();
    } else {
       $command    = 'reinit';
       $commandarg = $reinitting; 
    }
       }
   
       return ($command, $commandarg);
   }
   
   #
 #    If command parsing failed, then print usage:  #    If command parsing failed, then print usage:
   
 if(0) {  @status = ParseArgs;
   $nparam   = @status;
   
   if($nparam == 0) {
     Usage;      Usage;
       exit -1;
 }  }
   print "Will do a $status[0] : $status[1]\n";
   
   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 92  if(0) { Line 161  if(0) {
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 Usage:  Usage:
     B<lonManage  -push   <tablename>  newfile  host>      B<lonManage  --push=<tablename>  newfile  host>
         Push <tablename> to the lonTabs directory.  Note that          Push <tablename> to the lonTabs directory.  Note that
         <tablename> must be one of:          <tablename> must be one of:
            hosts  (hosts.tab)             hosts  (hosts.tab)
            domain (domain.tab)             domain (domain.tab)
   
     B<lonManage  -reinit lonc host>      B<lonManage  --reinit=lonc host>
            Sends a HUP signal to the remote systems's lond.             Sends a HUP signal to the remote systems's lond.
   
     B<lonmanage  -reinit lond host>      B<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 113  Usage: Line 182  Usage:
   
 =head1 PREREQUISITES  =head1 PREREQUISITES
   
   =item Getopt::Long
   
 =head1  CATEGORIES  =head1  CATEGORIES
     Command line utility      Command line utility
   
Removed from v.1.2  
changed lines
  Added in v.1.4

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