Diff for /loncom/build/system_dependencies/sqltest.pl between versions 1.8 and 1.11

version 1.8, 2002/08/07 18:43:42 version 1.11, 2003/02/03 18:03:52
Line 17  B<sqltest.pl> - Test interoperability of Line 17  B<sqltest.pl> - Test interoperability of
 # Written to help LON-CAPA (The LearningOnline Network with CAPA)  # Written to help LON-CAPA (The LearningOnline Network with CAPA)
 #  #
 # YEAR=2001  # YEAR=2001
 # 9/25,9/30 Scott Harrison  
 # YEAR=2002  # YEAR=2002
 # 5/10,5/11 Scott Harrison  
 # 8/6/2002 and onwards, Scott Harrison, sharrison@users.sourceforge.net  
   
 =pod  =pod
   
Line 113  Ratings: 1=horrible 2=poor 3=fair 4=good Line 110  Ratings: 1=horrible 2=poor 3=fair 4=good
   
 =head1 AUTHOR  =head1 AUTHOR
   
 Scott Harrison, sharrison@users.sourceforge.net, 2001, 2002  
   
 This software is distributed under the General Public License,  This software is distributed under the General Public License,
 version 2, June 1991 (which is the same terms as LON-CAPA).  version 2, June 1991 (which is the same terms as LON-CAPA).
   
Line 146  use DBI;    # Needed to interface with t Line 141  use DBI;    # Needed to interface with t
   
 # ============================================================ Initializations.  # ============================================================ Initializations.
 $|=1;  $|=1;
 print 'Probing for SQL metadata database'."\n\n";  print 'Probing for SQL loncapa database'."\n\n";
   
 # ============================================== Read in current configuration.  # ============================================== Read in current configuration.
 my %perlvar;  my %perlvar;
   
 my $webconfdir='/etc/httpd/conf/';  my $webconfdir='/etc/httpd/conf/';
   
 # NOTE: DEPRECATED scanning of access.conf  
 &configuration_scan(\%perlvar,$webconfdir.'access.conf');  
   
 # Scanning the standard loncapa configuration files.  # Scanning the standard loncapa configuration files.
 &configuration_scan(\%perlvar,$webconfdir.'loncapa.conf');  &configuration_scan(\%perlvar,$webconfdir.'loncapa.conf');
 &configuration_scan(\%perlvar,$webconfdir.'loncapa_apache.conf');  &configuration_scan(\%perlvar,$webconfdir.'loncapa_apache.conf');
Line 292  END Line 284  END
 }  }
 %perlvar=(); # clear memory  %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.  # ================================================== Close database connection.
 $dbh->disconnect();  $dbh->disconnect();
Line 302  $dbh->disconnect(); Line 294  $dbh->disconnect();
 # --------- configuration_scan: look for PerlSetVar and store in hash variable.  # --------- configuration_scan: look for PerlSetVar and store in hash variable.
 sub configuration_scan {  sub configuration_scan {
     my ($storagehashref,$filename)=@_;      my ($storagehashref,$filename)=@_;
     # deprecated support for access.conf  
     open(CONFIG,$filename) or      open(CONFIG,$filename) or
  ($filename=~/access\.conf$/ and return) or  
  (print("Can't read $filename\n") && exit(1));   (print("Can't read $filename\n") && exit(1));
     while (my $configline=<CONFIG>) {      while (my $configline=<CONFIG>) {
  if ($configline =~ /^[^\#]*PerlSetVar/) {   if ($configline =~ /^[^\#]*PerlSetVar/) {

Removed from v.1.8  
changed lines
  Added in v.1.11


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>