version 1.12, 2003/01/07 19:01:58
|
version 1.13, 2003/01/13 22:01:32
|
Line 54 http://www.lon-capa.org/
|
Line 54 http://www.lon-capa.org/
|
# Generated from doc/loncapafiles/webserver.piml |
# Generated from doc/loncapafiles/webserver.piml |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
print 'ERROR! httpd.conf should exist! Are you missing the Apache '. |
print 'ERROR! httpd.conf should exist! Are you missing the Apache '. |
'software package'; |
'software package?'; |
exit(1); |
exit(1); |
} |
} |
else { |
else { |
Line 94 else {
|
Line 94 else {
|
} |
} |
} |
} |
</perlscript> |
</perlscript> |
|
</file> |
|
<file> |
|
<target dist='default'>/etc/httpd/conf/httpd.conf</target> |
|
<note>This is always expected for any version of Apache</note> |
|
<dependencies dist='default'> |
|
/etc/httpd/conf/httpd.conf |
|
</dependencies> |
|
<perlscript mode='fg'> |
|
# Generated from doc/loncapafiles/webserver.piml |
|
# Trying to check for overlapping DocumentRoot or ScriptAlias definitions. |
|
unless (-e "<TARGET />") { |
|
print '**** ERROR **** httpd.conf should exist! Are you missing the Apache '. |
|
'software package?'; |
|
exit(1); |
|
} |
|
else { |
|
# Append loncapa_apache.conf inclusion to httpd.conf if not present. |
|
$scriptalias_flag=0; |
|
$documentroot_flag=0; |
|
my $scriptalias; |
|
my $documentroot; |
|
open(IN,'<<TARGET />'); |
|
while (<IN>) { |
|
if (m!^\s*ScriptAlias\s+/cgi-bin/\s+(.*)$!) { |
|
$scriptalias = $1; |
|
if ($scriptalias !~ m!home/httpd/cgi-bin!) { |
|
$scriptalias_flag = 1; |
|
} |
|
} |
|
if (m!^\s*DocumentRoot\s+(.*)$!) { |
|
$documentroot = $1; |
|
if ($documentroot !~ m!home/httpd/html!) { |
|
$documentroot_flag = 1; |
|
} |
|
} |
|
} |
|
close(IN); |
|
if ($scriptalias_flag==1) { |
|
print('**** ERROR **** httpd.conf has an overlapping definition of '. |
|
'ScriptAlias (it is incorrectly set to '.$scriptalias.').'."\n". |
|
'This conflicts with loncapa_apache.conf.'."\n"); |
|
} |
|
if ($documentroot_flag==1) { |
|
print('**** ERROR **** httpd.conf has an overlapping definition of '. |
|
'DocumentRoot (it is incorrectly set to '.$documentroot.').'."\n". |
|
'This conflicts with loncapa_apache.conf.'."\n"); |
|
} |
|
if ($documentroot_flag==1 or $scriptalias_flag==1) { |
|
exit(1); |
|
} |
|
} |
|
</perlscript> |
</file> |
</file> |
</files> |
</files> |
</piml> |
</piml> |