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

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

version 1.11, 2001/11/27 23:23:47 version 1.12, 2002/03/03 00:21:23
Line 36  use strict; Line 36  use strict;
   
 my @special_conf_files=(  my @special_conf_files=(
  "/etc/httpd/conf/access.conf",   "/etc/httpd/conf/access.conf",
  "/etc/smb.conf"   "/etc/smb.conf",
    "/etc/samba/smb.conf"
  );   );
   
 my @generic_conf_files=(  my @generic_conf_files=(
Line 59  foreach (@special_conf_files) { Line 60  foreach (@special_conf_files) {
  my $lpmlnew=`/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) {
     $template=~/\nPerlSetVar\s+$psv\s+(\S+)/;      if ($template=~/\nPerlSetVar\s+$psv\s+(\S+)/) {
     my $pval=$1;   my $pval=$1;
     $lpmlnew=~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$suffix";   open OUT,">/etc/httpd/conf/access.conf$suffix";
  print OUT $lpmlnew;   print OUT $lpmlnew;
  close OUT;   close OUT;
     }      }
     if (/^\/etc\/smb.conf$/) {      if (/^\/etc\/smb.conf$/ and -e "/etc/smb.conf$suffix") {
  if ($suffixpragma eq 'lasttimestamp') {   if ($suffixpragma eq 'lasttimestamp') {
     $suffix=getsuffix('/etc/smb.conf');      $suffix=getsuffix('/etc/smb.conf');
  }   }
Line 80  foreach (@special_conf_files) { Line 82  foreach (@special_conf_files) {
  print OUT $template;   print OUT $template;
  close OUT;   close OUT;
     }      }
       if (/^\/etc\/samba\/smb.conf$/ and -e "/etc/samba/smb.conf$suffix") {
    if ($suffixpragma eq 'lasttimestamp') {
       $suffix=getsuffix('/etc/samba/smb.conf');
    }
    my $template=`/bin/cat /etc/samba/smb.conf$suffix`;
    foreach my $psv (@perlsetvars) {
       $template=~s/\{\{\{\{\[(.*?)\]\}\}\}\}/$pvar{$1}/ge;
    }
    open OUT,">/etc/samba/smb.conf$suffix";
    print OUT $template;
    close OUT;
       }
 }  }
   
 exit; # Just because this is only about restoring configuration to  exit; # Just because this is only about restoring configuration to
Removed from v.1.11  
changed lines
  Added in v.1.12

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