[BACK]Return to webserver.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/webserver.piml between versions 1.10 and 1.11

version 1.10, 2002/05/13 09:07:05 version 1.11, 2002/05/16 01:22:38
Line 51  http://www.lon-capa.org/ Line 51  http://www.lon-capa.org/
 /etc/httpd/conf/httpd.conf  /etc/httpd/conf/httpd.conf
 </dependencies>  </dependencies>
 <perlscript mode='fg'>  <perlscript mode='fg'>
   # Generated from doc/loncapafiles/webserver.piml
 unless (-e "<TARGET />") {  unless (-e "<TARGET />") {
  print 'ERROR! httpd.conf should exist! Are you missing the Apache '.    print 'ERROR! httpd.conf should exist! Are you missing the Apache '.
  'software package';      'software package';
     exit(1);
 }  }
 else {  else {
   $flag=0;    $flag=0;
   open IN, "&lt;<TARGET />";    open IN, "&lt;<TARGET />";
   while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } }    while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } }
   close IN;    close IN;
   unless ($flag==1) {    if ($flag!=1 and -e '/etc/httpd/conf/srm.conf') {
  open OUT,"&gt;&gt;<TARGET />";      open OUT,"&gt;&gt;<TARGET />";
  print OUT 'Include conf/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+conf\/access.conf/) { $flag=1; } }    while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } }
   close IN;    close IN;
   unless ($flag==1) {    if ($flag!=1 and -e '/etc/httpd/conf/access.conf') {
  open OUT,"&gt;&gt;<TARGET />";      open(OUT,'&gt;&gt;<TARGET />');
  print OUT 'Include conf/access.conf'."\n";      print(OUT 'Include conf/access.conf'."\n");
  close OUT;      close(OUT);
   }    }
   my $eflag=0;    my $eflag=0;
   $flag=0;    $flag=0;
   open IN, "&lt;<TARGET />";    open(IN,'&lt;<TARGET />');
   while (&lt;IN&gt;) {     while (&lt;IN&gt;) { 
     if (/^\s*Include\s+conf\/loncapa_apache.conf/) {      if (/^\s*Include\s+conf\/loncapa_apache.conf/) {
       $flag=1;         $flag=1; 
     }      }
   }    }
   close IN;    close(IN);
   unless ($flag==1) {    unless ($flag==1) {
  open OUT,"&gt;&gt;<TARGET />";      open(OUT,'&gt;&gt;<TARGET />');
  print OUT 'Include conf/loncapa_apache.conf'."\n";      print(OUT 'Include conf/loncapa_apache.conf'."\n");
  close OUT;      close(OUT);
   }    }
   $flag=0;    $flag=0;
   open IN, "&lt;<TARGET />";    open(IN,'&lt;<TARGET />');
   while (&lt;IN&gt;) {     while (&lt;IN&gt;) {
     if (/^\s*Include\s+conf\/loncapa.conf/) {      if (/^\s*Include\s+conf\/loncapa.conf/) {
       $flag=1;         $flag=1;
     }      }
   }    }
   close IN;    close(IN);
   unless ($flag==1) {    $in='';
  open OUT,"&gt;&gt;<TARGET />";    if ($flag==1) {
  print OUT 'Include conf/loncapa.conf'."\n";      open(IN,'&lt;<TARGET />');
  close OUT;      while(&lt;IN&gt;) {
         $in.=$_ unless /^\s*Include\s+conf\/loncapa.conf/;
       }
       close(IN);
       open(OUT,'&gt;<TARGET />');
       print(OUT $in."\n");
       close(OUT);
   }    }
 }  }
 </perlscript>  </perlscript>
