Diff for /doc/build/generate_web_pages.pl between versions 1.22 and 1.35

version 1.22, 2005/09/02 18:47:53 version 1.35, 2008/02/12 23:19:49
Line 10  generate_web_pages.pl - generate the web Line 10  generate_web_pages.pl - generate the web
   
 Yeah, it does that.  Yeah, it does that.
   
 Basically, there's a few comments in shell.html that we replace with  Basically, there's a few comments in shell.hemp that we replace with
     what we really want in the files. Pretty simple.      what we really want in the files. Pretty simple.
   
 The point of this is to look like the main site.  The point of this is to look like the main site.
Line 21  The point of this is to look like the ma Line 21  The point of this is to look like the ma
 # add/subtract/etc. pages. Index is done seperately.  # add/subtract/etc. pages. Index is done seperately.
 # Title, source  # Title, source
   
 my @pages = (   my @pages = (
 #      ['Red Hat 7.3 Install', 'rh73'],                ['Fedora 8 Install', 'F8_install'], 
                 ['Fedora 7 Install', 'F7_install'],
                 ['Fedora Core 6 Install', 'FC6_install'], 
         ['Fedora Core 5 Install', 'FC5_install'],
   #             ['Fedora Core 4 Install', 'FC4_install'],
   #             ['Fedora Core 3 Install', 'FC3_install'],
 #      ['Fedora Install', 'fedora_install'],  #      ['Fedora Install', 'fedora_install'],
               ['Fedora Core 3 Install', 'FC3_install'],  #      ['Red Hat 7.3 Install', 'rh73'],
               ['Fedora Core 4 Install', 'FC4_install'],                ['Red Hat Enterprise Linux 5 Install','RHEL5_install'],
               ['Red Hat Enterprise Linux 4 Install','RHEL4_install'],                ['Red Hat Enterprise Linux 4 Install','RHEL4_install'],
               ['SuSE Linux Professional 9.2 Install', 'suse9.2_install'],                ['SuSE Linux 10.2 Install', 'suse10.2_install'],
                 ['SuSE Linux 10.1 Install', 'suse10.1_install'],
                 ['SuSE Linux Professional 9.3 Install', 'suse9.3_install'],
   #              ['SuSE Linux Professional 9.2 Install', 'suse9.2_install'],
                 ['SuSE Linux Enterprise Server 10 Install', 'sles10_install'],
                 ['SuSE Linux Enterprise Server 9 Install', 'sles9_install'],
 #      ['Manual Install from Tarballs', 'manual_install'],  #      ['Manual Install from Tarballs', 'manual_install'],
       ['Upgrading from Previous LON-CAPA install', 'upgrade'],        ['Upgrading from Previous LON-CAPA install', 'upgrade'],
       ['Post-installation Configuration', 'config'],  
       ['LON-CAPA License (Gnu Public License)', 'license']        ['LON-CAPA License (Gnu Public License)', 'license']
       );        );
   
   my @testing_pages = ( 
         );
 my @other_pages = (   my @other_pages = ( 
     ['Developer Infomation', 'dev']      ['Developer Information', 'dev'],
       ['Configuration Information', 'config'],
     );      );
   
 open SHELL, '<', "shell.html";  open SHELL, '<', "shell.html";
