loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.40, 2002/05/11 21:17:39	version 1.43, 2002/10/30 14:50:04
Line 75 $DEBUG = 0; # Set to 1 for annoyingly	Line 75 $DEBUG = 0; # Set to 1 for annoyingly
$SIG{QUIT}=\&catchexception;	$SIG{QUIT}=\&catchexception;
$SIG{__DIE__}=\&catchexception;	$SIG{__DIE__}=\&catchexception;

# ------------------------------------------- Read access.conf and loncapa.conf	# ---------------------------------- Read loncapa_apache.conf and loncapa.conf
&status("Read access.conf and loncapa.conf");	&status("Read loncapa.conf and loncapa_apache.conf");
my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf');	my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
my %perlvar=%{$perlvarref};	my %perlvar=%{$perlvarref};
undef $perlvarref;	undef $perlvarref;

Line 1037 sub status {	Line 1037 sub status {
my $now=time;	my $now=time;
my $local=localtime($now);	my $local=localtime($now);
$status=$local.': '.$what;	$status=$local.': '.$what;
	$0='lonc: '.$what.' '.$local;
}	}