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

[matthew]

matthew		Thu Mar 24 17:57:56 2005 EDT

  Modified files:              
    /loncom	loncnew 
  Log:
  POD fixups.  It no longer throws errors, at least.
  
  
Index: loncom/loncnew
diff -u loncom/loncnew:1.68 loncom/loncnew:1.69
--- loncom/loncnew:1.68	Mon Mar 14 20:12:20 2005
+++ loncom/loncnew	Thu Mar 24 17:57:56 2005
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.68 2005/03/15 01:12:20 albertel Exp $
+# $Id: loncnew,v 1.69 2005/03/24 22:57:56 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -152,6 +152,7 @@
 Makes an entry into the permanent log file.
 
 =cut
+
 sub LogPerm {
     my $message=shift;
     my $execdir=$perlvar{'lonDaemons'};
@@ -271,6 +272,7 @@
  and as what we return in a SIGUSR1
 
 =cut
+
 sub ShowStatus {
     my $state = shift;
     my $now = time;
@@ -281,13 +283,14 @@
 
 =pod
 
-=head 2 SocketTimeout
+=head2 SocketTimeout
 
     Called when an action on the socket times out.  The socket is 
    destroyed and any active transaction is failed.
 
 
 =cut
+
 sub SocketTimeout {
     my $Socket = shift;
     Log("WARNING", "A socket timeout was detected");
@@ -686,12 +689,14 @@
 }
 
 =pod
+
 =head1  EmptyQueue
 
   Fails all items in the work queue with con_lost.
   Note that each item in the work queue is a transaction.
 
 =cut
+
 sub EmptyQueue {
     $ConnectionRetriesLeft--;	# Counts as connection failure too.
     while($WorkQueue->Count()) {
@@ -707,6 +712,7 @@
 Close all connections open on lond prior to exit e.g.
 
 =cut
+
 sub CloseAllLondConnections {
     foreach my $Socket (keys %ActiveConnections) {
       if(exists($ActiveTransactions{$Socket})) {
@@ -715,7 +721,6 @@
       KillSocket($Socket);
     }
 }
-=cut
 
 =pod
 
@@ -737,8 +742,8 @@
 
 nonzero if we are allowed to create a new connection.
 
-
 =cut
+
 sub KillSocket {
     my $Socket = shift;
 
@@ -1151,6 +1156,7 @@
 =pod
     
 =cut
+
 sub QueueDelayed {
     Debug(3,"QueueDelayed called");
 
@@ -1559,6 +1565,7 @@
 
 We also use this to reset the retries count in order to allow the
 client to retry connections with a previously dead server.
+
 =cut
 
 sub ChildStatus {
@@ -1617,6 +1624,8 @@
 
 }
 
+=pod
+
 =head2 ToggleDebug
 
 This sub toggles trace debugging on and off.
@@ -1632,6 +1641,8 @@
 
 }
 
+=pod
+
 =head2 ChildProcess
 
 This sub implements a child process for a single lonc daemon.
@@ -2167,6 +2178,7 @@
 	unlink("$execdir/logs/lonc.pid");
     }
 }
+
 =pod
 
 =head1 Terminate