loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.226, 2002/05/18 18:54:29	version 1.228, 2002/05/18 19:59:07
Line 2805 sub goodbye {	Line 2805 sub goodbye {
}	}

BEGIN {	BEGIN {
# ---------------------------------- Read loncapa_apache.conf and loncapa.conf	# ----------------------------------- Read loncapa.conf and loncapa_apache.conf
# (eventually access.conf will become deprecated)
unless ($readit) {	unless ($readit) {

{	{
my $config=Apache::File->new("/etc/httpd/conf/loncapa_apache.conf");	my $config=Apache::File->new("/etc/httpd/conf/loncapa.conf");

while (my $configline=<$config>) {	while (my $configline=<$config>) {
if ($configline =~ /^[^\#]*PerlSetVar/) {	if ($configline =~ /^[^\#]*PerlSetVar/) {
Line 2821 BEGIN {	Line 2819 BEGIN {
}	}
}	}
{	{
my $config=Apache::File->new("/etc/httpd/conf/loncapa.conf");	my $config=Apache::File->new("/etc/httpd/conf/loncapa_apache.conf");

while (my $configline=<$config>) {	while (my $configline=<$config>) {
if ($configline =~ /^[^\#]*PerlSetVar/) {	if ($configline =~ /^[^\#]*PerlSetVar/) {