version 1.6, 2002/02/05 01:49:49
|
version 1.40, 2015/01/01 00:24:17
|
Line 1
|
Line 1
|
|
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
|
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
<!-- webserver.piml --> |
<!-- webserver.piml --> |
<!-- Scott Harrison --> |
|
|
|
<!-- $Id$ --> |
<!-- $Id$ --> |
|
|
Line 44 http://www.lon-capa.org/
|
Line 45 http://www.lon-capa.org/
|
<files> |
<files> |
<file> |
<file> |
<target dist='default'>/etc/httpd/conf/httpd.conf</target> |
<target dist='default'>/etc/httpd/conf/httpd.conf</target> |
<note>This is always expected for any version of Apache</note> |
<target dist='suse9.2 suse9.3 sles9'>/etc/httpd/httpd.conf</target> |
|
<target dist='sles10 sles11 sles12 suse10.1 suse10.2 suse10.3 suse11.1 suse11.2 suse11.3 suse11.4 suse12.1 suse12.2 suse12.3 suse13.1'>/etc/apache2/default-server.conf</target> |
|
<target dist='debian5 debian6 ubuntu6 ubuntu8 ubuntu10 ubuntu12'>/etc/apache2/sites-available/loncapa</target> |
|
<target dist='ubuntu14'>/etc/apache2/conf-available/loncapa</target> |
|
<note>This is for Apache 1.X for Red Hat 4ES, Fedora 2, 3 and 4, SusSE 9.2 and 9.3, and SLES 9 distributions. This is for Apache 2.X for Fedora 5, Red Hat 5, CentOS 5, Scientific Linux 5, SuSE 10.1, SLES 10, Debian 5, Ubuntu LTS 8 and later distributions</note> |
<dependencies dist='default'> |
<dependencies dist='default'> |
/etc/httpd/conf/httpd.conf |
/etc/httpd/conf/httpd.conf |
</dependencies> |
</dependencies> |
<perlscript mode='fg'> |
<dependencies dist='suse9.2 suse9.3 sles9'> |
|
/etc/httpd/httpd.conf |
|
</dependencies> |
|
<dependencies dist='debian5 debian6 ubuntu6 ubuntu8 ubuntu10 ubuntu12'> |
|
/etc/apache2/sites-available/loncapa |
|
</dependencies> |
|
<dependencies dist='ubuntu14'> |
|
/etc/apache2/conf-available/loncapa |
|
</dependencies> |
|
<dependencies dist='sles10 sles11 sles12 suse10.1 suse10.2 suse10.3 suse11.1 suse11.2 suse11.3 suse11.4 suse12.1 suse12.2 suse12.3 suse13.1'> |
|
/etc/apache2/default-server.conf |
|
</dependencies> |
|
<perlscript mode='fg' dist="default"> |
|
# 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! <TARGET /> should exist! Are you missing the Apache '. |
'software package'; |
'software package?'; |
|
exit(1); |
} |
} |
else { |
else { |
|
# Append loncapa_apache.conf inclusion to httpd.conf |
|
# (or sites-available/loncapa or conf-available/loncapa) if not present. |
$flag=0; |
$flag=0; |
open IN, "<<TARGET />"; |
open(IN,'<<TARGET />'); |
while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } } |
while (<IN>) { |
close IN; |
if (/^\s*Include\s+conf\/loncapa_apache.conf/) { |
unless ($flag==0) { |
$flag=1; |
open OUT,">><TARGET />"; |
} |
print OUT 'Include conf/srm.conf'."\n"; |
|
close OUT; |
|
} |
} |
$flag=0; |
close(IN); |
open IN, "<<TARGET />"; |
unless ($flag==1) { |
while (<IN>) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } } |
open(OUT,'>><TARGET />'); |
close IN; |
print(OUT 'Include conf/loncapa_apache.conf'."\n"); |
unless ($flag==0) { |
close(OUT); |
open OUT,">><TARGET />"; |
|
print OUT 'Include conf/access.conf'."\n"; |
|
close OUT; |
|
} |
} |
|
# Remove loncapa.conf inclusion from httpd.conf |
|
# (or sites-available/loncapa or conf-available/loncapa) if present. |
$flag=0; |
$flag=0; |
my $eflag=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/) { |
$flag=1; |
$flag=1; |
} |
} |
} |
} |
close IN; |
close(IN); |
unless ($flag==0) { |
$in=''; |
open OUT,">><TARGET />"; |
if ($flag==1) { |
print OUT 'Include conf/loncapa.conf'."\n"; |
open(IN,'<<TARGET />'); |
close OUT; |
while(<IN>) { |
|
$in.=$_ unless /^\s*Include\s+conf\/loncapa.conf/; |
|
} |
|
close(IN); |
|
open(OUT,'><TARGET />'); |
|
print(OUT $in."\n"); |
|
close(OUT); |
} |
} |
} |
|
</perlscript> |
# Checking for overlapping ScriptAlias and DocumentRoot definitions. |
</file> |
$scriptalias_flag=0; |
<file> |
$documentroot_flag=0; |
<target dist='default'>/etc/httpd/conf/access.conf</target> |
my $scriptalias; |
<note>This may or may not exist on a system depending on the version of |
my $documentroot; |
Apache</note> |
open(IN,'<<TARGET />'); |
<dependencies dist='default'> |
while (<IN>) { |
/etc/httpd/conf/access.conf |
if (m!^\s*ScriptAlias\s+/cgi-bin/\s+(.*)$!) { |
</dependencies> |
$scriptalias = $1; |
<perlscript mode='fg'> |
if ($scriptalias !~ m!home/httpd/cgi-bin!) { |
unless (-e "<TARGET />") { |
$scriptalias_flag = 1; |
print <<END |
} |
WARNING! access.conf is not currently present on your system. |
} |
This is either due to |
if (m!^\s*DocumentRoot\s+(.*)$!) { |
* you are missing the Apache software package, |
$documentroot = $1; |
* you have a newer version of Apache that does not |
if ($documentroot !~ m!home/httpd/html!) { |
ordinarily install an access.conf |
$documentroot_flag = 1; |
* configuration files are installed in a directory location |
} |
different than for <TARGET /> |
} |
For backwards compatibility, |
} |
<TARGET /> is being generated. |
close(IN); |
END |
if ($scriptalias_flag==1) { |
} |
my $conffile = '/etc/httpd/conf/httpd.conf'; |
my $flag=0; |
if ('<DIST />' eq 'suse9.2' || '<DIST />' eq 'suse9.3' |
open IN, "<<TARGET />"; |
|| '<DIST />' eq 'sles9') { |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
$conffile = '/etc/httpd/httpd.conf'; |
close IN; |
} elsif ('<DIST />' =~ /^(suse|sles)/) { |
unless ($flag==0) { |
$conffile = '/etc/apache2/default-server.conf'; |
open OUT,">><TARGET />"; |
} elsif ('<DIST />' =~ /^(debian|ubuntu)/) { |
print OUT 'Include conf/loncapa.conf'."\n"; |
$conffile = '/etc/apache2/sites-available/loncapa'; |
close OUT; |
} |
} |
print('**** ERROR **** '.$conffile.' has an overlapping definition of '. |
</perlscript> |
'ScriptAlias (it is incorrectly set to '.$scriptalias.').'."\n". |
</file> |
'This conflicts with loncapa_apache.conf.'."\n"); |
<file> |
} |
<target dist='default'>/etc/httpd/conf/srm.conf</target> |
if ($documentroot_flag==1) { |
<note>This may or may not exist on a system depending on the version of |
print('**** ERROR **** '.$conffile.' has an overlapping definition of '. |
Apache</note> |
'DocumentRoot (it is incorrectly set to '.$documentroot.').'."\n". |
<dependencies dist='default'> |
'This conflicts with loncapa_apache.conf.'."\n"); |
/etc/httpd/conf/srm.conf |
} |
</dependencies> |
|
<perlscript mode='fg'> |
# Checking for rewrites of http:// to https:// |
unless (-e "<TARGET />") { |
my $rewrite_dir = '/etc/httpd/conf/rewrites'; |
print <<END |
my $curr_rewrite = '/etc/httpd/conf/loncapa_rewrite.conf'; |
WARNING! srm.conf is not currently present on your system. |
if ('<DIST />' eq 'suse9.2' || '<DIST />' eq 'suse9.3' |
This is either due to |
|| '<DIST />' eq 'sles9') { |
* you are missing the Apache software package, |
$rewrite_dir = '/etc/httpd/rewrites/'; |
* you have a newer version of Apache that does not |
$curr_rewrite = '/etc/httpd/loncapa_rewrite.conf'; |
ordinarily install an srm.conf |
} elsif ('<DIST />' =~ /^(suse|sles|debian|ubuntu)/) { |
* configuration files are installed in a directory location |
$rewrite_dir = '/etc/apache2/rewrites'; |
different than for <TARGET /> |
$curr_rewrite = '/etc/apache2/loncapa_rewrite.conf'; |
For backwards compatibility, |
} |
<TARGET /> is being generated. |
my $rewrite_off = $rewrite_dir.'/loncapa_rewrite_off.conf'; |
END |
my $rewrite_on = $rewrite_dir.'/loncapa_rewrite_on.conf'; |
} |
if (!-e $curr_rewrite) { |
my $flag=0; |
system("cp $rewrite_off $curr_rewrite"); |
open IN, "<<TARGET />"; |
chmod(0644, $curr_rewrite); |
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } |
} else { |
close IN; |
my ($not_rewrite_on,$not_rewrite_off); |
unless ($flag==0) { |
if (open(PIPE, "diff --brief $rewrite_off $curr_rewrite |")) { |
open OUT,">><TARGET />"; |
my $diffres = <PIPE> ; |
print OUT 'Include conf/loncapa.conf'."\n"; |
close(PIPE); |
close OUT; |
chomp($diffres); |
|
if ($diffres) { |
|
$not_rewrite_off = 1; |
|
} |
|
} |
|
if (open(PIPE, "diff --brief $rewrite_on $curr_rewrite |")) { |
|
my $diffres = <PIPE> ; |
|
close(PIPE); |
|
chomp($diffres); |
|
if ($diffres) { |
|
$not_rewrite_on = 1; |
|
} |
|
} |
|
unless ($not_rewrite_off || $not_rewrite_on) { |
|
print('**** WARNING **** '.$curr_rewrite.' does not match '. |
|
'either: '.$rewrite_on.' - the file used to enable rewriting '. |
|
'of requests for http:// to https:// or: '.$rewrite_off. |
|
' - the file used to disable such rewriting'."\n\n". |
|
'This may be because '. $curr_rewrite.' has been '. |
|
'previously customized, or it may be because of a change '. |
|
'to the files in '.$rewrite_dir."\n"); |
|
} |
|
} |
} |
} |
</perlscript> |
</perlscript> |
</file> |
</file> |