loncom/build/loncaparestoreconfigurations - diff

Return to loncaparestoreconfigurations CVS log

Up to [LON-CAPA] / loncom / build

version 1.5, 2000/11/02 17:26:21	version 1.7, 2000/11/02 17:36:56
Line 22 my @generic_conf_files=(	Line 22 my @generic_conf_files=(
);	);

my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");	my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
	my %pvar;
foreach (@special_conf_files) {	foreach (@special_conf_files) {
if (/^\/etc\/httpd\/conf\/access.conf$/) {	if (/^\/etc\/httpd\/conf\/access.conf$/) {
my $template=`/bin/cat /etc/httpd/conf/access.conf`;	my $template=`/bin/cat /etc/httpd/conf/access.conf`;
Line 38 foreach (@special_conf_files) {	Line 39 foreach (@special_conf_files) {
close OUT;	close OUT;
}	}
if (/^\/etc\/smb.conf$/) {	if (/^\/etc\/smb.conf$/) {
my $template=`/bin/cat /etc/httpd/conf/access.conf`;	my $template=`/bin/cat /etc/smb.conf`;
foreach my $psv (@perlsetvars) {	foreach my $psv (@perlsetvars) {
$template=~s/\{\{\{\{\[(.*?)\]\}\}\}\}/$pvar{$1}/ge;	$template=~s/\{\{\{\{\[(.*?)\]\}\}\}\}/$pvar{$1}/ge;
}	}