--- loncom/build/loncaparestoreconfigurations 2000/11/02 17:26:21 1.5 +++ loncom/build/loncaparestoreconfigurations 2000/11/02 17:36:56 1.7 @@ -22,6 +22,7 @@ my @generic_conf_files=( ); my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire"); +my %pvar; foreach (@special_conf_files) { if (/^\/etc\/httpd\/conf\/access.conf$/) { my $template=`/bin/cat /etc/httpd/conf/access.conf`; @@ -38,7 +39,7 @@ foreach (@special_conf_files) { close OUT; } if (/^\/etc\/smb.conf$/) { - my $template=`/bin/cat /etc/httpd/conf/access.conf`; + my $template=`/bin/cat /etc/smb.conf`; foreach my $psv (@perlsetvars) { $template=~s/\{\{\{\{\[(.*?)\]\}\}\}\}/$pvar{$1}/ge; }