loncom/build/system_dependencies/sqltest.pl - diff

Return to sqltest.pl CVS log

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

version 1.3, 2002/05/10 01:32:38	version 1.4, 2002/05/11 21:33:30
Line 6	Line 6
#	#
# YEAR=2001	# YEAR=2001
# 9/25,9/30 Scott Harrison	# 9/25,9/30 Scott Harrison
#	# YEAR=2002
	# 5/10,5/11 Scott Harrison

###############################################################################	###############################################################################
## ##	## ##
Line 46 my %perlvar;	Line 47 my %perlvar;
open (CONFIG,"/etc/httpd/conf/access.conf") \|\|	open (CONFIG,"/etc/httpd/conf/access.conf") \|\|
(print "Can't read access.conf\n" && exit);	(print "Can't read access.conf\n" && exit);
while (my $configline=<CONFIG>) {	while (my $configline=<CONFIG>) {
if ($configline =~ /PerlSetVar/) {	if ($configline =~ /^[^\#]*PerlSetVar/) {
	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
	chomp($varvalue);
	$perlvar{$varname}=$varvalue;
	}
	}
	close(CONFIG);
	open (CONFIG,"/etc/httpd/conf/loncapa.conf") \|\|
	(print "Can't read loncapa.conf\n" && exit);
	while (my $configline=<CONFIG>) {
	if ($configline =~ /^[^\#]*PerlSetVar/) {
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
chomp($varvalue);	chomp($varvalue);
$perlvar{$varname}=$varvalue;	$perlvar{$varname}=$varvalue;