[BACK]Return to loncaparestoreconfigurations CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/loncaparestoreconfigurations between versions 1.10 and 1.11

version 1.10, 2001/06/01 16:00:44 version 1.11, 2001/11/27 23:23:47
Line 25 Line 25
 my $suffix=".rpmsave";  my $suffix=".rpmsave";
 my $suffixpragma="";  my $suffixpragma="";
 if ($ARGV[0] eq 'suffix') {  if ($ARGV[0] eq 'suffix') {
     $suffix=$ARGV[1] if $suffix=~/^[\.\w]+$/;      $suffix=$ARGV[1] if $ARGV[1]=~/^[\.\w]+$/;
 }  }
 elsif ($ARGV[0] eq 'lasttimestamp') {  elsif ($ARGV[0] eq 'lasttimestamp') {
     $suffixpragma="lasttimestamp";      $suffixpragma="lasttimestamp";
Line 56  foreach (@special_conf_files) { Line 56  foreach (@special_conf_files) {
     $suffix=getsuffix('/etc/httpd/conf/access.conf');      $suffix=getsuffix('/etc/httpd/conf/access.conf');
  }   }
  my $template=`/bin/cat /etc/httpd/conf/access.conf`;   my $template=`/bin/cat /etc/httpd/conf/access.conf`;
  my $rpmsave=`/bin/cat /etc/httpd/conf/access.conf$suffix`;   my $lpmlnew=`/bin/cat /etc/httpd/conf/access.conf$suffix`;
  `/bin/mv /etc/httpd/conf/access.conf /etc/httpd/conf/access.conf.template`;  # `/bin/mv /etc/httpd/conf/access.conf /etc/httpd/conf/access.conf.template`;
  foreach my $psv (@perlsetvars) {   foreach my $psv (@perlsetvars) {
     $rpmsave=~/\nPerlSetVar\s+$psv\s+(\S+)/;      $template=~/\nPerlSetVar\s+$psv\s+(\S+)/;
     my $pval=$1;      my $pval=$1;
     $template=~s/(\nPerlSetVar\s+$psv\s+)\S+/$1$pval/;      $lpmlnew=~s/(\nPerlSetVar\s+$psv\s+)\S+/$1$pval/;
     $pvar{$psv}=$pval;      $pvar{$psv}=$pval;
  }   }
  open OUT,">/etc/httpd/conf/access.conf";   open OUT,">/etc/httpd/conf/access.conf$suffix";
  print OUT $template;   print OUT $lpmlnew;
  close OUT;   close OUT;
     }      }
     if (/^\/etc\/smb.conf$/) {      if (/^\/etc\/smb.conf$/) {
  if ($suffixpragma eq 'lasttimestamp') {   if ($suffixpragma eq 'lasttimestamp') {
     $suffix=getsuffix('/etc/smb.conf');      $suffix=getsuffix('/etc/smb.conf');
  }   }
  my $template=`/bin/cat /etc/smb.conf`;   my $template=`/bin/cat /etc/smb.conf$suffix`;
  foreach my $psv (@perlsetvars) {   foreach my $psv (@perlsetvars) {
     $template=~s/\{\{\{\{\[(.*?)\]\}\}\}\}/$pvar{$1}/ge;      $template=~s/\{\{\{\{\[(.*?)\]\}\}\}\}/$pvar{$1}/ge;
  }   }
  open OUT,">/etc/smb.conf";   open OUT,">/etc/smb.conf$suffix";
  print OUT $template;   print OUT $template;
  close OUT;   close OUT;
     }      }
 }  }
   
   exit; # Just because this is only about restoring configuration to
         # new files
   
 foreach (@generic_conf_files) {  foreach (@generic_conf_files) {
     my $file=$_;      my $file=$_;
     if ($suffixpragma eq 'lasttimestamp') {      if ($suffixpragma eq 'lasttimestamp') {
Removed from v.1.10  
changed lines
  Added in v.1.11

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>