Commit ad0149b9 authored by jcole@sarvik.tfr.cafe.ee's avatar jcole@sarvik.tfr.cafe.ee
Browse files

docbook-fixup.pl: 

  Fixed some issues for O'Reilly.
  * Remove "mailto:" from @email{} references in XML output. Good for normal XML of course, but bad when printing.
  * Removing (Cross)References for sections that have been excluded from printed manual.
  * In several titles, spaces are missing. You see a title like: <title>Speed of <command>INSERT</command>Queries</title>.
parent 5fedd2dd

BitKeeper/etc/logging_ok

+1 −0
Original line number Diff line number Diff line
@@ -36,3 +36,4 @@ tonu@hundin.mysql.fi 
tonu@volk.internalnet

tonu@x153.internalnet

tonu@x3.internalnet

jcole@sarvik.tfr.cafe.ee

Docs/Support/docbook-fixup.pl

+24 −0
Original line number Diff line number Diff line
@@ -29,6 +29,14 @@ print STDERR "Adding PARA inside ENTRY...\n"; 
$data =~ s{<entry>(.+?)</entry>}

          {<entry><para>$1</para></entry>}gs;



print STDERR "Removing mailto: from email addresses...\n";

$data =~ s{mailto:}

          {}gs;



print STDERR "Fixing spacing problem with titles...\n";

$data =~ s{</(\w+)>(\w+)}

          {</$1> $2}gs;



@apx = ("Users", "MySQL Testimonials", "News",

        "GPL-license", "LGPL-license");
@@ -36,6 +44,22 @@ foreach $apx (@apx) { 
  print STDERR "Removing appendix $apx...\n";

  $data =~ s{<appendix id=\"$apx\">(.+?)</appendix>}

            {}gs;



  print STDERR " ... Building list of removed nodes ...\n";

  foreach(split "\n", $&) {

    push @nodes, $2 if(/<(\w+) id=\"(.+?)\">/)

  };

};



print STDERR "Fixing references to removed nodes...\n";

foreach $node (@nodes) {

  $web = $node;

  $web =~ s/[ ]/_/;

  $web = "http://www.mysql.com/doc/" .

         (join "/", (split //, $web)[0..1])."/$web.html";

  print STDERR "$node -> $web\n";

  $data =~ s{<(\w+) linkend=\"$node\">}

            {$web}gs;

};



print STDOUT $data;