Diff for /doc/loncapafiles/updatequery.piml between versions 1.24 and 1.25

version 1.24, 2003/02/03 18:03:51 version 1.25, 2003/05/08 22:16:23
Line 363  my %perlvar; Line 363  my %perlvar;
     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {      unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
        $perlvar{'lonLoadLim'}='2.00';         $perlvar{'lonLoadLim'}='2.00';
     }      }
       unless ($perlvar{'lonUserLoadLim'} and $perlvar{'lonUserLoadLim'}!~/\{\[\[\[\[/) {
          $perlvar{'lonUserLoadLim'}='0';
       }
     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {      unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
        $perlvar{'lonExpire'}='86400';         $perlvar{'lonExpire'}='86400';
     }      }
Line 409  my %perlvar; Line 412  my %perlvar;
     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {      unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
        $perlvar{'lonLoadLim'}='2.00';         $perlvar{'lonLoadLim'}='2.00';
     }      }
       unless ($perlvar{'lonUserLoadLim'} and $perlvar{'lonUserLoadLim'}!~/\{\[\[\[\[/) {
          $perlvar{'lonUserLoadLim'}='0';
       }
     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {      unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
        $perlvar{'lonExpire'}='86400';         $perlvar{'lonExpire'}='86400';
     }      }
Line 474  This is now the current configuration of Line 480  This is now the current configuration of
 5) Role: $perlvar{'lonRole'}  5) Role: $perlvar{'lonRole'}
 6) Cache Expiration Time: $perlvar{'lonExpire'}  6) Cache Expiration Time: $perlvar{'lonExpire'}
 7) Server Load: $perlvar{'lonLoadLim'}  7) Server Load: $perlvar{'lonLoadLim'}
 8) Everything is correct up above  8) User Load: $perlvar{'lonUserLoadLim'}
   9) Everything is correct up above
 END  END
 my $hbug=-1;  my $hbug=-1;
 my $dbug=-1;  my $dbug=-1;
Line 501  if ($dbug) { Line 508  if ($dbug) {
 }  }
   
   print(<<END);    print(<<END);
 ENTER A CHOICE OF 1-7 TO CHANGE, otherwise ENTER 8:  ENTER A CHOICE OF 1-8 TO CHANGE, otherwise ENTER 9:
 END  END
 my $choice=<>;  my $choice=<>;
 chomp($choice);  chomp($choice);
Line 577  END Line 584  END
     $perlvar{'lonLoadLim'}=$choice2;      $perlvar{'lonLoadLim'}=$choice2;
   }    }
   elsif ($choice==8) {    elsif ($choice==8) {
     print(<<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=<>;
       chomp($choice2);
       $perlvar{'lonUserLoadLim'}=$choice2;
     }
     elsif ($choice==9) {
     $flag=1;      $flag=1;
   }    }
   else {    else {

Removed from v.1.24  
changed lines
  Added in v.1.25


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