1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/perl
use strict;
#export XSL=/usr/local/share/xml/xsl/docbook-xsl
#export FOP=/usr/local/share/xml/fop
unless (-d "html/JTVUserManual") {
execute("");
execute("cd JTVUserManual;xsltproc -o single.html \$XSL/html/docbook.xsl JTVUserManual.xml");
execute("cd JTVUserManual;xsltproc \$XSL/html/chunk.xsl JTVUserManual.xml ");
execute("cd JTVUserManual;xsltproc -o JTVUserManual.fo \$XSL/fo/docbook.xsl JTVUserManual.xml ");
execute("cd JTVUserManual; \$FOP/fop -fo JTVUserManual.fo -pdf JTVUserManual.pdf");
execute("mkdir html");
execute("mkdir html/JTVUserManual");
execute("mv JTVUserManual/JTVUserManual.pdf html/JTVUserManual");
execute("mv JTVUserManual/*.html html/JTVUserManual");
execute("cp -r JTVUserManual/figures html/JTVUserManual");
}
unless (-d "html/JTVProgrammerGuide") {
execute("");
execute("cd JTVProgrammerGuide;xsltproc -o single.html \$XSL/html/docbook.xsl JTVProgrammerGuide.xml");
execute("cd JTVProgrammerGuide;xsltproc \$XSL/html/chunk.xsl JTVProgrammerGuide.xml ");
execute("cd JTVProgrammerGuide;xsltproc -o JTVProgrammerGuide.fo \$XSL/fo/docbook.xsl JTVProgrammerGuide.xml ");
execute("cd JTVProgrammerGuide;\$FOP/fop -fo JTVProgrammerGuide.fo -pdf JTVProgrammerGuide.pdf");
execute("mkdir html");
execute("mkdir html/JTVProgrammerGuide");
execute("mv JTVProgrammerGuide/JTVProgrammerGuide.pdf html/JTVProgrammerGuide");
execute("mv JTVProgrammerGuide/*.html html/JTVProgrammerGuide");
execute("cp -r JTVProgrammerGuide/figures html/JTVProgrammerGuide");
}
sub execute {
my $cmd = shift();
print STDERR "$cmd\n";
system($cmd);
}
|
