Subversion Repositories DevTools

Rev

Rev 277 | Rev 363 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 277 Rev 361
Line 35... Line 35...
35
my $opt_manual = 0;
35
my $opt_manual = 0;
36
my $opt_buildname;
36
my $opt_buildname;
37
my $opt_buildversion;
37
my $opt_buildversion;
38
my $opt_package;
38
my $opt_package;
39
my $opt_root;
39
my $opt_root;
-
 
40
my $opt_interface;
40
my $opt_verbose = $ENV{'GBE_VERBOSE'};
41
my $opt_verbose = $ENV{'GBE_VERBOSE'};
41
my $opt_vargs;
42
my $opt_vargs;
42
 
43
 
43
#
44
#
44
#   Parse the user options
45
#   Parse the user options
Line 49... Line 50...
49
 
50
 
50
                "BuildName=s"       => \$opt_buildname,
51
                "BuildName=s"       => \$opt_buildname,
51
                "BuildVersion=s"    => \$opt_buildversion,
52
                "BuildVersion=s"    => \$opt_buildversion,
52
                "PackageDir=s"      => \$opt_package,
53
                "PackageDir=s"      => \$opt_package,
53
                "BuildRoot=s"       => \$opt_root,
54
                "BuildRoot=s"       => \$opt_root,
-
 
55
                "InterfaceDir=s"    => \$opt_interface,
54
                "Verbose:s"         => \$opt_vargs,
56
                "Verbose:s"         => \$opt_vargs,
55
 
57
 
56
                );
58
                );
57
 
59
 
58
#
60
#
Line 68... Line 70...
68
$opt_verbose += 2 unless ( $opt_vargs eq '@' );
70
$opt_verbose += 2 unless ( $opt_vargs eq '@' );
69
ErrorConfig( 'name'    => 'RELEASE_JATS',
71
ErrorConfig( 'name'    => 'RELEASE_JATS',
70
             'verbose' => $opt_verbose );
72
             'verbose' => $opt_verbose );
71
 
73
 
72
SystemConfig ('ExitOnError' => 1 );
74
SystemConfig ('ExitOnError' => 1 );
-
 
75
InitFileUtils();
73
 
76
 
74
#
77
#
75
#   Sanity Test arguments
78
#   Sanity Test arguments
76
#
79
#
77
Error ("Not expecting any command line arguments" )
80
Error ("Not expecting any command line arguments" )
Line 82... Line 85...
82
#
85
#
83
Verbose ( "BuildName: ", $opt_buildname );
86
Verbose ( "BuildName: ", $opt_buildname );
84
Verbose ( "BuildVersion: ", $opt_buildversion );
87
Verbose ( "BuildVersion: ", $opt_buildversion );
85
Verbose ( "PackageDir: ", $opt_package );
88
Verbose ( "PackageDir: ", $opt_package );
86
Verbose ( "BuildRoot: ", $opt_root );
89
Verbose ( "BuildRoot: ", $opt_root );
-
 
90
Verbose ( "Interface: ", $opt_interface );
-
 
91
 
87
 
92
 
88
#
93
#
89
#   Ensure we have all required parameters
94
#   Ensure we have all required parameters
90
#
95
#
91
Error ("No build name provided" ) unless ( $opt_buildname );
96
Error ("No build name provided" ) unless ( $opt_buildname );
92
Error ("No build version provided" ) unless ( $opt_buildversion );
97
Error ("No build version provided" ) unless ( $opt_buildversion );
93
Error ("No package directory provided" ) unless ( $opt_package );
98
Error ("No package directory provided" ) unless ( $opt_package );
94
Error ("No build root provided" ) unless ( $opt_root );
99
Error ("No build root provided" ) unless ( $opt_root );
95
Error ("Build root is not a directory " ) unless ( -d $opt_root );
100
Error ("Build root is not a directory " ) unless ( -d $opt_root );
-
 
101
Error ("No interface directory provided" ) unless ( $opt_interface );
-
 
102
Error ("Interface directory is not a directory" ) unless ( -d $opt_interface );
96
 
103
 
97
#
104
#
98
#   Import Environment Variables
105
#   Import Environment Variables
99
#
106
#
100
my $GBE_PERL = $ENV{GBE_PERL} || Error ("Environment variable GBE_PERL not set");
107
my $GBE_PERL = $ENV{GBE_PERL} || Error ("Environment variable GBE_PERL not set");
Line 114... Line 121...
114
 
121
 
115
 
122
 
116
Message "Copy in: BIN dirs";
123
Message "Copy in: BIN dirs";
117
CopyDir ( $opt_root, $opt_package, 'MatchDirs' => ['BIN.*'], 'SkipTLF' => 1 );
124
CopyDir ( $opt_root, $opt_package, 'MatchDirs' => ['BIN.*'], 'SkipTLF' => 1 );
118
 
125
 
119
for my $dir qw(CFG TEMPLATES TOOLS)
126
for my $dir qw(CFG TEMPLATES TOOLS HTML)
120
{
127
{
121
    Message "Copy in: $dir";
128
    Message "Copy in: $dir";
122
    CopyDir ( "$opt_root/$dir", $opt_package,
129
    CopyDir ( "$opt_root/$dir", $opt_package,
123
                'IgnoreDirs' => ['LOCAL'],
130
                'IgnoreDirs' => ['LOCAL', 'JatsDocTools'],
124
                'KeepSrcTail' => 1);
131
                'KeepSrcTail' => 1);
125
}
132
}
126
 
133
 
127
for my $file qw(Readme.txt ChangeLog.txt)
134
for my $file qw(Readme.txt ChangeLog.txt)
128
{
135
{
Line 170... Line 177...
170
    last;
177
    last;
171
 
178
 
172
}
179
}
173
close FH;
180
close FH;
174
 
181
 
-
 
182
 
-
 
183
#
-
 
184
#   Generate the HTML documenation from the POD
-
 
185
#   Generate the HTML TOc
-
 
186
#
-
 
187
Message ("Generate HTML documentation" );
-
 
188
use JatsDocTools::JatsDocTools;
-
 
189
JatsDocTools::UpdateHTML( 'force' => 0,
-
 
190
                          'verbose' => $opt_verbose,
-
 
191
                          'htmldir' => FullPath("$opt_package/HTML"),
-
 
192
                          'prefix' => FullPath($opt_package),
-
 
193
                          'cacheDir' => FullPath($opt_interface),
-
 
194
                          'ChangeLog' => FullPath("$opt_root/ChangeLog.txt"),
-
 
195
                          'index' => 1,
-
 
196
                          );
-
 
197
 
175
Error ("Cannot locate GBE_VERSION in jats.p" ) unless ( $jversion );
198
Error ("Cannot locate GBE_VERSION in jats.pl" ) unless ( $jversion );
176
Error ("GBE_VERSION definition in jats.pl Does not match released version.",
199
Error ("GBE_VERSION definition in jats.pl Does not match released version.",
177
        "Expecting: $opt_buildversion",
200
        "Expecting: $opt_buildversion",
178
        "Got      : $jversion") unless( $jversion eq $opt_buildversion );
201
        "Got      : $jversion") unless( $jversion eq $opt_buildversion );
179
 
202
 
180
 
203