loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.216, 2002/05/08 17:40:03	version 1.217, 2002/05/11 20:42:00
Line 2779 sub goodbye {	Line 2779 sub goodbye {
}	}

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

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

while (my $configline=<$config>) {	while (my $configline=<$config>) {
if ($configline =~ /PerlSetVar/) {	if ($configline =~ /^[^\#]*PerlSetVar/) {
	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
	chomp($varvalue);
	$perlvar{$varname}=$varvalue;
	}
	}
	}
	{
	my $config=Apache::File->new("/etc/httpd/conf/loncapa.conf");

	while (my $configline=<$config>) {
	if ($configline =~ /^[^\#]*PerlSetVar/) {
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
chomp($varvalue);	chomp($varvalue);
$perlvar{$varname}=$varvalue;	$perlvar{$varname}=$varvalue;