Return to loncaparestoreconfigurations CVS log

Up to [LON-CAPA] / loncom / build

a script to restore machine/institution specific values on a LON-CAPA
system

    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: }