--- doc/build/generate_web_pages.pl	2005/09/05 02:14:11	1.24
+++ doc/build/generate_web_pages.pl	2006/10/09 23:40:35	1.31
@@ -22,16 +22,24 @@ The point of this is to look like the ma
 # Title, source
 
 my @pages = ( 
-#	      ['Red Hat 7.3 Install', 'rh73'],
-#	      ['Fedora Install', 'fedora_install'],
-              ['Fedora Core 3 Install', 'FC3_install'],
+	      ['Fedora Core 5 Install', 'FC5_install'],
               ['Fedora Core 4 Install', 'FC4_install'],
+#             ['Fedora Core 3 Install', 'FC3_install'],
+#	      ['Fedora Install', 'fedora_install'],
+#	      ['Red Hat 7.3 Install', 'rh73'],
               ['Red Hat Enterprise Linux 4 Install','RHEL4_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'],
 	      ['Upgrading from Previous LON-CAPA install', 'upgrade'],
 	      ['LON-CAPA License (Gnu Public License)', 'license']
 	      );
+
+my @testing_pages = ( 
+		      );
 my @other_pages = ( 
 		    ['Developer Information', 'dev'],
 		    ['Configuration Information', 'config'],
@@ -43,10 +51,11 @@ $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;
 
@@ -78,7 +87,18 @@ for (@pages) {
 
 $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 />
 <a name="download" />
 <h3>Downloading LON-CAPA</h3>
@@ -104,11 +124,16 @@ 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
 
 <hr />
 POSTLUDE
 
+open(RELEASE, '<', "release.frag");
+$content .= join('',<RELEASE>);
+close(RELEASE);
+
 $content .= "<ul>\n";
 for (@other_pages) {
     $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
@@ -116,14 +141,16 @@ for (@other_pages) {
 
 $content .= "</ul>\n";
 
-my $index = replaceText("Install LON-CAPA", "Install LON-CAPA",
-    $content);
+$links='<link rel="alternate" type="application/rss+xml" title="CVS RSS" href="loncapa.rss" />';
+
+my $index = replaceText("Install LON-CAPA", $links, "Install LON-CAPA",
+			$content);
 
 print INDEX $index;
 close INDEX;
 
 # Build the pages
-for (@pages,@other_pages) {
+for (@pages,@other_pages,@testing_pages) {
     my ($title, $source) = @$_;
 
     # read in content
@@ -131,7 +158,7 @@ for (@pages,@other_pages) {
     $content = join '', <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);
     open DEST, '>', $source.'.html';
     print DEST $content;