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.3, 2000/10/26 00:28:43
  Line 21  my @generic_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");
+ 	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;
      }
  }
  foreach (@generic_conf_files) {
-     `/bin/mv $_ $_.template`;
+     if (-e "$_.rpmsave") {
-     `/bin/mv $_.rpmsave $_`;
+ 	`/bin/mv $_ $_.template`;
+ 	`/bin/mv $_.rpmsave $_`;
+     }
  }