![[BACK]](/icons/back.gif){kind=icon}
Return to loncaparestoreconfigurations CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build|
Return to loncaparestoreconfigurations CVS log | Up to [LON-CAPA] / loncom / build |
| version 1.6, 2000/11/02 17:30:45 | version 1.7, 2000/11/02 17:36:56 |
|---|---|
| Line 39 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; |
| } | } |