Return to loncaparestoreconfigurations CVS log

Up to [LON-CAPA] / loncom / build

adding in restoration info for /etc/smb.conf

    1: #!/usr/bin/perl
    2: 
    3: # loncaparestoreconfigurations
    4: 
    5: # This tool helps in updating a system.  It takes a list of
    6: # .rpmsave files and restores them.
    7: 
    8: # Scott Harrison, 10/25/2000
    9: 
   10: use strict;
   11: 
   12: my @special_conf_files=(
   13: 			"/etc/httpd/conf/access.conf"
   14: 			);
   15: 
   16: my @generic_conf_files=(
   17: 			"/home/httpd/lonTabs/hosts.tab",
   18: 			"/home/httpd/lonTabs/spare.tab",
   19: 			"/etc/krb.conf",
   20: 			"/etc/ntp.conf",
   21: 			"/etc/smb.conf"
   22: 			);
   23: 
   24: foreach (@special_conf_files) {
   25:     if (/^\/etc\/httpd\/conf\/access.conf$/) {
   26: 	my $template=`/bin/cat /etc/httpd/conf/access.conf`;
   27: 	my $rpmsave=`/bin/cat /etc/httpd/conf/access.conf.rpmsave`;
   28: 	`/bin/mv /etc/httpd/conf/access.conf /etc/httpd/conf/access.conf.template`;
   29: 	my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
   30: 	foreach my $psv (@perlsetvars) {
   31: 	    $rpmsave=~/\nPerlSetVar\s+$psv\s+(\S+)/;
   32: 	    my $pval=$1;
   33: 	    $template=~s/(\nPerlSetVar\s+$psv\s+)\S+/$1$pval/;
   34: 	}
   35: 	open OUT,">/etc/httpd/conf/access.conf";
   36: 	print OUT $template;
   37: 	close OUT;
   38:     }
   39: }
   40: 
   41: foreach (@generic_conf_files) {
   42:     if (-e "$_.rpmsave") {
   43: 	`/bin/mv $_ $_.template`;
   44: 	`/bin/mv $_.rpmsave $_`;
   45:     }
   46: }