loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.31, 2002/07/25 18:24:27	version 1.33, 2002/09/09 13:59:16
Line 56 ENDERROUT	Line 56 ENDERROUT
# ================================================================ Main Program	# ================================================================ Main Program

# --------------------------------- 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.conf');
'loncapa.conf');
%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
Line 264 while ($fname=<$perlvar{'lonDaemons'}/tm	Line 263 while ($fname=<$perlvar{'lonDaemons'}/tm
$cleaned++;	$cleaned++;
unlink("$fname");	unlink("$fname");
} else {	} else {
if ($since>100*$perlvar{'lonExpire'}) {	if ($since>365*$perlvar{'lonExpire'}) {
$cleaned++;	$cleaned++;
unlink("$fname");	unlink("$fname");
} else { $old++; }	} else { $old++; }