version 1.8, 2002/04/14 20:34:32
|
version 1.9, 2002/05/12 19:02:18
|
Line 74 else {
|
Line 74 else {
|
print OUT 'Include conf/access.conf'."\n"; |
print OUT 'Include conf/access.conf'."\n"; |
close OUT; |
close OUT; |
} |
} |
$flag=0; |
|
my $eflag=0; |
my $eflag=0; |
|
$flag=0; |
|
open IN, "<<TARGET />"; |
|
while (<IN>) { |
|
if (/^\s*Include\s+conf\/loncapa_apache.conf/) { |
|
$flag=1; |
|
} |
|
} |
|
close IN; |
|
unless ($flag==1) { |
|
open OUT,">><TARGET />"; |
|
print OUT 'Include conf/loncapa_apache.conf'."\n"; |
|
close OUT; |
|
} |
|
$flag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { |
while (<IN>) { |
if (/^\s*Include\s+conf\/loncapa.conf/) { |
if (/^\s*Include\s+conf\/loncapa.conf/) { |
Line 114 END
|
Line 127 END
|
} |
} |
my $flag=0; |
my $flag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
|
while (<IN>) { if (/^\s*Include\s+conf\/loncapa_apache.conf/) |
|
{ $flag=1; } } |
|
close IN; |
|
unless ($flag==1) { |
|
open OUT,">><TARGET />"; |
|
print OUT 'Include conf/loncapa_apache.conf'."\n"; |
|
close OUT; |
|
$flag=0; |
|
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==1) { |
unless ($flag==1) { |
Line 146 END
|
Line 168 END
|
} |
} |
my $flag=0; |
my $flag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
|
while (<IN>) { if (/^\s*Include\s+conf\/loncapa_apache.conf/) |
|
{ $flag=1; } } |
|
close IN; |
|
unless ($flag==1) { |
|
open OUT,">><TARGET />"; |
|
print OUT 'Include conf/loncapa_apache.conf'."\n"; |
|
close OUT; |
|
$flag=0; |
|
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==1) { |
unless ($flag==1) { |