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

version 1.3, 2002/02/02 13:08:42 version 1.4, 2002/02/02 14:45:40
Line 56  unless (-e "<TARGET />") { Line 56  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==0) {
  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==0) {
  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;    $flag=0;
   my $eflag=0;    my $eflag=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==0) {
  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 112  END Line 112  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.conf/) { $flag=1; } }
 close IN;  close IN;
 unless ($flag==0) {  unless ($flag==0) {
 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 144  END Line 144  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.conf/) { $flag=1; } }
 close IN;  close IN;
 unless ($flag==0) {  unless ($flag==0) {
 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.4


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