albertel Thu May 8 18:07:48 2003 EDT
Modified files:
/loncom lond
Log:
- typo
Index: loncom/lond
diff -u loncom/lond:1.128 loncom/lond:1.129
--- loncom/lond:1.128 Thu May 8 17:35:48 2003
+++ loncom/lond Thu May 8 18:07:48 2003
@@ -2,7 +2,7 @@
# The LearningOnline Network
# lond "LON Daemon" Server (port "LOND" 5663)
#
-# $Id: lond,v 1.128 2003/05/08 21:35:48 albertel Exp $
+# $Id: lond,v 1.129 2003/05/08 22:07:48 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -73,7 +73,7 @@
my $status='';
my $lastlog='';
-my $VERSION='$Revision: 1.128 $'; #' stupid emacs
+my $VERSION='$Revision: 1.129 $'; #' stupid emacs
my $remoteVERSION;
my $currenthostid;
my $currentdomainid;
@@ -2081,14 +2081,14 @@
while ($filename=readdir(LONIDS)) {
if ($filename eq '.' || $filename eq '..') {next;}
my ($atime)=(stat($perlvar{'lonIDsDir'}.'/'.$filename))[8];
- if ($curtime-$atime < 3600) { $num_users++; }
+ if ($curtime-$atime < 3600) { $numusers++; }
}
closedir(LONIDS);
}
my $userloadpercent=0;
my $maxuserload=$perlvar{'lonUserLoadLim'};
if ($maxuserload) {
- $userloadpercent=100*$num_users/$maxuserload;
+ $userloadpercent=100*$numusers/$maxuserload;
}
return $userloadpercent;
}