loncom/build/loncaparestoreconfigurations - diff

Return to loncaparestoreconfigurations CVS log

Up to [LON-CAPA] / loncom / build

version 1.1, 2000/10/26 00:09:58	version 1.2, 2000/10/26 00:21:27
Line 22 my @generic_conf_files=(	Line 22 my @generic_conf_files=(

foreach (@special_conf_files) {	foreach (@special_conf_files) {
if (/^/etc/httpd/conf/access.conf$/) {	if (/^/etc/httpd/conf/access.conf$/) {
	my $template=`/bin/cat /etc/httpd/conf/access.conf`;
	my $rpmsave=`/bin/cat /etc/httpd/conf/access.conf.rpmsave`;
	`/bin/mv /etc/httpd/conf/access.conf /etc/httpd/conf/access.conf.template`;
my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");	my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
	foreach my $psv (@perlsetvars) {
	$rpmsave=~/\nPerlSetVar\s+$psv\s+(\S+)/;
	my $pval=$1;
	$template=~s/(\nPerlSetVar\s+$psv\s+)\S+/$1$pval/;
	}
	open OUT,">/etc/httpd/conf/access.conf";
	print OUT $template;
	close OUT;
}	}
}	}