/ /etc/httpd/conf/httpd.conf This is always expected for any version of Apache /etc/httpd/conf/httpd.conf # Generated from doc/loncapafiles/webserver.piml unless (-e "") { print 'ERROR! httpd.conf should exist! Are you missing the Apache '. 'software package'; exit(1); } else { $flag=0; open IN, "<"; while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } } close IN; if ($flag!=1 and -e '/etc/httpd/conf/srm.conf') { 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; if ($flag!=1 and -e '/etc/httpd/conf/access.conf') { open(OUT,'>>'); print(OUT 'Include conf/access.conf'."\n"); close(OUT); } my $eflag=0; $flag=0; open(IN,'<'); while (<IN>) { if (/^\s*Include\s+conf\/loncapa_apache.conf/) { $flag=1; } } close(IN); unless ($flag==1) { open(OUT,'>>'); print(OUT 'Include conf/loncapa_apache.conf'."\n"); close(OUT); } $flag=0; open(IN,'<'); while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } close(IN); $in=''; if ($flag==1) { open(IN,'<'); while(<IN>) { $in.=$_ unless /^\s*Include\s+conf\/loncapa.conf/; } close(IN); open(OUT,'>'); print(OUT $in."\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 if (-e '') { my $flag=0; open(IN,'<'); while (<IN>) { if (/^\s*Include\s+conf\/loncapa_apache.conf/) { $flag=1; } } close(IN); unless ($flag==1) { open(OUT,'>>'); print(OUT 'Include conf/loncapa_apache.conf'."\n"); close(OUT); } $flag=0; open(IN,'<'); while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } close(IN); $in=''; if ($flag==1) { open(IN,'<'); while(<IN>) { $in.=$_ unless /^\s*Include\s+conf\/loncapa.conf/; } close(IN); open(OUT,'>'); print(OUT $in."\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 if (-e '') { my $flag=0; open(IN,'<'); while (<IN>) { if (/^\s*Include\s+conf\/loncapa_apache.conf/) { $flag=1; } } close(IN); unless ($flag==1) { open(OUT,'>>'); print(OUT 'Include conf/loncapa_apache.conf'."\n"); close(OUT); } $flag=0; open(IN,'<'); while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } } close(IN); $in=''; if ($flag==1) { open(IN,'<'); while(<IN>) { $in.=$_ unless /^\s*Include\s+conf\/loncapa.conf/; } close(IN); open(OUT,'>'); print(OUT $in."\n"); close(OUT); } }