diff --git a/oracle-docs.perl b/oracle-docs.perl index a16021d..f33404c 100755 --- a/oracle-docs.perl +++ b/oracle-docs.perl @@ -20,23 +20,23 @@ @references = ( # Name(0) Code(1) URL(2) - "Documentation Docs ${oracle_documentation_root}", - "Database Administrators Guide Admin ${oracle_documentation_root}server.111/b28310/toc.htm", - "2 Day Developers Guide AppDev2Day ${oracle_documentation_root}appdev.111/b28843/toc.htm", - "Advanced Application Developers Guide AppDevAdv ${oracle_documentation_root}appdev.111/b28424/toc.htm", - "Object-Relational Developers Guide AppDevOR ${oracle_documentation_root}appdev.111/b28371/toc.htm", - "Database Concepts Concepts ${oracle_documentation_root}server.111/b28318/toc.htm", - "Data Warehousing Guide DataWarehousing ${oracle_documentation_root}server.111/b28313/toc.htm", - "Database Error Messages Errors ${oracle_documentation_root}server.111/b28278/toc.htm", - "SQL Reference SQL ${oracle_documentation_root}server.111/b28286/toc.htm", - "Java Developers Guide Java ${oracle_documentation_root}java.111/b31225/toc.htm", - "JDBC Developers Guide and Reference JDBC ${oracle_documentation_root}java.111/b31224/toc.htm", - "Database Master Glossary Glossary ${oracle_documentation_root}mix.111/b14388/toc.htm", - "Performance Tuning Guide Tuning ${oracle_documentation_root}server.111/b28274/toc.htm", - "PL/SQL Language Reference PLSQL ${oracle_documentation_root}appdev.111/b28370/toc.htm", - "PL/SQL Packages and Types Reference PLSQLPkgTyp ${oracle_documentation_root}appdev.111/b28419/toc.htm", - "Database Master Index Index ${oracle_documentation_root}mix.111/b14387/toc.htm", - "Database Reference Reference ${oracle_documentation_root}server.111/b28320/toc.htm" + "Documentation Docs ${oracle_documentation_root}", + "Database Administrators Guide Admin ${oracle_documentation_root}server.111/b28310/toc.htm", + "2 Day Developers Guide AppDev2Day ${oracle_documentation_root}appdev.111/b28843/toc.htm", + "Advanced Application Developers Guide AppDevAdv ${oracle_documentation_root}appdev.111/b28424/toc.htm", + "Object-Relational Developers Guide AppDevOR ${oracle_documentation_root}appdev.111/b28371/toc.htm", + "Database Concepts Concepts ${oracle_documentation_root}server.111/b28318/toc.htm", + "Data Warehousing Guide DataWarehousing ${oracle_documentation_root}server.111/b28313/toc.htm", + "Database Error Messages Errors ${oracle_documentation_root}server.111/b28278/toc.htm", + "SQL Reference SQL ${oracle_documentation_root}server.111/b28286/toc.htm", + "Java Developers Guide Java ${oracle_documentation_root}java.111/b31225/toc.htm", + "JDBC Developers Guide and Reference JDBC ${oracle_documentation_root}java.111/b31224/toc.htm", + "Database Master Glossary Glossary ${oracle_documentation_root}mix.111/b14388/toc.htm", + "Performance Tuning Guide Tuning ${oracle_documentation_root}server.111/b28274/toc.htm", + "PL/SQL Language Reference PLSQL ${oracle_documentation_root}appdev.111/b28370/toc.htm", + "PL/SQL Packages and Types Reference PLSQLPkgTyp ${oracle_documentation_root}appdev.111/b28419/toc.htm", + "Database Master Index Index ${oracle_documentation_root}mix.111/b14387/toc.htm", + "Database Reference Reference ${oracle_documentation_root}server.111/b28320/toc.htm" ); # Prefix to use in the generated template names: @@ -52,15 +52,27 @@ $output_type = $ARGV[1]; if ($output_type eq "xslt") { - print "\n" . - "\n" . - "\n"; + print < + + + +END_OF_HEADER +; } # One-off hard-coded template for a link to the root of the documentation set, using the URL as the anchor text. # This is used in several places in the INFO 212 course book and updating them is more of a pain than implementing this! if ($output_type eq "xslt") { - print "" . $oracle_documentation_root . "\n"; + print < + + ${oracle_documentation_root} + + + +END_OF_TEMPLATE +; # print "" . $oracle_documentation_root . "\n"; } @@ -113,17 +125,21 @@ # Generate an XSLT meta-template for generating either an HTML or a LaTeX producing template. # Arguments: (, , ) sub generate_xsl_metatemplate { - return "" . - "" . # mode=\"hyperlink-internal\">" . - "" . $_[2] . "" . - "" . "" . " " . $_[0] . "" . - "" . - ""; - + return < + + ${_[2]} + + ${_[0]} + + + +END_OF_TEMPLATE +; # Nope, wrong tree here: return "" . - "" . "\\href{" . $_[2] . "}" . "{" . "" . " " . $_[0] . "}" . "" . - "" . "" . "" . " " . $_[0] . "" . "" . + "" . "\\href{" . $_[2] . "}" . "{" . "" . " " . $_[0] . "}" . "" . + "" . "" . "" . " " . $_[0] . "" . "" . ""; } @@ -131,7 +147,7 @@ # Produce the actual XML markup to be used in authoring (just to provide a handy list of them all): # Arguments: () sub generate_xml { - return "<" . $oracle_prefix . $_[0]. "/>"; + return "<" . $oracle_prefix . $_[0]. " />"; } # Produce XML markup for a link to a section of the documentation (deprecated): @@ -141,11 +157,11 @@ # Generate an XSLT template for HTML output (deprecated): sub generate_xsl_template_for_html { - return "" . $_[1] . "" . " " . $_[2] . ""; + return "" . $_[1] . "" . " " . $_[2] . ""; } # Generate an XSLT template for LaTeX output (deprecated): sub generate_xsl_template_for_latex { - return "\\href{" . $_[1] . "}{ " . $_[2] . "}"; + return "\\href{" . $_[1] . "}{ " . $_[2] . "}"; }