[BACK]Return to lonauth.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonauth.pm between versions 1.115 and 1.118

version 1.115, 2011/06/12 14:18:09 version 1.118, 2011/08/17 03:52:36
Line 415  sub handler { Line 415  sub handler {
  }   }
     }      }
   
     if ($r->dir_config("lonBalancer") eq 'yes') {      my ($is_balancer,$otherserver) = 
         my $otherserver = &Apache::lonnet::spareserver(30000,undef,1,$form{'udom'});          &Apache::lonnet::check_loadbalancing($form{'uname'},$form{'udom'});
   
       if ($is_balancer) {
         if (!$otherserver) {           if (!$otherserver) { 
             $otherserver = &Apache::lonnet::choose_server($form{'udom'});              ($otherserver) = &Apache::lonnet::choose_server($form{'udom'});
         }          }
         if ($otherserver) {          if ($otherserver) {
             &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,              &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,
Line 430  sub handler { Line 432  sub handler {
         return OK;          return OK;
     } else {      } else {
         if (!&check_can_host($r,\%form,$authhost)) {          if (!&check_can_host($r,\%form,$authhost)) {
             my $otherserver = &Apache::lonnet::choose_server($form{'udom'});              my ($otherserver) = &Apache::lonnet::choose_server($form{'udom'});
             if ($otherserver) {              if ($otherserver) {
                 &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,                  &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,
                          \%form);                           \%form);
Line 458  sub handler { Line 460  sub handler {
         if ((($userloadpercent>100.0)||($loadpercent>100.0))) {          if ((($userloadpercent>100.0)||($loadpercent>100.0))) {
             my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent,1,$form{'udom'});              my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent,1,$form{'udom'});
             if (!$unloaded) {              if (!$unloaded) {
                 $unloaded = &Apache::lonnet::choose_server($form{'udom'});                  ($unloaded) = &Apache::lonnet::choose_server($form{'udom'});
             }              }
             if ($unloaded) {              if ($unloaded) {
                 &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',                  &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',
Removed from v.1.115  
changed lines
  Added in v.1.118

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