[LON-CAPA-cvs] cvs: loncom / loncnew

[foxr]

foxr		Wed Sep 22 06:46:06 2004 EDT

  Modified files:              
    /loncom	loncnew 
  Log:
  Remove policy decision that unix domain sockets for lonnet clients must
  be connected to an IO event that dispatches to NewClient.  This is only
  appropriate for the child process.  Come the revolution, when the parent 
  is taking over truly idle lonnet client sockets, things will be different.
  
  
Index: loncom/loncnew
diff -u loncom/loncnew:1.58 loncom/loncnew:1.59
--- loncom/loncnew:1.58	Wed Sep 22 06:34:44 2004
+++ loncom/loncnew	Wed Sep 22 06:46:06 2004
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.58 2004/09/22 10:34:44 foxr Exp $
+# $Id: loncnew,v 1.59 2004/09/22 10:46:06 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1466,10 +1466,7 @@
 					    Type   => SOCK_STREAM)) {
 	die "Failed to create a lonc listner socket";
     }
-    Event->io(cb     => \&NewClient,
-	      poll   => 'r',
-	      desc   => 'Lonc listener Unix Socket',
-	      fd     => $socket);
+    return $socket;
 }
 
 #
@@ -1597,7 +1594,11 @@
 		  data     => "INT");
 
     
-    SetupLoncListener();
+    my $socket =  SetupLoncListener();
+    Event->io(cb   => \&NewClient,
+	      poll => 'r',
+	      desc => 'Lonc Listener Unix Socket',
+	      fd   => $socket);
     
     $Event::Debuglevel = $DebugLevel;