Subversion Repositories DevTools

########################################################################

# Copyright (C) 1998-2011 Vix Technology, All rights reserved

#

# Module name   : test_pod_html.pl

# Module type   : Makefile system

# Compiler(s)   : Perl

# Environment(s): jats

#

# Description   :

#

# Usage:

#

# Version   Who      Date        Description

#

#......................................................................#

require 5.008_002;

use strict;

use warnings;

use Pod::Usage;

use Getopt::Long;

use JatsError;

use FileUtils;

use JatsCopy;

InitFileUtils();

my $opt_root = $ENV{'GBE_CORE'};

my $opt_package = $opt_root . '/pkg/core_devl';

my $opt_interface = $opt_root . '/interface';

my $opt_verbose = $ENV{GBE_VERBOSE} || '0';

my $opt_force = '1';

use FileUtils;

use JatsCopy;

Message ("root: $opt_root");

if ( $opt_force >= 0 )

{

    Message "Copy in Basic HTML - will clobber existing WEB Page Base";

    for my $dir (qw(HTML))

    {

        Message "Copy in: $dir";

        CopyDir ( "$opt_root/$dir", $opt_package,

                    'IgnoreDirs' => ['LOCAL', 'JatsDocTools'],

                    'KeepSrcTail' => 1);

    }

    #Message "Copy in this test page";

    #CopyFile ('test_pod_html.pl', "$opt_root/TOOLS" );

    TouchFile ("$opt_root/TOOLS/LOCAL/test_pod_html.pl");

}

#

#   Generate the HTML documenation from the POD

#   Generate the HTML TOc

#

Message ("Generate HTML documentation" );

use JatsDocTools::JatsDocTools;

JatsDocTools::UpdateHTML( 'force' => $opt_force,

                          'verbose' => $opt_verbose,

                          'htmldir' => FullPath("$opt_package/HTML"),

                          'prefix' => FullPath($opt_package),

                          'prefix' => FullPath($opt_root),

                          'cacheDir' => FullPath($opt_interface),

                          'ChangeLog' => FullPath("$opt_root/ChangeLog.txt"),

                          'index' => 1,

                          );

Message ("Path", FullPath($opt_root) );

=pod

=for htmltoc    GENERAL::Test::A Nice Name7::A Nice Name

=head1 NAME

pod_hmtl - POD to HTML Test Page

=head1 SYNOPSIS

  jats pod test page [options]

 Options:

    -help[=n]           - brief help message

    -help -help         - Detailed help message

=head1 OPTIONS

=over 8

=item B<-help[=n]>

Print a brief help message and exits.

The verbosity of the help text can be controlled by setting the help level to a

number in the range of 1 to 3, or by invoking the option multiple times.

=back

=head1 DESCRIPTION

This utility is used by the automated build system to create a workspace

for the view. The main function of this utility is to invoke the correct

utility for the creation of a workspace.

The utility will examine the -label option and detect the required Version

Control System. It will then invoke a suitable tools to create the workspace.

=for htmlclass Note

NOTE: This is a note. It can only be in one paragraph and it will not allow

other stuff within it.

Some Text.

=for htmlclass Warning

WARNING: This is a note. It can only be in one paragraph and it will not allow

other stuff within it.

Some text

=for htmlclass Tip

Tip: This is a note. It can only be in one paragraph and it will not allow

other stuff within it.

=for htmlclass Tip

Tip: This is a note. It can only be in one paragraph and it will not allow

other stuff within it.

The label must start with a Version Control Header. This is of the form of:

    XXX::Data

Where XXX identifies the Version Control System. Valid values are:

=over 4

=item   1 This is numbered

Body of the first item

Another para within the item

=item   2 This is numbered

Body of the 2nd item

Another para within the item

=back

Back to body level

=over 4

=item   * This is bulleted

=item   * This is bulleted

=back

=over 4

=item   3 This is numbered

=item   4 This is numbered

=back

Back to body level

=over 4

=item   1

This is numbered - body on a seperate line

Another para within the item

=item   2

This is numbered - body on a seperate line

Another para within the item

=back

Back to body level

=over 4

=item   *

This is bulleted - body on a seperate line

=item   *

This is bulleted - body on a seperate line

=back

Back to body level

Bulleted items, with  a numbered sub-indent

=over 8

=item   *

This is bulleted - body on a seperate line

=item   *

This is bulleted - body on a seperate line

=over 4

=item   1

This is numbered - body on a seperate line

=item   2

This is numbered - body on a seperate line

=back

Back to FIRST level of indentation

=item *

Continue with the bullet list

=back

Back to body level

Test of C<sandbox_archive> will this do good stuff. Also see C<Environment

variables>. What about C<Environment variables> and C<sandbox_archive>.

Also C<Environment variables>

=cut