Diff for /doc/loncapafiles/webserver.piml between versions 1.3 and 1.9

version 1.3, 2002/02/02 13:08:42 version 1.9, 2002/05/12 19:02:18
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 -->  <!-- Scott Harrison -->
   
Line 36  http://www.lon-capa.org/ Line 38  http://www.lon-capa.org/
 <!-- defined. -->  <!-- defined. -->
   
 <piml>  <piml>
 <targetroot>/abc/</targetroot>  <targetroot>/</targetroot>
 <specialnotices>  <specialnotices>
 <specialnotice>  <specialnotice>
 </specialnotice>  </specialnotice>
Line 56  unless (-e "<TARGET />") { Line 58  unless (-e "<TARGET />") {
 else {  else {
   $flag=0;    $flag=0;
   open IN, "&lt;<TARGET />";    open IN, "&lt;<TARGET />";
   while (&lt;IN&gt;) { if (/^\s*Include\s+srm.conf/) { $flag=1; } }    while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } }
   close IN;    close IN;
   unless ($flag==0) {    unless ($flag==1) {
  open OUT,"&gt;&gt;<TARGET />";   open OUT,"&gt;&gt;<TARGET />";
  print OUT 'Include srm.conf'."\n";   print OUT 'Include conf/srm.conf'."\n";
  close OUT;   close OUT;
   }    }
   $flag=0;    $flag=0;
   open IN, "&lt;<TARGET />";    open IN, "&lt;<TARGET />";
   while (&lt;IN&gt;) { if (/^\s*Include\s+access.conf/) { $flag=1; } }    while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } }
   close IN;    close IN;
   unless ($flag==0) {    unless ($flag==1) {
  open OUT,"&gt;&gt;<TARGET />";   open OUT,"&gt;&gt;<TARGET />";
  print OUT 'Include access.conf'."\n";   print OUT 'Include conf/access.conf'."\n";
  close OUT;   close OUT;
   }    }
   $flag=0;  
   my $eflag=0;    my $eflag=0;
     $flag=0;
     open IN, "&lt;<TARGET />";
     while (&lt;IN&gt;) { 
       if (/^\s*Include\s+conf\/loncapa_apache.conf/) {
         $flag=1; 
       }
     }
     close IN;
     unless ($flag==1) {
    open OUT,"&gt;&gt;<TARGET />";
    print OUT 'Include conf/loncapa_apache.conf'."\n";
    close OUT;
     }
     $flag=0;
   open IN, "&lt;<TARGET />";    open IN, "&lt;<TARGET />";
   while (&lt;IN&gt;) {     while (&lt;IN&gt;) { 
     if (/^\s*Include\s+loncapa.conf/) {      if (/^\s*Include\s+conf\/loncapa.conf/) {
       $flag=1;         $flag=1; 
     }      }
   }    }
   close IN;    close IN;
   unless ($flag==0) {    unless ($flag==1) {
  open OUT,"&gt;&gt;<TARGET />";   open OUT,"&gt;&gt;<TARGET />";
  print OUT 'Include loncapa.conf'."\n";   print OUT 'Include conf/loncapa.conf'."\n";
  close OUT;   close OUT;
   }    }
 }  }
Line 98  Apache</note> Line 113  Apache</note>
 </dependencies>  </dependencies>
 <perlscript mode='fg'>  <perlscript mode='fg'>
 unless (-e "<TARGET />") {  unless (-e "<TARGET />") {
  print &lt;&lt;;   print &lt;&lt;END;
 WARNING! access.conf is not currently present on your system.  WARNING! access.conf is not currently present on your system.
 This is either due to   This is either due to 
 * you are missing the Apache software package,  * you are missing the Apache software package,
Line 112  END Line 127  END
 }  }
 my $flag=0;  my $flag=0;
 open IN, "&lt;<TARGET />";  open IN, "&lt;<TARGET />";
 while (&lt;IN&gt;) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } }  while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa_apache.conf/)
    { $flag=1; } }
   close IN;
   unless ($flag==1) {
   open OUT,"&gt;&gt;<TARGET />";
   print OUT 'Include conf/loncapa_apache.conf'."\n";
   close OUT;
   $flag=0;
   open IN, "&lt;<TARGET />";
   while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
 close IN;  close IN;
 unless ($flag==0) {  unless ($flag==1) {
 open OUT,"&gt;&gt;<TARGET />";  open OUT,"&gt;&gt;<TARGET />";
 print OUT 'Include loncapa.conf'."\n";  print OUT 'Include conf/loncapa.conf'."\n";
 close OUT;  close OUT;
 }  }
 </perlscript>  </perlscript>
Line 130  Apache</note> Line 154  Apache</note>
 </dependencies>  </dependencies>
 <perlscript mode='fg'>  <perlscript mode='fg'>
 unless (-e "<TARGET />") {  unless (-e "<TARGET />") {
  print &lt;&lt;;   print &lt;&lt;END;
 WARNING! srm.conf is not currently present on your system.  WARNING! srm.conf is not currently present on your system.
 This is either due to   This is either due to 
 * you are missing the Apache software package,  * you are missing the Apache software package,
Line 144  END Line 168  END
 }  }
 my $flag=0;  my $flag=0;
 open IN, "&lt;<TARGET />";  open IN, "&lt;<TARGET />";
 while (&lt;IN&gt;) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } }  while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa_apache.conf/)
    { $flag=1; } }
   close IN;
   unless ($flag==1) {
   open OUT,"&gt;&gt;<TARGET />";
   print OUT 'Include conf/loncapa_apache.conf'."\n";
   close OUT;
   $flag=0;
   open IN, "&lt;<TARGET />";
   while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
 close IN;  close IN;
 unless ($flag==0) {  unless ($flag==1) {
 open OUT,"&gt;&gt;<TARGET />";  open OUT,"&gt;&gt;<TARGET />";
 print OUT 'Include loncapa.conf'."\n";  print OUT 'Include conf/loncapa.conf'."\n";
 close OUT;  close OUT;
 }  }
 </perlscript>  </perlscript>

Removed from v.1.3  
changed lines
  Added in v.1.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>