Subversion Repositories DevTools

Rev

Rev 5709 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5709 Rev 6177
Line 1... Line 1...
1 
########################################################################
 1 
########################################################################
2 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
 2 
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
3 
#
 3 
#
4 
# Module name   : test_pod_html.pl
 4 
# Module name   : test_pod_html.pl
5 
# Module type   : Makefile system
 5 
# Module type   : Makefile system
6 
# Compiler(s)   : Perl
 6 
# Compiler(s)   : Perl
7 
# Environment(s): jats
 7 
# Environment(s): jats
Line 24... Line 24...
24 
use JatsError;
 24 
use JatsError;
25 
use FileUtils;
 25 
use FileUtils;
26 
use JatsCopy;
 26 
use JatsCopy;
27 
InitFileUtils();
 27 
InitFileUtils();
28 
 
 28 
 
29 
 
 - 
 
30 
my $opt_root = $ENV{'GBE_CORE'};
 29 
my $opt_root = $ENV{'GBE_CORE'};
31 
my $opt_package = $opt_root . '/pkg/core_devl';
 30 
my $opt_package = $opt_root . '/pkg/core_devl';
32 
my $opt_interface = $opt_root . '/interface';
 31 
my $opt_interface = $opt_root . '/interface';
33 
my $opt_verbose = $ENV{GBE_VERBOSE} || '0';
 32 
my $opt_verbose = $ENV{GBE_VERBOSE} || '0';
34 
my $opt_force = '1';
 33 
my $opt_force = '1';
35 
 
 34 
 
36 
use FileUtils;
 35 
use FileUtils;
37 
use JatsCopy;
 36 
use JatsCopy;
38 
 
 37 
 
39 
Message ("root: $opt_root");
 38 
Message ("Root: $opt_root");
40 
if ( $opt_force >= 0 )
 39 
if ( $opt_force >= 0 )
41 
{
 40 
{
42 
    Message "Copy in Basic HTML - will clobber existing WEB Page Base";
 41 
    Message "Copy in Basic HTML - will clobber existing WEB Page Base";
43 
    for my $dir (qw(HTML))
 42 
    for my $dir (qw(HTML))
44 
    {
 43 
    {
Line 56... Line 55...
56 
#   Generate the HTML documenation from the POD
 55 
#   Generate the HTML documenation from the POD
57 
#   Generate the HTML TOc
 56 
#   Generate the HTML TOc
58 
#
 57 
#
59 
Message ("Generate HTML documentation" );
 58 
Message ("Generate HTML documentation" );
60 
use JatsDocTools::JatsDocTools;
 59 
use JatsDocTools::JatsDocTools;
- 
 
 60 
JatsDocTools::UpdateHTML(
61 
JatsDocTools::UpdateHTML( 'force' => $opt_force,
 61 
                          'force' => $opt_force,
62 
                          'verbose' => $opt_verbose,
 62 
                          'verbose' => $opt_verbose,
63 
                          'htmldir' => FullPath("$opt_package/HTML"),
 63 
                          'htmldir' => FullPath("$opt_package/HTML"),
64 
                          'prefix' => FullPath($opt_package),
 64 
                          #'prefix' => FullPath($opt_package),
65 
                          'prefix' => FullPath($opt_root),
 65 
                          'prefix' => FullPath($opt_root),
66 
                          'cacheDir' => FullPath($opt_interface),
 66 
                          'cacheDir' => FullPath($opt_interface),
67 
                          'ChangeLog' => FullPath("$opt_root/ChangeLog.txt"),
 67 
                          'ChangeLog' => FullPath("$opt_root/ChangeLog.txt"),
68 
                          'index' => 1,
 68 
                          'index' => 1,
69 
                          );
 69 
                          );