loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.282, 2002/09/16 19:42:10
+version 1.283, 2002/09/16 20:09:47
  Line 348  sub delenv {
      return 'ok';
  }
+ # ------------------------------------------ Fight off request when overloaded
+ sub overloaderror {
+     my ($r,$checkserver)=@_;
+     unless ($checkserver) { $checkserver=$perlvar{'lonHostID'}; }
+     my $loadavg;
+     if ($checkserver eq $perlvar{'lonHostID'}) {
+        my $loadfile=Apache::File->new('/proc/loadavg');
+        $loadavg=<$loadfile>;
+        $loadavg =~ s/\s.*//g;
+     } else {
+        $loadavg=&reply('load',$checkserver);
+     }
+     my $overload=$loadavg-$perlvar{'lonLoadLim'};
+     if ($overload>0) {
+ 	$r->err_headers_out->{'Retry-After'}=$overload*30;
+         $r->log_error('Overload of '.$overload.' on '.$checkserver);
+         return 413;
+     }
+     return '';
+ }
  # ------------------------------ Find server with least workload from spare.tab
  sub spareserver {