loncom/build/system_dependencies/sqltest.pl - diff

Return to sqltest.pl CVS log

Up to [LON-CAPA] / loncom / build / system_dependencies

version 1.1, 2001/09/30 20:57:58	version 1.2, 2001/09/30 21:00:43
Line 38 use DBI;	Line 38 use DBI;

# ---------------------------- Print MIME Content-type and other initialization	# ---------------------------- Print MIME Content-type and other initialization
$\|=1;	$\|=1;
print 'Content-type: text/plain'."\n\n";	print 'Probing for SQL metadata database'."\n\n";

# --- Make sure that database can be accessed and that this is a library server	# --- Make sure that database can be accessed and that this is a library server
# library server test	# library server test
Line 71 my $dbh;	Line 71 my $dbh;
}	}
%perlvar=(); # undefine it	%perlvar=(); # undefine it

	print "SQL metadata database is found and is accessible\n";

# --------------------------------------------------- Close database connection	# --------------------------------------------------- Close database connection
$dbh->disconnect();	$dbh->disconnect();