loncom/build/weblayer_test/test_weblayer.pl - diff

Return to test_weblayer.pl CVS log

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

version 1.2, 2002/05/08 18:47:31	version 1.4, 2003/02/03 18:03:52
Line 34 test_weblayer.pl - Test the LON-CAPA web	Line 34 test_weblayer.pl - Test the LON-CAPA web
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# YEAR=2002	# YEAR=2002
# 3/4 Scott Harrison
#	#
###	###

Line 56 with 'ZXQTEST' is created. A test login	Line 55 with 'ZXQTEST' is created. A test login
my %perlvar;	my %perlvar;
open (CONFIG,"/etc/httpd/conf/access.conf") \|\| die "Can't read access.conf";	open (CONFIG,"/etc/httpd/conf/access.conf") \|\| die "Can't read access.conf";
while ($configline=<CONFIG>) {	while ($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") \|\| die "Can't read loncapa.conf";
	while ($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;
Line 109 print "** ERROR ** problems encounte	Line 117 print "** ERROR ** problems encounte

=head1 AUTHOR	=head1 AUTHOR

Scott Harrison, harris41@msu.edu

=cut	=cut