#!/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 $_`;
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>