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