--- loncom/build/loncaparestoreconfigurations	2000/10/26 00:09:58	1.1
+++ loncom/build/loncaparestoreconfigurations	2000/10/26 00:21:27	1.2
@@ -22,7 +22,18 @@ my @generic_conf_files=(
 
 foreach (@special_conf_files) {
     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");
+	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;
     }
 }