version 1.6, 2002/02/05 01:49:49
|
version 1.7, 2002/02/06 19:48:27
|
Line 58 else {
|
Line 58 else {
|
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==1) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include conf/srm.conf'."\n"; |
print OUT 'Include conf/srm.conf'."\n"; |
close OUT; |
close OUT; |
Line 67 else {
|
Line 67 else {
|
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==1) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include conf/access.conf'."\n"; |
print OUT 'Include conf/access.conf'."\n"; |
close OUT; |
close OUT; |
Line 81 else {
|
Line 81 else {
|
} |
} |
} |
} |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==1) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
close OUT; |
close OUT; |
Line 98 Apache</note>
|
Line 98 Apache</note>
|
</dependencies> |
</dependencies> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
print <<END |
print <<END; |
WARNING! access.conf is not currently present on your system. |
WARNING! access.conf is not currently present on your system. |
This is either due to |
This is either due to |
* you are missing the Apache software package, |
* you are missing the Apache software package, |
Line 114 my $flag=0;
|
Line 114 my $flag=0;
|
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==1) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
close OUT; |
close OUT; |
Line 130 Apache</note>
|
Line 130 Apache</note>
|
</dependencies> |
</dependencies> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
print <<END |
print <<END; |
WARNING! srm.conf is not currently present on your system. |
WARNING! srm.conf is not currently present on your system. |
This is either due to |
This is either due to |
* you are missing the Apache software package, |
* you are missing the Apache software package, |
Line 146 my $flag=0;
|
Line 146 my $flag=0;
|
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==1) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
close OUT; |
close OUT; |