version 1.3, 2002/02/02 13:08:42
|
version 1.4, 2002/02/02 14:45:40
|
Line 56 unless (-e "<TARGET />") {
|
Line 56 unless (-e "<TARGET />") {
|
else { |
else { |
$flag=0; |
$flag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+srm.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==0) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include srm.conf'."\n"; |
print OUT 'Include conf/srm.conf'."\n"; |
close OUT; |
close OUT; |
} |
} |
$flag=0; |
$flag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+access.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==0) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include access.conf'."\n"; |
print OUT 'Include conf/access.conf'."\n"; |
close OUT; |
close OUT; |
} |
} |
$flag=0; |
$flag=0; |
my $eflag=0; |
my $eflag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { |
while (<IN>) { |
if (/^\s*Include\s+loncapa.conf/) { |
if (/^\s*Include\s+conf\/loncapa.conf/) { |
$flag=1; |
$flag=1; |
} |
} |
} |
} |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==0) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include loncapa.conf'."\n"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
close OUT; |
close OUT; |
} |
} |
} |
} |
Line 112 END
|
Line 112 END
|
} |
} |
my $flag=0; |
my $flag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==0) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include loncapa.conf'."\n"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
close OUT; |
close OUT; |
} |
} |
</perlscript> |
</perlscript> |
Line 144 END
|
Line 144 END
|
} |
} |
my $flag=0; |
my $flag=0; |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
while (<IN>) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } } |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
close IN; |
close IN; |
unless ($flag==0) { |
unless ($flag==0) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include loncapa.conf'."\n"; |
print OUT 'Include conf/loncapa.conf'."\n"; |
close OUT; |
close OUT; |
} |
} |
</perlscript> |
</perlscript> |