--- doc/loncapafiles/webserver.piml	2002/02/02 12:57:10	1.2
+++ doc/loncapafiles/webserver.piml	2002/02/02 13:08:42	1.3
@@ -1,7 +1,7 @@
 <!-- webserver.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: webserver.piml,v 1.2 2002/02/02 12:57:10 harris41 Exp $ -->
+<!-- $Id: webserver.piml,v 1.3 2002/02/02 13:08:42 harris41 Exp $ -->
 
 <!--
 
@@ -54,10 +54,38 @@ unless (-e "<TARGET />") {
 		'software package';
 }
 else {
+  $flag=0;
+  open IN, "&lt;<TARGET />";
+  while (&lt;IN&gt;) { if (/^\s*Include\s+srm.conf/) { $flag=1; } }
+  close IN;
+  unless ($flag==0) {
 	open OUT,"&gt;&gt;<TARGET />";
 	print OUT 'Include srm.conf'."\n";
+	close OUT;
+  }
+  $flag=0;
+  open IN, "&lt;<TARGET />";
+  while (&lt;IN&gt;) { if (/^\s*Include\s+access.conf/) { $flag=1; } }
+  close IN;
+  unless ($flag==0) {
+	open OUT,"&gt;&gt;<TARGET />";
 	print OUT 'Include access.conf'."\n";
 	close OUT;
+  }
+  $flag=0;
+  my $eflag=0;
+  open IN, "&lt;<TARGET />";
+  while (&lt;IN&gt;) { 
+    if (/^\s*Include\s+loncapa.conf/) {
+      $flag=1; 
+    }
+  }
+  close IN;
+  unless ($flag==0) {
+	open OUT,"&gt;&gt;<TARGET />";
+	print OUT 'Include loncapa.conf'."\n";
+	close OUT;
+  }
 }
 </perlscript>
 </file>
@@ -82,9 +110,15 @@ For backwards compatibility,
 <TARGET /> is being generated.
 END
 }
+my $flag=0;
+open IN, "&lt;<TARGET />";
+while (&lt;IN&gt;) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } }
+close IN;
+unless ($flag==0) {
 open OUT,"&gt;&gt;<TARGET />";
 print OUT 'Include loncapa.conf'."\n";
 close OUT;
+}
 </perlscript>
 </file>
 <file>
@@ -108,9 +142,15 @@ For backwards compatibility,
 <TARGET /> is being generated.
 END
 }
+my $flag=0;
+open IN, "&lt;<TARGET />";
+while (&lt;IN&gt;) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } }
+close IN;
+unless ($flag==0) {
 open OUT,"&gt;&gt;<TARGET />";
 print OUT 'Include loncapa.conf'."\n";
 close OUT;
+}
 </perlscript>
 </file>
 </files>