mirror of
https://github.com/MariaDB/server.git
synced 2025-01-16 20:12:31 +01:00
A few required additions to XML docbook fixup script.
Added url to success story form in manual. Docs/Support/docbook-fixup.pl: A few required additions to script. Docs/manual.texi: Added url to success story form.
This commit is contained in:
parent
3a2c8b9a1b
commit
0d4a628348
2 changed files with 47 additions and 5 deletions
|
@ -1,11 +1,19 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
sub fix {
|
||||
sub fix_underscore {
|
||||
$str = shift;
|
||||
$str =~ tr/_/-/;
|
||||
return $str;
|
||||
};
|
||||
|
||||
sub strip_emph {
|
||||
$str = shift;
|
||||
$str =~ s{<emphasis>(.+?)</emphasis>}
|
||||
{$1}gs;
|
||||
return $str;
|
||||
};
|
||||
|
||||
|
||||
$data = join "", <STDIN>;
|
||||
|
||||
print STDERR "Changing @@ to @...\n";
|
||||
|
@ -13,9 +21,9 @@ $data =~ s/@@/@/gs;
|
|||
|
||||
print STDERR "Changing '_' to '-' in references...\n";
|
||||
$data =~ s{id=\"(.+?)\"}
|
||||
{"id=\"".&fix($1)."\""}gsex;
|
||||
{"id=\"".&fix_underscore($1)."\""}gsex;
|
||||
$data =~ s{linkend=\"(.+?)\"}
|
||||
{"linkend=\"".&fix($1)."\""}gsex;
|
||||
{"linkend=\"".&fix_underscore($1)."\""}gsex;
|
||||
|
||||
print STDERR "Changing ULINK to SYSTEMITEM...\n";
|
||||
$data =~ s{<ulink url=\"(.+?)\"></ulink>}
|
||||
|
@ -26,7 +34,7 @@ $data =~ s{<informalfigure>(.+?)</informalfigure>}
|
|||
{}gs;
|
||||
|
||||
print STDERR "Adding PARA inside ENTRY...\n";
|
||||
$data =~ s{<entry>(.+?)</entry>}
|
||||
$data =~ s{<entry>(.*?)</entry>}
|
||||
{<entry><para>$1</para></entry>}gs;
|
||||
|
||||
print STDERR "Removing mailto: from email addresses...\n";
|
||||
|
@ -42,6 +50,38 @@ print STDERR "Removing COLSPEC...\n";
|
|||
$data =~ s{\n *<colspec colwidth=\"[0-9]+\*\">}
|
||||
{}gs;
|
||||
|
||||
# 2002-01-31 arjen@mysql.com
|
||||
print STDERR "Making first row in table THEAD...\n";
|
||||
$data =~ s{([ ]*)<tbody>\n([ ]*<row>(.+?)</row>)}
|
||||
{$1<thead>\n$2\n$1</thead>\n$1<tbody>}gs;
|
||||
|
||||
# 2002-01-31 arjen@mysql.com
|
||||
print STDERR "Removing EMPHASIS inside THEAD...\n";
|
||||
$data =~ s{<thead>(.+?)</thead>}
|
||||
{"<thead>".&strip_emph($1)."</thead>"}gsex;
|
||||
|
||||
# 2002-01-31 arjen@mysql.com
|
||||
print STDERR "Removing lf before /PARA in ENTRY...\n";
|
||||
$data =~ s{(<entry><para>(.+?))\n(</para></entry>)}
|
||||
{$1$3}gs;
|
||||
|
||||
# 2002-01-31 arjen@mysql.com
|
||||
print STDERR "Removing whitespace before /PARA...\n";
|
||||
$data =~ s{[ ]+</para>}
|
||||
{</para>}gs;
|
||||
|
||||
# 2002-01-31 arjen@mysql.com
|
||||
print STDERR "Removing empty PARA in ENTRY...\n";
|
||||
$data =~ s{<entry><para></para></entry>}
|
||||
{<entry></entry>}gs;
|
||||
|
||||
# 2002-01-31 arjen@mysql.com
|
||||
print STDERR "Removing PARA around INDEXENTRY if no text in PARA...\n";
|
||||
$data =~ s{<para>((<indexterm role=\"(cp|fn)\">(<(primary|secondary)>[^<]+?</(primary|secondary)>)+?</indexterm>)+?)[\n]*</para>[\n]*}
|
||||
{$1\n}gs;
|
||||
|
||||
# -----
|
||||
|
||||
@apx = ("Users", "MySQL Testimonials", "News",
|
||||
"GPL-license", "LGPL-license");
|
||||
|
||||
|
|
|
@ -1969,8 +1969,10 @@ for different purposes, with a description of each site.
|
|||
This information can give you an idea of who uses the @code{MySQL}
|
||||
database software and how @code{MySQL Server} can fulfill
|
||||
requirements.
|
||||
|
||||
Do let us know about @emph{your} site or success story too!
|
||||
|
||||
@uref{http://www.mysql.com/feedback/testimonial.php}.
|
||||
|
||||
@item Software
|
||||
Find, buy, download several applications and wrappers that make
|
||||
use of the @code{MySQL} server.
|
||||
|
|
Loading…
Reference in a new issue