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

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

version 1.3, 2002/02/02 13:08:42 version 1.11, 2002/05/16 01:22:38
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 49  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+srm.conf/) { $flag=1; } }    while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } }
   close IN;    close IN;
   unless ($flag==0) {    if ($flag!=1 and -e '/etc/httpd/conf/srm.conf') {
  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) {    if ($flag!=1 and -e '/etc/httpd/conf/access.conf') {
  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;
   open IN, "&lt;<TARGET />";    $flag=0;
     open(IN,'&lt;<TARGET />');
   while (&lt;IN&gt;) {     while (&lt;IN&gt;) { 
     if (/^\s*Include\s+loncapa.conf/) {      if (/^\s*Include\s+conf\/loncapa_apache.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_apache.conf'."\n");
  close OUT;      close(OUT);
     }
     $flag=0;
     open(IN,'&lt;<TARGET />');
     while (&lt;IN&gt;) {
       if (/^\s*Include\s+conf\/loncapa.conf/) {
         $flag=1;
       }
     }
     close(IN);
     $in='';
     if ($flag==1) {
       open(IN,'&lt;<TARGET />');
       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 97  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;;    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+loncapa.conf/) { $flag=1; } }    open(IN,'&lt;<TARGET />');
 close IN;    while (&lt;IN&gt;) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
 unless ($flag==0) {    close(IN);
 open OUT,"&gt;&gt;<TARGET />";    $in='';
 print OUT 'Include loncapa.conf'."\n";    if ($flag==1) {
 close OUT;      open(IN,'&lt;<TARGET />');
       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>
 </file>  </file>
Line 129  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;;    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+loncapa.conf/) { $flag=1; } }    open(IN,'&lt;<TARGET />');
 close IN;    while (&lt;IN&gt;) {
 unless ($flag==0) {      if (/^\s*Include\s+conf\/loncapa.conf/) {
 open OUT,"&gt;&gt;<TARGET />";        $flag=1;
 print OUT 'Include loncapa.conf'."\n";      }
 close OUT;    }
     close(IN);
     $in='';
     if ($flag==1) {
       open(IN,'&lt;<TARGET />');
       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>
 </file>  </file>
Removed from v.1.3  
changed lines
  Added in v.1.11

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