--- loncom/build/system_dependencies/sqltest.pl 2002/09/12 22:47:28 1.9 +++ 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.9 2002/09/12 22:47:28 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.9 $ =~ /(\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,7 +146,7 @@ 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; @@ -289,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();