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

Diff for /loncom/Attic/lonManage between versions 1.20 and 1.22

version 1.20, 2003/11/03 10:24:49 version 1.22, 2003/11/03 10:48:18
Line 73  my %hostshash;   # Host table as a host Line 73  my %hostshash;   # Host table as a host
   
 my $MyHost=""; # Host name to use as me.  my $MyHost=""; # Host name to use as me.
 my $ForeignHostTab=""; # Name of foreign hosts table.  my $ForeignHostTab=""; # Name of foreign hosts table.
   my $ServerPort; # Port used to connect to lond.
   
 #  #
 #   prints out utility's command usage info.  #   prints out utility's command usage info.
Line 110  USAGE Line 111  USAGE
   
   
 }  }
   
   sub MakeLondConnection {
       my $host = shift;
   
       my $Connection = LondConnection->new($host, $ServerPort);
       return return $Connection;
   }
   
   sub NegotiateStartup {
       my $connection = shift;
   
       return "ok";
   }
   sub PerformTransaction {
       my $connection  = shift;
       my $command     = shift;
   
       return "ok";
   }
 #  #
 #   Lifted from lonnet.pm - and we need to figure out a way to get it back in.  # Performs a transaction direct to a remote lond.
 #   Performas a transaction with lond via the lonc proxy server.  
 #   Parameter:  #   Parameter:
 #      cmd  - The text of the request.  #      cmd  - The text of the request.
 #      host - The host to which the request ultimately goes.  #      host - The host to which the request ultimately goes.
Line 121  USAGE Line 140  USAGE
 #      lond/lonc etc.  #      lond/lonc etc.
 #  #
 sub subreply {  sub subreply {
     my ($cmd,$server)=@_;      my $cmd = shift;
     my $peerfile="$perlvar{'lonSockDir'}/$server";      my $host = shift;
     my $client=IO::Socket::UNIX->new(Peer    =>"$peerfile",  
                                      Type    => SOCK_STREAM,  
                                      Timeout => 10)      my $connection  = MakeLondConnection($host);
        or return "con_lost";      if ($connection eq undef) {
     print $client "$cmd\n";   return "Connect Failed";
     my $answer=<$client>;      }
     if (!$answer) { $answer="con_lost"; }      my $reply = NegotiateStartup($connection);
     chomp($answer);      if($reply != "ok") {
     return $answer;   return "connection negotiation failed";
       }
       my $reply =  PerformTransaction($connection, $cmd);
       return $reply;
   
   
        #    my ($cmd,$server)=@_;
        #    my $peerfile="$perlvar{'lonSockDir'}/$server";
        #    my $client=IO::Socket::UNIX->new(Peer    =>"$peerfile",
        #                                     Type    => SOCK_STREAM,
        #                                     Timeout => 10)
        #       or return "con_lost";
        #    print $client "$cmd\n";
        #    my $answer=<$client>;
        #    if (!$answer) { $answer="con_lost"; }
        #    chomp($answer);
        #    return $answer;
 }  }
 #   >>> BUGBUG <<<   #   >>> BUGBUG <<< 
 #  #
Line 242  sub ReadConfig { Line 277  sub ReadConfig {
     "$perlvar{'lonTabDir'}/hosts.tab");      "$perlvar{'lonTabDir'}/hosts.tab");
  %hostshash     = %{$hoststab};   %hostshash     = %{$hoststab};
  $MyHost        = $perlvar{lonHostID}; # Set hostname from vars.   $MyHost        = $perlvar{lonHostID}; # Set hostname from vars.
    $ServerPort    = $perlvar{londPort};
     } else {      } else {
  my $hoststab   = LondConnection::read_hosts($ForeignHostTab);   my $hoststab   = LondConnection::read_hosts($ForeignHostTab);
  %hostshash     = %{$hoststab};   %hostshash     = %{$hoststab};
  $perlvar{londPort}   = 5663;   $ServerPort    = 5663;
  $perlvar{lonSockDir} = "/home/httpd/sockets";  
     }      }
   
 }  }
Removed from v.1.20  
changed lines
  Added in v.1.22

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