--- loncom/build/system_dependencies/sqltest.pl	2002/05/11 21:33:30	1.4
+++ loncom/build/system_dependencies/sqltest.pl	2002/05/16 19:03:56	1.5
@@ -64,6 +64,16 @@ while (my $configline=<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') {
     print "SQL testing can only be run on a library server. Skipping test..\n";
     exit 0;