loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.132.2.3, 2003/10/08 20:39:42	version 1.133, 2003/08/11 21:15:26
Line 286 sub checkchildren {	Line 286 sub checkchildren {
}	}
}	}
$SIG{ALRM} = 'DEFAULT';	$SIG{ALRM} = 'DEFAULT';
$SIG{__DIE__} = \&catchexception;	$SIG{__DIE__} = \&cathcexception;
}	}

# --------------------------------------------------------------------- Logging	# --------------------------------------------------------------------- Logging
Line 1556 sub make_new_child {	Line 1556 sub make_new_child {
while (($key,$value) = each(%hash)) {	while (($key,$value) = each(%hash)) {
my ($descr,$lasttime)=split(/\:/,$value);	my ($descr,$lasttime)=split(/\:/,$value);
if ($lasttime<$since) { next; }	if ($lasttime<$since) { next; }
if ($regexp eq '.') {	if ($description eq '.') {
$qresult.=$key.'='.$descr.'&';	$qresult.=$key.'='.$descr.'&';
} else {	} else {
my $unescapeVal = &unescape($descr);	my $unescapeVal = &unescape($descr);
Line 2080 sub userload {	Line 2080 sub userload {
my $curtime=time;	my $curtime=time;
while ($filename=readdir(LONIDS)) {	while ($filename=readdir(LONIDS)) {
if ($filename eq '.' \|\| $filename eq '..') {next;}	if ($filename eq '.' \|\| $filename eq '..') {next;}
my ($mtime)=(stat($perlvar{'lonIDsDir'}.'/'.$filename))[9];	my ($atime)=(stat($perlvar{'lonIDsDir'}.'/'.$filename))[8];
if ($curtime-$mtime < 3600) { $numusers++; }	if ($curtime-$atime < 3600) { $numusers++; }
}	}
closedir(LONIDS);	closedir(LONIDS);
}	}