loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.368, 2003/05/04 07:38:32
+version 1.369, 2003/05/08 21:35:48
  Line 347  sub delenv {
      return 'ok';
  }
+ # ------------------------------------------ Find out current server userload
+ # there is a copy in lond
+ sub userload {
+     my $numusers=0;
+     {
+ 	opendir(LONIDS,$perlvar{'lonIDsDir'});
+ 	my $filename;
+ 	my $curtime=time;
+ 	while ($filename=readdir(LONIDS)) {
+ 	    if ($filename eq '.' || $filename eq '..') {next;}
+ 	    my ($atime)=(stat($perlvar{'lonIDsDir'}.'/'.$filename))[8];
+ 	    if ($curtime-$atime < 3600) { $num_users++; }
+ 	}
+ 	closedir(LONIDS);
+     }
+     my $userloadpercent=0;
+     my $maxuserload=$perlvar{'lonUserLoadLim'};
+     if ($maxuserload) {
+ 	$userloadpercent=100*$num_users/$maxuserload;
+     }
+     return $userloadpercent;
+ }
  # ------------------------------------------ Fight off request when overloaded
  sub overloaderror {