--- loncom/Attic/lonc 2002/05/11 21:17:39 1.40 +++ loncom/Attic/lonc 2002/10/30 14:50:04 1.43 @@ -5,7 +5,7 @@ # provides persistent TCP connections to the other servers in the network # through multiplexed domain sockets # -# $Id: lonc,v 1.40 2002/05/11 21:17:39 harris41 Exp $ +# $Id: lonc,v 1.43 2002/10/30 14:50:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -75,9 +75,9 @@ $DEBUG = 0; # Set to 1 for annoyingly $SIG{QUIT}=\&catchexception; $SIG{__DIE__}=\&catchexception; -# ------------------------------------------- Read access.conf and loncapa.conf -&status("Read access.conf and loncapa.conf"); -my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf'); +# ---------------------------------- Read loncapa_apache.conf and loncapa.conf +&status("Read loncapa.conf and loncapa_apache.conf"); +my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf'); my %perlvar=%{$perlvarref}; undef $perlvarref; @@ -1037,6 +1037,7 @@ sub status { my $now=time; my $local=localtime($now); $status=$local.': '.$what; + $0='lonc: '.$what.' '.$local; }