Line 112  Apache</note> Line 120  Apache</note>
 /etc/httpd/conf/access.conf  /etc/httpd/conf/access.conf
 </dependencies>  </dependencies>
 <perlscript mode='fg'>  <perlscript mode='fg'>
 unless (-e "<TARGET />") {  if (-e '<TARGET />') {
  print &lt;&lt;END;    my $flag=0;
 WARNING! access.conf is not currently present on your system.    open(IN,'&lt;<TARGET />');
 This is either due to     while (&lt;IN&gt;) {
 * you are missing the Apache software package,      if (/^\s*Include\s+conf\/loncapa_apache.conf/) {
 * you have a newer version of Apache that does not        $flag=1;
   ordinarily install an access.conf      }
 * configuration files are installed in a directory location    }
   different than for <TARGET />    close(IN);
 For backwards compatibility,    unless ($flag==1) {
 <TARGET /> is being generated.      open(OUT,'&gt;&gt;<TARGET />');
 END      print(OUT 'Include conf/loncapa_apache.conf'."\n");
 }      close(OUT);
 my $flag=0;    }
 open IN, "&lt;<TARGET />";    $flag=0;
 while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa_apache.conf/)    open(IN,'&lt;<TARGET />');
  { $flag=1; } }    while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
 close IN;    close(IN);
 unless ($flag==1) {    $in='';
 open OUT,"&gt;&gt;<TARGET />";    if ($flag==1) {
 print OUT 'Include conf/loncapa_apache.conf'."\n";      open(IN,'&lt;<TARGET />');
 close OUT;      while(&lt;IN&gt;) {
 }        $in.=$_ unless /^\s*Include\s+conf\/loncapa.conf/;
 $flag=0;      }
 open IN, "&lt;<TARGET />";      close(IN);
 while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }      open(OUT,'&gt;<TARGET />');
 close IN;      print(OUT $in."\n");
 unless ($flag==1) {      close(OUT);
 open OUT,"&gt;&gt;<TARGET />";    }
 print OUT 'Include conf/loncapa.conf'."\n";  
 close OUT;  
 }  }
 </perlscript>  </perlscript>
 </file>  </file>
Line 154  Apache</note> Line 160  Apache</note>
 /etc/httpd/conf/srm.conf  /etc/httpd/conf/srm.conf
 </dependencies>  </dependencies>
 <perlscript mode='fg'>  <perlscript mode='fg'>
 unless (-e "<TARGET />") {  if (-e '<TARGET />') {
  print &lt;&lt;END;    my $flag=0;
 WARNING! srm.conf is not currently present on your system.    open(IN,'&lt;<TARGET />');
 This is either due to     while (&lt;IN&gt;) {
 * you are missing the Apache software package,      if (/^\s*Include\s+conf\/loncapa_apache.conf/) {
 * you have a newer version of Apache that does not        $flag=1;
   ordinarily install an srm.conf      }
 * configuration files are installed in a directory location    }
   different than for <TARGET />    close(IN);
 For backwards compatibility,    unless ($flag==1) {
 <TARGET /> is being generated.      open(OUT,'&gt;&gt;<TARGET />');
 END      print(OUT 'Include conf/loncapa_apache.conf'."\n");
 }      close(OUT);
 my $flag=0;    }
 open IN, "&lt;<TARGET />";    $flag=0;
 while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa_apache.conf/)    open(IN,'&lt;<TARGET />');
  { $flag=1; } }    while (&lt;IN&gt;) {
 close IN;      if (/^\s*Include\s+conf\/loncapa.conf/) {
 unless ($flag==1) {        $flag=1;
 open OUT,"&gt;&gt;<TARGET />";      }
 print OUT 'Include conf/loncapa_apache.conf'."\n";    }
 close OUT;    close(IN);
 }    $in='';
 $flag=0;    if ($flag==1) {
 open IN, "&lt;<TARGET />";      open(IN,'&lt;<TARGET />');
 while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }      while(&lt;IN&gt;) {
 close IN;        $in.=$_ unless /^\s*Include\s+conf\/loncapa.conf/;
 unless ($flag==1) {      }
 open OUT,"&gt;&gt;<TARGET />";      close(IN);
 print OUT 'Include conf/loncapa.conf'."\n";      open(OUT,'&gt;<TARGET />');
 close OUT;      print(OUT $in."\n");
       close(OUT);
     }
 }  }
 </perlscript>  </perlscript>
 </file>  </file>
Removed from v.1.10  
changed lines
  Added in v.1.11

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