/abc/
/etc/httpd/conf/httpd.conf
This is always expected for any version of Apache
/etc/httpd/conf/httpd.conf
unless (-e "") {
print 'ERROR! httpd.conf should exist! Are you missing the Apache '.
'software package';
}
else {
$flag=0;
open IN, "<";
while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } }
close IN;
unless ($flag==0) {
open OUT,">>";
print OUT 'Include conf/srm.conf'."\n";
close OUT;
}
$flag=0;
open IN, "<";
while (<IN>) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } }
close IN;
unless ($flag==0) {
open OUT,">>";
print OUT 'Include conf/access.conf'."\n";
close OUT;
}
$flag=0;
my $eflag=0;
open IN, "<";
while (<IN>) {
if (/^\s*Include\s+conf\/loncapa.conf/) {
$flag=1;
}
}
close IN;
unless ($flag==0) {
open OUT,">>";
print OUT 'Include conf/loncapa.conf'."\n";
close OUT;
}
}
/etc/httpd/conf/access.conf
This may or may not exist on a system depending on the version of
Apache
/etc/httpd/conf/access.conf
unless (-e "") {
print <<;
WARNING! access.conf is not currently present on your system.
This is either due to
* you are missing the Apache software package,
* you have a newer version of Apache that does not
ordinarily install an access.conf
* configuration files are installed in a directory location
different than for
For backwards compatibility,
is being generated.
END
}
my $flag=0;
open IN, "<";
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
close IN;
unless ($flag==0) {
open OUT,">>";
print OUT 'Include conf/loncapa.conf'."\n";
close OUT;
}
/etc/httpd/conf/srm.conf
This may or may not exist on a system depending on the version of
Apache
/etc/httpd/conf/srm.conf
unless (-e "") {
print <<;
WARNING! srm.conf is not currently present on your system.
This is either due to
* you are missing the Apache software package,
* you have a newer version of Apache that does not
ordinarily install an srm.conf
* configuration files are installed in a directory location
different than for
For backwards compatibility,
is being generated.
END
}
my $flag=0;
open IN, "<";
while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
close IN;
unless ($flag==0) {
open OUT,">>";
print OUT 'Include conf/loncapa.conf'."\n";
close OUT;
}