--- loncom/build/system_dependencies/sqltest.pl	2002/08/06 23:18:25	1.6
+++ loncom/build/system_dependencies/sqltest.pl	2002/08/06 23:38:27	1.7
@@ -2,7 +2,7 @@
 
 # sqltest.pl - script to test MySQL database connectivity for LON-CAPA
 #
-# $Id: sqltest.pl,v 1.6 2002/08/06 23:18:25 harris41 Exp $
+# $Id: sqltest.pl,v 1.7 2002/08/06 23:38:27 harris41 Exp $
 #
 ###
 
@@ -278,8 +278,10 @@ $dbh->disconnect();
 # --------- configuration_scan: look for PerlSetVar and store in hash variable.
 sub configuration_scan {
     my ($storagehashref,$filename)=@_;
-    open(CONFIG,$filename) || 
-	(print "Can't read $filename\n" && exit);
+    # deprecated support for access.conf
+    open(CONFIG,$filename) or
+	($filename=~/access\.conf$/ and return) or
+	(print("Can't read $filename\n") && exit(1));
     while (my $configline=<CONFIG>) {
 	if ($configline =~ /^[^\#]*PerlSetVar/) {
 	    my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);