loncom/build/weblayer_test/test_weblayer.pl - diff

Return to test_weblayer.pl CVS log

Up to [LON-CAPA] / loncom / build / weblayer_test

version 1.1, 2002/03/04 06:48:09	version 1.2, 2002/05/08 18:47:31
Line 63 while ($configline=<CONFIG>) {	Line 63 while ($configline=<CONFIG>) {
}	}
}	}
close(CONFIG);	close(CONFIG);
	if ($perlvar{'lonRole'} ne 'library') {
	print(<<END);
	Skipping web layer test...
	(lonRole is defined as $perlvar{'lonRole'}
	and the web layer test only runs on library servers.)
	END
	exit(0);
	}

my $hostid=$perlvar{'lonHostID'};	my $hostid=$perlvar{'lonHostID'};
my $domain=$perlvar{'lonDefDomain'};	my $domain=$perlvar{'lonDefDomain'};