Diff for /doc/build/generate_web_pages.pl between versions 1.52 and 1.64

version 1.52, 2011/06/08 22:10:49 version 1.64, 2022/02/28 18:43:50
Line 22  The point of this is to look like the ma Line 22  The point of this is to look like the ma
 # Title, source  # Title, source
   
 my @longlifecycle = (  my @longlifecycle = (
               ['CentOS Linux 5 Install','centos5_install'],                ['CentOS Linux 7 Install','centos7_install'],
                 ['CentOS Linux 6 Install','centos6_install'],
                 ['Scientific Linux 7 Install','scientific7_install'],
               ['Scientific Linux 6 Install','scientific6_install'],                ['Scientific Linux 6 Install','scientific6_install'],
               ['Scientific Linux 5 Install','scientific5_install'],                ['Red Hat Enterprise Linux 8 Install','RHEL8_install'],
                 ['Red Hat Enterprise Linux 7 Install','RHEL7_install'],
               ['Red Hat Enterprise Linux 6 Install','RHEL6_install'],                ['Red Hat Enterprise Linux 6 Install','RHEL6_install'],
               ['Red Hat Enterprise Linux 5 Install','RHEL5_install'],                ['Oracle Linux 8 Install','oracle8_install'],
               ['Red Hat Enterprise Linux 4 Install','RHEL4_install'],                ['Oracle Linux 7 Install','oracle7_install'],
                 ['Oracle Linux 6 Install','oracle6_install'],
                 ['AlmaLinux 8 Install','alma8_install'],
                 ['Rocky Linux 8 Install','rocky8_install'],
                 ['SuSE Linux Enterprise Server 15 Install', 'sles15_install'],
                 ['SuSE Linux Enterprise Server 12 Install', 'sles12_install'],
               ['SuSE Linux Enterprise Server 11 Install', 'sles11_install'],                ['SuSE Linux Enterprise Server 11 Install', 'sles11_install'],
               ['SuSE Linux Enterprise Server 10 Install', 'sles10_install'],                ['Ubuntu 20.04 LTS Server', 'ubuntu20LTS_install'],
               ['SuSE Linux Enterprise Server 9 Install', 'sles9_install'],                ['Ubuntu 18.04 LTS Server', 'ubuntu18LTS_install'],
               ['Ubuntu 10.04 LTS Server', 'ubuntu10LTS_install'],                ['Ubuntu 16.04 LTS Server', 'ubuntu16LTS_install'],
               ['Ubuntu 8.04 LTS Server', 'ubuntu8LTS_install'],                ['Ubuntu 14.04 LTS Server', 'ubuntu14LTS_install'],
                 ['CentOS Stream 8 Install','centos8-stream_install'],
       );        );
   
   my @otherlifecycle = (
                 ['CentOS Linux 8 Install','centos8_install'],
                 );
   
 my @shortlifecycle = (  my @shortlifecycle = (
               ['Fedora 15 Install', 'F15_install'],                ['Fedora 35 Install', 'FC35_install'],
               ['Fedora 14 Install', 'F14_install'],                ['Fedora 34 Install', 'FC34_install'],
               ['Fedora 13 Install', 'F13_install'],                ['Fedora 33 Install', 'FC33_install'],
               ['Fedora 12 Install', 'F12_install'],                ['Fedora 32 Install', 'FC32_install'],
               ['Fedora 11 Install', 'F11_install'],                ['Fedora 31 Install', 'FC31_install'],
               ['Fedora 10 Install', 'F10_install'],                ['Fedora 30 Install', 'FC30_install'],
               ['SuSE Linux 11.4 Install', 'suse11.4_install'],                ['Fedora 29 Install', 'FC29_install'],
               ['SuSE Linux 11.3 Install', 'suse11.3_install'],                ['Fedora 28 Install', 'FC28_install'],
               ['SuSE Linux 11.2 Install', 'suse11.2_install'],                ['Fedora 27 Install', 'FC27_install'],
               ['SuSE Linux 11.1 Install', 'suse11.1_install'],                ['Fedora 26 Install', 'FC26_install'],
                 ['Fedora 25 Install', 'F25_install'],
               );                );
     
 my @ancillary = (  my @ancillary = (
Line 96  PRELUDE Line 110  PRELUDE
   
 $content .= '<p>LON-CAPA is supported on a variety of Linux distributions.</p>'."\n".  $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               '<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>'.       life cycle, i.e., those for which a particular version is supported by the distributor for 5 years or more, those with a short life cycle, i.e., those for which a particular version is supported for up to 18 months, and those initially advertised with a long lifecycle, later reduced.</p>'.     
             '<div style="float: left;">'.              '<div style="float: left;">'.
             '<b>Long life cycle</b><br />'.              '<b>Long life cycle</b><br />'.
             '<ul>'."\n";              '<ul>'."\n";
Line 110  $content .= '</ul></div>'."\n". Line 124  $content .= '</ul></div>'."\n".
 for (@shortlifecycle) {  for (@shortlifecycle) {
     $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";      $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
 }  }
 $content .= '</ul></div><br clear="all" />'."\n".  $content .= '</ul></div>'."\n".
               '<div style="float: left;">'.
               '<b>Variable life cycle</b><br />'.
               '<ul>'."\n";
   for (@otherlifecycle) {
       $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
   }
   $content .= '</ul></div>'."\n".'<br clear="all" />'."\n".
             '<b>Additional information</b><ul>'."\n";              '<b>Additional information</b><ul>'."\n";
 for (@ancillary) {  for (@ancillary) {
     $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";      $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
Line 176  $content .= "</ul>\n"; Line 197  $content .= "</ul>\n";
   
 $links='<link rel="alternate" type="application/rss+xml" title="CVS RSS" href="loncapa.rss" />';  $links='<link rel="alternate" type="application/rss+xml" title="CVS RSS" href="loncapa.rss" />';
   
 my $index = replaceText("Install LON-CAPA", $links, "Install LON-CAPA",  my $index = replaceText("Install LON-CAPA", $links, '<font color="#006600" face="Arial, Helvetica, sans-serif">Documentation/Download</font>',
  $content);   $content);
   
 print INDEX $index;  print INDEX $index;
 close INDEX;  close INDEX;
   
 # Build the pages  # Build the pages
 for (@longlifecycle,@shortlifecycle,@ancillary,@other_pages,@testing_pages) {  for (@longlifecycle,@shortlifecycle,@otherlifecycle,@ancillary,@other_pages,@testing_pages) {
     my ($title, $source) = @$_;      my ($title, $source) = @$_;
   
     # read in content      # read in content
Line 191  for (@longlifecycle,@shortlifecycle,@anc Line 212  for (@longlifecycle,@shortlifecycle,@anc
     $content = join '', <SOURCE>;      $content = join '', <SOURCE>;
     close 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);     $content);
     open DEST, '>', $source.'.html';      open DEST, '>', $source.'.html';
     print DEST $content;      print DEST $content;

Removed from v.1.52  
changed lines
  Added in v.1.64


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