[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

[albertel]

albertel		Thu May  8 18:16:23 2003 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  - adding configuration of user Load Lim
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.24 doc/loncapafiles/updatequery.piml:1.25
--- doc/loncapafiles/updatequery.piml:1.24	Mon Feb  3 13:03:51 2003
+++ doc/loncapafiles/updatequery.piml	Thu May  8 18:16:23 2003
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.24 2003/02/03 18:03:51 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.25 2003/05/08 22:16:23 albertel Exp $ -->
 
 <!--
 
@@ -363,6 +363,9 @@
     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
        $perlvar{'lonLoadLim'}='2.00';
     }
+    unless ($perlvar{'lonUserLoadLim'} and $perlvar{'lonUserLoadLim'}!~/\{\[\[\[\[/) {
+       $perlvar{'lonUserLoadLim'}='0';
+    }
     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
        $perlvar{'lonExpire'}='86400';
     }
@@ -409,6 +412,9 @@
     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
        $perlvar{'lonLoadLim'}='2.00';
     }
+    unless ($perlvar{'lonUserLoadLim'} and $perlvar{'lonUserLoadLim'}!~/\{\[\[\[\[/) {
+       $perlvar{'lonUserLoadLim'}='0';
+    }
     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
        $perlvar{'lonExpire'}='86400';
     }
@@ -474,7 +480,8 @@
 5) Role: $perlvar{'lonRole'}
 6) Cache Expiration Time: $perlvar{'lonExpire'}
 7) Server Load: $perlvar{'lonLoadLim'}
-8) Everything is correct up above
+8) User Load: $perlvar{'lonUserLoadLim'}
+9) Everything is correct up above
 END
 my $hbug=-1;
 my $dbug=-1;
@@ -501,7 +508,7 @@
 }
 
   print(&lt;&lt;END);
-ENTER A CHOICE OF 1-7 TO CHANGE, otherwise ENTER 8:
+ENTER A CHOICE OF 1-8 TO CHANGE, otherwise ENTER 9:
 END
 my $choice=&lt;&gt;;
 chomp($choice);
@@ -577,6 +584,16 @@
     $perlvar{'lonLoadLim'}=$choice2;
   }
   elsif ($choice==8) {
+  print(&lt;&lt;END);
+8) User Load: $perlvar{'lonUserLoadLim'}
+Numer of users that can login before machine is 'overloaded'
+ENTER NEW VALUE (integer value, 0 means ther is no limit):
+END
+    my $choice2=&lt;&gt;;
+    chomp($choice2);
+    $perlvar{'lonUserLoadLim'}=$choice2;
+  }
+  elsif ($choice==9) {
     $flag=1;
   }
   else {