loncom/build/system_dependencies/sqltest.pl - diff

Return to sqltest.pl CVS log

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

version 1.8, 2002/08/07 18:43:42	version 1.9, 2002/09/12 22:47:28
Line 153 my %perlvar;	Line 153 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 302 $dbh->disconnect();	Line 299 $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/) {