[BACK]Return to loncron CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.27 and 1.29

version 1.27, 2002/05/17 16:19:24 version 1.29, 2002/05/27 19:21:59
Line 58  ENDERROUT Line 58  ENDERROUT
 # --------------------------------- Read loncapa_apache.conf and loncapa.conf  # --------------------------------- Read loncapa_apache.conf and loncapa.conf
 my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf',  my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf',
                                                  'loncapa.conf');                                                   'loncapa.conf');
 my %perlvar=%{$perlvarref};  %perlvar=%{$perlvarref};
 undef $perlvarref;  undef $perlvarref;
 delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed  delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
 delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed  delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
Line 239  if ($psproc>250) { $notices++; } Line 239  if ($psproc>250) { $notices++; }
 # --------------------------------------------------------------- clean out tmp  # --------------------------------------------------------------- clean out tmp
 print $fh '<hr><a name="tmp"><h2>Temporary Files</h2>';  print $fh '<hr><a name="tmp"><h2>Temporary Files</h2>';
 $cleaned=0;  $cleaned=0;
   $old=0;
 while ($fname=<$perlvar{'lonDaemons'}/tmp/*>) {  while ($fname=<$perlvar{'lonDaemons'}/tmp/*>) {
                           my ($dev,$ino,$mode,$nlink,                            my ($dev,$ino,$mode,$nlink,
                               $uid,$gid,$rdev,$size,                                $uid,$gid,$rdev,$size,
Line 247  while ($fname=<$perlvar{'lonDaemons'}/tm Line 248  while ($fname=<$perlvar{'lonDaemons'}/tm
                           $now=time;                            $now=time;
                           $since=$now-$mtime;                            $since=$now-$mtime;
                           if ($since>$perlvar{'lonExpire'}) {                            if ($since>$perlvar{'lonExpire'}) {
                               $cleaned++;                                $line='';
                               unlink("$fname");                                if (open(PROBE,$fname)) {
     $line=<PROBE>;
                                     close(PROBE);
         }
         unless ($line=~/^CHECKOUTTOKEN\&/) {
                                    $cleaned++;
                                    unlink("$fname");
         } else {
     if ($since>100*$perlvar{'lonExpire'}) {
                                        $cleaned++;
                                        unlink("$fname");
    } else { $old++; }
                                 }
                           }                            }
           
 }  }
 print $fh "Cleaned up ".$cleaned." files.";  print $fh "Cleaned up ".$cleaned." files (".$old." old checkout tokens).";
   
 # ------------------------------------------------------------ clean out lonIDs  # ------------------------------------------------------------ clean out lonIDs
 print $fh '<hr><a name="tokens"><h2>Session Tokens</h2>';  print $fh '<hr><a name="tokens"><h2>Session Tokens</h2>';
Removed from v.1.27  
changed lines
  Added in v.1.29

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