Line 43  $shell =~ s/\r/\n/g; Line 56  $shell =~ s/\r/\n/g;
   
 # Call with: The title, breadcrumb, and content  # Call with: The title, breadcrumb, and content
 sub replaceText {  sub replaceText {
     my ($title, $breadcrumb, $content) = @_;      my ($title, $links, $breadcrumb, $content) = @_;
   
     my $page = $shell;      my $page = $shell;
     $page =~ s/\<!-- *title *--\>/$title/g;      $page =~ s/\<!-- *title *--\>/$title/g;
       $page =~ s/\<!-- *links *--\>/$links/g;
     $page =~ s/\<!-- *breadcrumb *--\>/$breadcrumb/g;      $page =~ s/\<!-- *breadcrumb *--\>/$breadcrumb/g;
     $page =~ s/\<!-- *content *--\>/$content/g;      $page =~ s/\<!-- *content *--\>/$content/g;
   
Line 56  sub replaceText { Line 70  sub replaceText {
 # Do the index page  # Do the index page
   
 open INDEX, '>', "index.html";  open INDEX, '>', "index.html";
 my $content = <<PRELUDE;  my $content = <<PRELUDE; 
 <p>LON-CAPA is based upon a lot of Open Source modules, so it's important  
 to have the right environment on your computer. Since it will frequently   <p>LON-CAPA is based upon a lot of Open Source modules, so it's
 be the case that LON-CAPA will be going onto a dedicated machine, we've   important to have the right environment on your computer. This is most
 included instructions for installing LON-CAPA concurrently with new  easily done by installing on a dedicated machine while installing the
 installations of some of the popular Linux distributions.</p>  operating system.</p>
   
 <p>A tarball installation is also available for those who wish to   <p>The configuring of LON-CAPA is part of the install process of the
 install on other distributions. Currently, Apache 1.x is required;  software. However, In case something needs to be altered, or isn't
 LON-CAPA does not yet run on 2.0.</p>  working, here is some <a href="config.html">information on configuring
   LON-CAPA</a>.</p>
   
 <p>For all distributions, please see how to   
 <a href="config.html">configure the server after installation</a>.</p>  
 <hr />  <hr />
 PRELUDE  PRELUDE
   
Line 79  for (@pages) { Line 92  for (@pages) {
   
 $content .= "</ul>\n";  $content .= "</ul>\n";
   
 $content .= <<'POSTLUDE';  my $testing_content = '';
   if (@testing_pages) {
       $testing_content .= "<hr/><p>Installation on the following systems requires the use of a testing release of LON-CAPA.</p>\n";
       $testing_content .= "<ul>\n";
       for (@testing_pages) {
    $testing_content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
       }
       $testing_content .= "</ul>\n";
   }
   
   
   $content .= <<"POSTLUDE";
 <hr />  <hr />
 <a name="download" />  <a name="download" />
 <h3>Downloading LON-CAPA</h3>  <h3>Downloading LON-CAPA</h3>
Line 105  You can download the <b>testing version Line 129  You can download the <b>testing version
 http://install.lon-capa.org/versions/loncapa-testing.tar.gz</a>  http://install.lon-capa.org/versions/loncapa-testing.tar.gz</a>
 (version LATESTTESTINGVERSION).  (version LATESTTESTINGVERSION).
 </p>  </p>
   $testing_content
 TESTINGRELEASE_END  TESTINGRELEASE_END
   
 <hr />  <hr />
 POSTLUDE  POSTLUDE
   
   open(RELEASE, '<', "release.frag");
   $content .= join('',<RELEASE>);
   close(RELEASE);
   
 $content .= "<ul>\n";  $content .= "<ul>\n";
 for (@other_pages) {  for (@other_pages) {
     $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";      $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
Line 117  for (@other_pages) { Line 146  for (@other_pages) {
   
 $content .= "</ul>\n";  $content .= "</ul>\n";
   
 my $index = replaceText("Install LON-CAPA", "Install LON-CAPA",  $links='<link rel="alternate" type="application/rss+xml" title="CVS RSS" href="loncapa.rss" />';
     $content);  
   my $index = replaceText("Install LON-CAPA", $links, "Install LON-CAPA",
    $content);
   
 print INDEX $index;  print INDEX $index;
 close INDEX;  close INDEX;
   
 # Build the pages  # Build the pages
 for (@pages,@other_pages) {  for (@pages,@other_pages,@testing_pages) {
     my ($title, $source) = @$_;      my ($title, $source) = @$_;
   
     # read in content      # read in content
Line 132  for (@pages,@other_pages) { Line 163  for (@pages,@other_pages) {
     $content = join '', <SOURCE>;      $content = join '', <SOURCE>;
     close SOURCE;      close SOURCE;
   
     $content = replaceText($title, '<a href="/">Install LON-CAPA</a> &gt; ' . $title,      $content = replaceText($title, '', '<a href="/">Install LON-CAPA</a> &gt; ' . $title,
    $content);     $content);
     open DEST, '>', $source.'.html';      open DEST, '>', $source.'.html';
     print DEST $content;      print DEST $content;

Removed from v.1.22  
changed lines
  Added in v.1.35


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