Return to loncaparestoreconfigurations CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/loncaparestoreconfigurations, revision 1.3

1.1       harris41    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: 			);
                     22: 
                     23: foreach (@special_conf_files) {
1.3     ! harris41   24:     if (/^\/etc\/httpd\/conf\/access.conf$/) {
1.2       harris41   25: 	my $template=`/bin/cat /etc/httpd/conf/access.conf`;
                     26: 	my $rpmsave=`/bin/cat /etc/httpd/conf/access.conf.rpmsave`;
                     27: 	`/bin/mv /etc/httpd/conf/access.conf /etc/httpd/conf/access.conf.template`;
1.1       harris41   28: 	my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
1.2       harris41   29: 	foreach my $psv (@perlsetvars) {
                     30: 	    $rpmsave=~/\nPerlSetVar\s+$psv\s+(\S+)/;
                     31: 	    my $pval=$1;
                     32: 	    $template=~s/(\nPerlSetVar\s+$psv\s+)\S+/$1$pval/;
                     33: 	}
                     34: 	open OUT,">/etc/httpd/conf/access.conf";
                     35: 	print OUT $template;
                     36: 	close OUT;
1.1       harris41   37:     }
                     38: }
                     39: 
                     40: foreach (@generic_conf_files) {
1.3     ! harris41   41:     if (-e "$_.rpmsave") {
        !            42: 	`/bin/mv $_ $_.template`;
        !            43: 	`/bin/mv $_.rpmsave $_`;
        !            44:     }
1.1       harris41   45: }