--- loncom/build/system_dependencies/sqltest.pl	2002/05/10 01:32:38	1.3
+++ loncom/build/system_dependencies/sqltest.pl	2002/05/16 19:03:56	1.5
@@ -6,7 +6,8 @@
 #
 # YEAR=2001
 # 9/25,9/30 Scott Harrison
-#
+# YEAR=2002
+# 5/10,5/11 Scott Harrison
 
 ###############################################################################
 ##                                                                           ##
@@ -46,7 +47,27 @@ my %perlvar;
 open (CONFIG,"/etc/httpd/conf/access.conf") || 
     (print "Can't read access.conf\n" && exit);
 while (my $configline=<CONFIG>) {
-    if ($configline =~ /PerlSetVar/) {
+    if ($configline =~ /^[^\#]*PerlSetVar/) {
+	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
+        chomp($varvalue);
+        $perlvar{$varname}=$varvalue;
+    }
+}
+close(CONFIG);
+open (CONFIG,"/etc/httpd/conf/loncapa.conf") || 
+    (print "Can't read loncapa.conf\n" && exit);
+while (my $configline=<CONFIG>) {
+    if ($configline =~ /^[^\#]*PerlSetVar/) {
+	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
+        chomp($varvalue);
+        $perlvar{$varname}=$varvalue;
+    }
+}
+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;