#!/usr/bin/perl

# loncaparestoreconfigurations

# This tool helps in updating a system.  It takes a list of
# .rpmsave files and restores them.

# Scott Harrison, 10/25/2000

use strict;

my @special_conf_files=(
			"/etc/httpd/conf/access.conf"
			);

my @generic_conf_files=(
			"/home/httpd/lonTabs/hosts.tab",
			"/home/httpd/lonTabs/spare.tab",
			"/etc/krb.conf",
			"/etc/ntp.conf"
			);

foreach (@special_conf_files) {
    if (/^/etc/httpd/conf/access.conf$/) {
	my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
    }
}

foreach (@generic_conf_files) {
    `/bin/mv $_ $_.template`;
    `/bin/mv $_.rpmsave $_`;
}