version 1.2, 2002/02/02 12:57:10
|
version 1.6, 2002/02/05 01:49:49
|
Line 36 http://www.lon-capa.org/
|
Line 36 http://www.lon-capa.org/
|
<!-- defined. --> |
<!-- defined. --> |
|
|
<piml> |
<piml> |
<targetroot>/abc/</targetroot> |
<targetroot>/</targetroot> |
<specialnotices> |
<specialnotices> |
<specialnotice> |
<specialnotice> |
</specialnotice> |
</specialnotice> |
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 70 Apache</note>
|
Line 98 Apache</note>
|
</dependencies> |
</dependencies> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
print <<; |
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 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 96 Apache</note>
|
Line 130 Apache</note>
|
</dependencies> |
</dependencies> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
print <<; |
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 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> |