Diff for /loncom/lond between versions 1.132.2.2 and 1.133

version 1.132.2.2, 2003/10/08 20:31:28 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__} = \&catchcexception;      $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);
     }      }

Removed from v.1.132.2.2  
changed lines
  Added in v.1.133


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