--- loncom/loncron 2002/07/25 18:24:27 1.31 +++ loncom/loncron 2002/09/09 13:59:16 1.33 @@ -56,8 +56,7 @@ ENDERROUT # ================================================================ Main Program # --------------------------------- Read loncapa_apache.conf and loncapa.conf -my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf', - 'loncapa.conf'); +my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf'); %perlvar=%{$perlvarref}; undef $perlvarref; delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed @@ -264,7 +263,7 @@ while ($fname=<$perlvar{'lonDaemons'}/tm $cleaned++; unlink("$fname"); } else { - if ($since>100*$perlvar{'lonExpire'}) { + if ($since>365*$perlvar{'lonExpire'}) { $cleaned++; unlink("$fname"); } else { $old++; }