--- loncom/Attic/lonManage	2003/08/12 10:55:42	1.5
+++ loncom/Attic/lonManage	2003/08/18 10:18:21	1.8
@@ -3,9 +3,9 @@
 #
 #  lonManage supports remote management of nodes in a LonCAPA cluster.
 #
-#  $Id: lonManage,v 1.5 2003/08/12 10:55:42 foxr Exp $
+#  $Id: lonManage,v 1.8 2003/08/18 10:18:21 foxr Exp $
 #
-# $Id: lonManage,v 1.5 2003/08/12 10:55:42 foxr Exp $
+# $Id: lonManage,v 1.8 2003/08/18 10:18:21 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,6 +50,20 @@
 #    not the IP address of the host.
 #
 #  $Log: lonManage,v $
+#  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)
 #
@@ -63,6 +77,8 @@
 #  Add usage and skeleton documentation.
 #
 #
+use strict;			# Because it's good practice.
+use English;			# Cause I like meaningful names.
 use Getopt::Long;
 
 sub Usage  {
@@ -77,7 +93,7 @@ sub Usage  {
     lonManage  --reinit=lonc host
            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
           it had received a HUP signal.
 
@@ -113,7 +129,7 @@ USAGE
 
 sub ParseArgs {
     my $pushing   = '';
-    my $reiniting = '';
+    my $reinitting = '';
 
     if(!GetOptions('push=s'    => \$pushing,
 	           'reinit=s'  => \$reinitting)) {
@@ -132,7 +148,6 @@ sub ParseArgs {
         # --push takes in addition a table, and a host:
         #
 	if($paramcount != 2) {
-	    print "Bad count $paramcount\n";
 	    return ();		# Invalid parameter count.
 	}
 	if($command ne '') {
@@ -149,7 +164,6 @@ sub ParseArgs {
 	# --reinit takes in addition just a host name
 
 	if($paramcount != 1) {
-	    print "Bad count $paramcount\n";
 	    return ();
 	}
 	if($command ne '') {
@@ -170,23 +184,97 @@ sub ParseArgs {
     
     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";
+    }
+}
+
+sub ReinitProcess {
+    print "Reinitializing a process\n";
+}
+#--------------------------- Entry point: --------------------------
+
+#  Parse the parameters
+#  If command parsing failed, then print usage:
 
-@status = ParseArgs;
-$nparam   = @status;
+my @params   = ParseArgs;
+my $nparam   = @params;
 
 if($nparam == 0) {
     Usage;
     exit -1;
 }
-
-print "---- params ---\n";
-for($i = 0; $i < $nparam; $i++) {
-    print "Param[$i] = $status[$i]\n";
+#
+#   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
@@ -217,7 +305,9 @@ Usage:
 
 =head1 PREREQUISITES
 
+=item strict
 =item Getopt::Long
+=item English
 
 =head1  CATEGORIES
     Command line utility