[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.26 and 1.28

version 1.26, 2005/10/05 23:34:56 version 1.28, 2006/06/06 15:13:42
Line 45  $shell =~ s/\r/\n/g; Line 45  $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 80  for (@pages) { Line 81  for (@pages) {
   
 $content .= "</ul>\n";  $content .= "</ul>\n";
   
   open(RELEASE, '<', "release.frag");
   $content .= join('',<RELEASE>);
   close(RELEASE);
   
 $content .= <<'POSTLUDE';  $content .= <<'POSTLUDE';
 <hr />  <hr />
 <a name="download" />  <a name="download" />
Line 118  for (@other_pages) { Line 123  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;
Line 133  for (@pages,@other_pages) { Line 140  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.26  
changed lines
  Added in v.1.28

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