--- loncom/build/system_dependencies/sqltest.pl	2002/08/07 18:43:42	1.8
+++ loncom/build/system_dependencies/sqltest.pl	2003/02/03 03:57:39	1.10
@@ -2,7 +2,7 @@
 
 # sqltest.pl - script to test MySQL database connectivity for LON-CAPA
 #
-# $Id: sqltest.pl,v 1.8 2002/08/07 18:43:42 harris41 Exp $
+# $Id: sqltest.pl,v 1.10 2003/02/03 03:57:39 harris41 Exp $
 #
 ###
 
@@ -135,7 +135,7 @@ Foundation, Inc., 59 Temple Place, Suite
 =cut
 
 # =================================== Process version information of this file.
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 1.10 $ =~ /(\d+)\.(\d+)/);
 
 print('Running sqltest.pl, version '.$VERSION.'.'."\n");
 print('(Test interoperability of the MySQL server for use by LON-CAPA.)'."\n");
@@ -146,16 +146,13 @@ use DBI;    # Needed to interface with t
 
 # ============================================================ Initializations.
 $|=1;
-print 'Probing for SQL metadata database'."\n\n";
+print 'Probing for SQL loncapa database'."\n\n";
 
 # ============================================== Read in current configuration.
 my %perlvar;
 
 my $webconfdir='/etc/httpd/conf/';
 
-# NOTE: DEPRECATED scanning of access.conf
-&configuration_scan(\%perlvar,$webconfdir.'access.conf');
-
 # Scanning the standard loncapa configuration files.
 &configuration_scan(\%perlvar,$webconfdir.'loncapa.conf');
 &configuration_scan(\%perlvar,$webconfdir.'loncapa_apache.conf');
@@ -292,7 +289,7 @@ END
 }
 %perlvar=(); # clear memory
 
-print('SQL metadata database is found and is accessible'."\n");
+print('SQL loncapa database is found and is accessible'."\n");
 
 # ================================================== Close database connection.
 $dbh->disconnect();
@@ -302,9 +299,7 @@ $dbh->disconnect();
 # --------- configuration_scan: look for PerlSetVar and store in hash variable.
 sub configuration_scan {
     my ($storagehashref,$filename)=@_;
-    # 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/) {