[BACK]Return to generate_web_pages.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / build

Diff for /doc/build/generate_web_pages.pl between versions 1.24 and 1.65

version 1.24, 2005/09/05 02:14:11 version 1.65, 2024/08/05 23:11:58
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 @longlifecycle = (
 #      ['Red Hat 7.3 Install', 'rh73'],                ['Red Hat Enterprise Linux 9 Install','RHEL9_install'], 
 #      ['Fedora Install', 'fedora_install'],                ['Red Hat Enterprise Linux 8 Install','RHEL8_install'],
               ['Fedora Core 3 Install', 'FC3_install'],                ['Red Hat Enterprise Linux 7 Install','RHEL7_install'],
               ['Fedora Core 4 Install', 'FC4_install'],                ['Oracle Linux 9 Install','oracle9_install'],
               ['Red Hat Enterprise Linux 4 Install','RHEL4_install'],                ['Oracle Linux 8 Install','oracle8_install'],
               ['SuSE Linux Professional 9.2 Install', 'suse9.2_install'],                ['Oracle Linux 7 Install','oracle7_install'],
 #      ['Manual Install from Tarballs', 'manual_install'],                ['AlmaLinux 9 Install','alma9_install'],
       ['Upgrading from Previous LON-CAPA install', 'upgrade'],                ['AlmaLinux 8 Install','alma8_install'],
       ['LON-CAPA License (Gnu Public License)', 'license']                ['Rocky Linux 9 Install','rocky9_install'],
                 ['Rocky Linux 8 Install','rocky8_install'],
                 ['SuSE Linux Enterprise Server 15 Install', 'sles15_install'],
                 ['SuSE Linux Enterprise Server 12 Install', 'sles12_install'],
                 ['Debian 12', 'debian12_install.frag'],
                 ['Debian 11', 'debian11_install.frag'],
                 ['Debian 10', 'debian10_install.frag'],
                 ['Ubuntu 24.04 LTS Server', 'ubuntu24LTS_install'],
                 ['Ubuntu 22.04 LTS Server', 'ubuntu22LTS_install'],
                 ['Ubuntu 20.04 LTS Server', 'ubuntu20LTS_install'],
                 ['Ubuntu 18.04 LTS Server', 'ubuntu18LTS_install'],
                 ['Ubuntu 16.04 LTS Server', 'ubuntu16LTS_install'],
                 ['CentOS Stream 9 Install','centos9-stream_install'],
                 ['CentOS Linux 7 Install','centos7_install'],
       );        );
   
   my @shortlifecycle = (
                 ['Fedora 40 Install', 'FC40_install'],
                 ['Fedora 39 Install', 'FC39_install'],
                 ['Fedora 38 Install', 'FC38_install'],
                 );
    
   my @ancillary = (
                 ['Upgrading from Previous LON-CAPA install', 'upgrade'],
                 ['LON-CAPA License (Gnu Public License)', 'license']
                 );
   
 my @other_pages = (   my @other_pages = ( 
     ['Developer Information', 'dev'],      ['Developer Information', 'dev'],
     ['Configuration Information', 'config'],      ['Configuration Information', 'config'],
Line 43  $shell =~ s/\r/\n/g; Line 68  $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 64  easily done by installing on a dedicated Line 90  easily done by installing on a dedicated
 operating system.</p>  operating system.</p>
   
 <p>The configuring of LON-CAPA is part of the install process of the  <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  software. However, in case something needs to be altered, or isn't
 working, here is some <a href="config.html">information on configuring  working, here is some <a href="config.html">information on configuring
 LON-CAPA</a>.</p>  LON-CAPA</a>.</p>
   
 <hr />  <hr />
   <h3>Supported Linux Distros</h3>
 PRELUDE  PRELUDE
   
 $content .= "<ul>\n";  $content .= '<p>LON-CAPA is supported on a variety of Linux distributions.</p>'."\n".
 for (@pages) {               '<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, 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;">'.
               '<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>'."\n".'<br clear="all" />'."\n".
               '<b>Additional information</b><ul>'."\n";
   for (@ancillary) {
     $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";      $content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n";
 }  }
   $content .= '</ul><br />';
   
 $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 104  You can download the <b>testing version Line 159  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";
   my @testing_pages = ( 
         );
 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";
 }  }
   
 $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, '<font color="#006600" face="Arial, Helvetica, sans-serif">Documentation/Download</font>',
    $content);
   
 print INDEX $index;  print INDEX $index;
 close INDEX;  close INDEX;
   
 # Build the pages  # Build the pages
 for (@pages,@other_pages) {  for (@longlifecycle,@shortlifecycle,@otherlifecycle,@ancillary,@other_pages,@testing_pages) {
     my ($title, $source) = @$_;      my ($title, $source) = @$_;
   
     # read in content      # read in content
Line 131  for (@pages,@other_pages) { Line 195  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, '', '<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.24  
changed lines
  Added in v.1.65

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