--- loncom/build/system_dependencies/sqltest.pl	2002/08/07 18:43:42	1.8
+++ loncom/build/system_dependencies/sqltest.pl	2002/09/12 22:47:28	1.9
@@ -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.9 2002/09/12 22:47:28 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.9 $ =~ /(\d+)\.(\d+)/);
 
 print('Running sqltest.pl, version '.$VERSION.'.'."\n");
 print('(Test interoperability of the MySQL server for use by LON-CAPA.)'."\n");
@@ -153,9 +153,6 @@ 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');
@@ -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/) {