version 1.2, 2002/02/02 12:57:10
|
version 1.4, 2002/02/02 14:45:40
|
Line 54 unless (-e "<TARGET />") {
|
Line 54 unless (-e "<TARGET />") {
|
'software package'; |
'software package'; |
} |
} |
else { |
else { |
|
$flag=0; |
|
open IN, "<<TARGET />"; |
|
while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } } |
|
close IN; |
|
unless ($flag==0) { |
open OUT,">><TARGET />"; |
open OUT,">><TARGET />"; |
print OUT 'Include srm.conf'."\n"; |
print OUT 'Include conf/srm.conf'."\n"; |
print OUT 'Include access.conf'."\n"; |
|
close OUT; |
close OUT; |
|
} |
|
$flag=0; |
|
open IN, "<<TARGET />"; |
|
while (<IN>) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } } |
|
close IN; |
|
unless ($flag==0) { |
|
open OUT,">><TARGET />"; |
|
print OUT 'Include conf/access.conf'."\n"; |
|
close OUT; |
|
} |
|
$flag=0; |
|
my $eflag=0; |
|
open IN, "<<TARGET />"; |
|
while (<IN>) { |
|
if (/^\s*Include\s+conf\/loncapa.conf/) { |
|
$flag=1; |
|
} |
|
} |
|
close IN; |
|
unless ($flag==0) { |
|
open OUT,">><TARGET />"; |
|
print OUT 'Include conf/loncapa.conf'."\n"; |
|
close OUT; |
|
} |
} |
} |
</perlscript> |
</perlscript> |
</file> |
</file> |
Line 82 For backwards compatibility,
|
Line 110 For backwards compatibility,
|
<TARGET /> is being generated. |
<TARGET /> is being generated. |
END |
END |
} |
} |
|
my $flag=0; |
|
open IN, "<<TARGET />"; |
|
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
|
close IN; |
|
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> |
</file> |
</file> |
<file> |
<file> |
Line 108 For backwards compatibility,
|
Line 142 For backwards compatibility,
|
<TARGET /> is being generated. |
<TARGET /> is being generated. |
END |
END |
} |
} |
|
my $flag=0; |
|
open IN, "<<TARGET />"; |
|
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
|
close IN; |
|
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> |
</file> |
</file> |
</files> |
</files> |