Return to loncaparestoreconfigurations CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/loncaparestoreconfigurations, revision 1.1

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) {
        !            24:     if (/^/etc/httpd/conf/access.conf$/) {
        !            25: 	my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
        !            26:     }
        !            27: }
        !            28: 
        !            29: foreach (@generic_conf_files) {
        !            30:     `/bin/mv $_ $_.template`;
        !            31:     `/bin/mv $_.rpmsave $_`;
        !            32: }