loncom/build/system_dependencies/sqltest.pl - diff

Return to sqltest.pl CVS log

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

version 1.4, 2002/05/11 21:33:30	version 1.5, 2002/05/16 19:03:56
Line 64 while (my $configline=<CONFIG>) {	Line 64 while (my $configline=<CONFIG>) {
}	}
}	}
close(CONFIG);	close(CONFIG);
	open (CONFIG,"/etc/httpd/conf/loncapa_apache.conf") \|\|
	(print "Can't read loncapa_apache.conf\n" && exit);
	while (my $configline=<CONFIG>) {
	if ($configline =~ /^[^\#]*PerlSetVar/) {
	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
	chomp($varvalue);
	$perlvar{$varname}=$varvalue;
	}
	}
	close(CONFIG);
unless ($perlvar{'lonRole'} eq 'library') {	unless ($perlvar{'lonRole'} eq 'library') {
print "SQL testing can only be run on a library server. Skipping test..\n";	print "SQL testing can only be run on a library server. Skipping test..\n";
exit 0;	exit 0;