loncom/build/system_dependencies/sqltest.pl - diff

Return to sqltest.pl CVS log

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

version 1.6, 2002/08/06 23:18:25	version 1.7, 2002/08/06 23:38:27
Line 278 $dbh->disconnect();	Line 278 $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)=@_;
open(CONFIG,$filename) \|\|	# deprecated support for access.conf
(print "Can't read $filename\n" && exit);	open(CONFIG,$filename) or
	($filename=~/access\.conf$/ and return) or
	(print("Can't read $filename\n") && exit(1));
while (my $configline=<CONFIG>) {	while (my $configline=<CONFIG>) {
if ($configline =~ /^[^\#]*PerlSetVar/) {	if ($configline =~ /^[^\#]*PerlSetVar/) {
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);