release: 0.1.7

[lilypond.git] / bin / make-website.in
diff --git a/bin/make-website.in b/bin/make-website.in

index 28f85f79bad9f5f3a3b18b7d3f5a5204574ffd6e..e6796215f3b25b4f2518a4718b79a9c671d245f3 100644 (file)
--- a/bin/make-website.in
+++ b/bin/make-website.in
@@ -1,12 +1,12 @@
  #!@PERL@ -w
-# stupid script to generate WWW site.
+# stupid script to generate WWW site. -*-Perl-*-
  
  use FileHandle;
  use Getopt::Long;
  my $lily_version;
  my $footstr;
  my $mw_id = "<!make_website!>";
-my $id_str = "make-website 0.3";
+my $id_str = "make-website 0.4";
  
  my $TAR="tar";
  my $MAKE="make";
@@ -40,12 +40,11 @@ sub set_html_footer
      my $username=$pw[6];
  
      $footstr = 
-       "\n<hr>Please take me <a href=index.html>back to the index</a>\n<hr>
+       "\n<hr>Please take me <a href=index.html>back to the LilyPond index</a>\n<hr>
  <font size=-1>
-This page was generated by <code>" . $id_str . "</code> from lilypond-$lily_version by
+This page was built using <code>" . $id_str . "</code> from lilypond-$lily_version by
  <p>
  <address><br>$username <a href=mailto:$MAILADRESS>&lt<!bla>$MAILADRESS</a>&gt</address>
-<p>" . `date` . "
  <p></font>";
  }
      
@@ -76,7 +75,7 @@ sub my_system
  
  local $base="lilypond/";
  local @examples=("twinkle", "multi", "wohltemperirt" ,"standchen", "toccata-fuga-E", 
-                "scsii-menuetto", "collisions", "cadenza", "scales");
+                "scsii-menuetto", "collisions", "cadenza", "scales", "twinkle-pop");
  
  # rhythm, scales, 
  
@@ -104,7 +103,7 @@ sub gen_manuals
  {
      print "generating TeX doco list\n";
      open HTMLLIST, ">tex_manuals.html";
-    print HTMLLIST "<HTML><TITLE>LilyPond manuals</title>\n" ;
+    print HTMLLIST "<HTML><TITLE>PostScript Manuals</TITLE>\n" ;
      print HTMLLIST "<BODY><h1>LilyPond manuals (in PostScript)</h1>";
      print HTMLLIST "<ul>\n";
      my @todo=();
@@ -124,7 +123,7 @@ sub gen_list
  {
      print "generating HTML list\n";
      open HTMLLIST, ">example_output.html";
-    print HTMLLIST "<html><body><title>LilyPond examples</title>\n
+    print HTMLLIST "<html><body><TITLE>Rendered Examples</TITLE>\n
  These example files are taken from the LilyPond distribution.\n
  LilyPond currently only outputs TeX and MIDI. The pictures and\n
   PostScript files were generated using TeX, Ghostscript and some graphics tools. \n
@@ -192,8 +191,10 @@ sub edit_html
         $subst .= $back if (! $a =~ /index.html/ );
         $file =~ s/$sep/$subst$sep/g ;
         $file =~ s/\.gif/\.$image/g;
+       $file =~ s!<TITLE>(.*)</TITLE>!<TITLE>LilyPond WWW: $1</TITLE>!g;
         open H, ">$a";
         print H $mw_id;
+       
         print H $file;
         close H;
      }
@@ -213,7 +214,7 @@ sub copy_txt_file
  sub copy_files
  {  
      print "copying files\n";
-    print `ln -s $depth/out ./docxx` if ( ! -x "docxx" ) ;
+    my_system "ln -s $depth/out ./docxx" if ( ! -x "docxx" ) ;
      my_system "cp $depth/TODO ./TODO.txt",
      "cp $depth/ANNOUNCE ./ANNOUNCE.txt",
      "cp $depth/NEWS ./NEWS.txt",
@@ -237,7 +238,13 @@ sub set_images
  
  sub docxx_update
  {
-    my_system "$MAKE -C $depth doc++";
+    open BANNER, ">/tmp/lilybanner.html";
+    my $ban = $footstr;
+    $ban =~ s!index.html!../index.html!g;
+    print BANNER $ban;
+    close BANNER;
+    my_system "$MAKE -C $depth docxx-opts=\"-p -S -k -B /tmp/lilybanner.html\" doc++";
+    # should add a cute header.
  }
  
  sub do_tar
@@ -283,8 +290,8 @@ sub main
      if (! $opt_noexamples) {
         gen_examples;
         gen_list;
+       gen_manuals;
      }
-    gen_manuals;
      set_images;
  
      edit_html;