version 1.9, 2002/09/12 22:47:28
|
version 1.10, 2003/02/03 03:57:39
|
Line 146 use DBI; # Needed to interface with t
|
Line 146 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; |
Line 289 END
|
Line 289 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(); |