--- doc/build/generate_web_pages.pl	2005/07/20 19:07:19	1.17
+++ doc/build/generate_web_pages.pl	2017/06/12 18:51:13	1.60
@@ -10,7 +10,7 @@ generate_web_pages.pl - generate the web
 
 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.
 
 The point of this is to look like the main site.
@@ -21,28 +21,64 @@ The point of this is to look like the ma
 # add/subtract/etc. pages. Index is done seperately.
 # Title, source
 
-my @pages = ( 
-#	      ['Red Hat 7.3 Install', 'rh73'],
-	      ['Fedora Install', 'fedora_install'],
-              ['Fedora Core 3 Install', 'FC3_install'],
-              ['Fedora Core 4 Install', 'FC4_install'],
-              ['Red Hat Enterprise Linux 4 Install','RHEL4_install'],
-	      ['Manual Install from Tarballs', 'manual_install'],
-	      ['Upgrading from Previous LON-CAPA install', 'upgrade'],
-	      ['Post-installation Configuration', 'config'],
-	      ['LON-CAPA License (Gnu Public License)', 'license']
+my @longlifecycle = (
+              ['CentOS Linux 7 Install','centos7_install'],
+              ['CentOS Linux 6 Install','centos6_install'],
+              ['CentOS Linux 5 Install','centos5_install'],
+              ['Scientific Linux 7 Install','scientific7_install'],
+              ['Scientific Linux 6 Install','scientific6_install'],
+              ['Scientific Linux 5 Install','scientific5_install'],
+              ['Red Hat Enterprise Linux 7 Install','RHEL7_install'],
+              ['Red Hat Enterprise Linux 6 Install','RHEL6_install'],
+              ['Red Hat Enterprise Linux 5 Install','RHEL5_install'],
+              ['SuSE Linux Enterprise Server 12 Install', 'sles12_install'],
+              ['SuSE Linux Enterprise Server 11 Install', 'sles11_install'],
+              ['SuSE Linux Enterprise Server 10 Install', 'sles10_install'],
+              ['Ubuntu 16.04 LTS Server', 'ubuntu16LTS_install'],
+              ['Ubuntu 14.04 LTS Server', 'ubuntu14LTS_install'],
+              ['Ubuntu 12.04 LTS Server', 'ubuntu12LTS_install'],
+              ['Ubuntu 10.04 LTS Server', 'ubuntu10LTS_install'],
 	      );
 
+my @shortlifecycle = (
+              ['Fedora 25 Install', 'F25_install'],
+              ['Fedora 24 Install', 'F24_install'],
+              ['Fedora 23 Install', 'F23_install'],
+              ['Fedora 22 Install', 'F22_install'],
+              ['Fedora 21 Install', 'F21_install'],
+              ['Fedora 20 Install', 'F20_install'],
+              ['Fedora 19 Install', 'F19_install'],
+              ['Fedora 18 Install', 'F18_install'],
+              ['Fedora 17 Install', 'F17_install'],
+              ['Fedora 16 Install', 'F16_install'],
+              ['SuSE Linux 13.2 Install', 'suse13.2_install'],
+              ['SuSE Linux 13.1 Install', 'suse13.1_install'],
+              ['SuSE Linux 12.3 Install', 'suse12.3_install'],
+              ['SuSE Linux 12.2 Install', 'suse12.2_install'],
+              ['SuSE Linux 12.1 Install', 'suse12.1_install'],
+              );
+ 
+my @ancillary = (
+              ['Upgrading from Previous LON-CAPA install', 'upgrade'],
+              ['LON-CAPA License (Gnu Public License)', 'license']
+              );
+
+my @other_pages = ( 
+		    ['Developer Information', 'dev'],
+		    ['Configuration Information', 'config'],
+		    );
+
 open SHELL, '<', "shell.html";
 my $shell = join '', <SHELL>;
 $shell =~ s/\r/\n/g;
 
 # Call with: The title, breadcrumb, and content
 sub replaceText {
-    my ($title, $breadcrumb, $content) = @_;
+    my ($title, $links, $breadcrumb, $content) = @_;
 
     my $page = $shell;
     $page =~ s/\<!-- *title *--\>/$title/g;
+    $page =~ s/\<!-- *links *--\>/$links/g;
     $page =~ s/\<!-- *breadcrumb *--\>/$breadcrumb/g;
     $page =~ s/\<!-- *content *--\>/$content/g;
 
@@ -52,30 +88,58 @@ sub replaceText {
 # Do the index page
 
 open INDEX, '>', "index.html";
-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 
-be the case that LON-CAPA will be going onto a dedicated machine, we've 
-included instructions for installing LON-CAPA concurrently with new
-installations of some of the popular Linux distributions.</p>
-
-<p>A tarball installation is also available for those who wish to 
-install on other distributions. Currently, Apache 1.x is required;
-LON-CAPA does not yet run on 2.0.</p>
+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. This is most
+easily done by installing on a dedicated machine while installing the
+operating system.</p>
+
+<p>The configuring of LON-CAPA is part of the install process of the
+software. However, in case something needs to be altered, or isn't
+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 />
+<h3>Supported Linux Distros</h3>
 PRELUDE
 
-$content .= "<ul>\n";
-for (@pages) {
+$content .= '<p>LON-CAPA is supported on a variety of Linux distributions.</p>'."\n".
+             '<p>In the list below these are divided into distros with a long
+life cycle, i.e., those for which a particular version is supported by the distributor for 5 years or more, and those with a short life cycle, i.e., those for which a particular version is supported for up to 18 months.</p>'.     
+            '<div style="float: left;">'.
+            '<b>Long life cycle</b><br />'.
+            '<ul>'."\n";
+for (@longlifecycle) {
+    $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
+}
+$content .= '</ul></div>'."\n".
+            '<div style="float: left;">'.
+            '<b>Short life cycle</b><br />'.
+            '<ul>'."\n";
+for (@shortlifecycle) {
+    $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
+}
+$content .= '</ul></div><br clear="all" />'."\n".
+            '<b>Additional information</b><ul>'."\n";
+for (@ancillary) {
     $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
 }
+$content .= '</ul><br />';
+
+
+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 .= "</ul>\n";
 
-$content .= <<'POSTLUDE';
+$content .= <<"POSTLUDE";
 <hr />
 <a name="download" />
 <h3>Downloading LON-CAPA</h3>
@@ -101,49 +165,35 @@ You can download the <b>testing version
 http://install.lon-capa.org/versions/loncapa-testing.tar.gz</a>
 (version LATESTTESTINGVERSION).
 </p>
+$testing_content
 TESTINGRELEASE_END
-<p>
-The <b>development release of LON-CAPA</b> is at:
-<a href="http://install.lon-capa.org/versions/loncapa-unstable.tar.gz">
-http://install.lon-capa.org/versions/loncapa-unstable.tar.gz</a>.
-</p>
-<p>
-To view the code development history of LON-CAPA, you can access a <a
-href="http://zaphod.lite.msu.edu/cgi-bin/cvsweb.cgi/">web version</a>
-of our CVS respository. Otherwise, please contact Helen (<a
-href="mailto:helen@lon-capa.org"> helen@lon-capa.org</a>) to request a
-CVS USERNAME.
-</p>
-<p>
-The initial CVS commands would be:
-</p>
-<blockquote>
-<table bgcolor="#aaaaaa" border="1">
-<tr><td>
-<pre>
-export CVSROOT=:pserver:USERNAME@zaphod.lite.msu.edu:/home/cvs 
-cvs login 
-cvs co loncapa
-</pre>
-</td></tr></table>
-</blockquote>
-<p>
-For more information on using CVS, please visit
-<a href="http://www.cvshome.org/">http://www.cvshome.org/</a>
-or read <tt>loncom/build/readme.html</tt> after downloading
-the current version of LON-CAPA as described above.
-</p>
 
+<hr />
 POSTLUDE
 
-my $index = replaceText("Install LON-CAPA", "Install LON-CAPA",
-    $content);
+open(RELEASE, '<', "release.frag");
+$content .= join('',<RELEASE>);
+close(RELEASE);
+
+$content .= "<ul>\n";
+my @testing_pages = ( 
+		      );
+for (@other_pages) {
+    $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
+}
+
+$content .= "</ul>\n";
+
+$links='<link rel="alternate" type="application/rss+xml" title="CVS RSS" href="loncapa.rss" />';
+
+my $index = replaceText("Install LON-CAPA", $links, '<font color="#006600" face="Arial, Helvetica, sans-serif">Documentation/Download</font>',
+			$content);
 
 print INDEX $index;
 close INDEX;
 
 # Build the pages
-for (@pages) {
+for (@longlifecycle,@shortlifecycle,@ancillary,@other_pages,@testing_pages) {
     my ($title, $source) = @$_;
 
     # read in content
@@ -151,7 +201,8 @@ for (@pages) {
     $content = join '', <SOURCE>;
     close SOURCE;
 
-    $content = replaceText($title, '<a href="/">Install LON-CAPA</a> &gt; ' . $title,
+    $content = replaceText($title, '', '<font face="Arial, Helvetica, sans-serif"><a href="/">Documentation/Download</a> &raquo; '.
+                           '</font><font color="#006600" face="Arial, Helvetica, sans-serif">'.$title,
 			   $content);
     open DEST, '>', $source.'.html';
     print DEST $content;