Subversion Repositories DevTools

Rev

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

Rev 341 Rev 347
Line 42... Line 42...
42 
my $opt_help = 0;
 42 
my $opt_help = 0;
43 
my $opt_verbose = 0;
 43 
my $opt_verbose = 0;
44 
my $opt_rtagid;
 44 
my $opt_rtagid;
45 
my $opt_show;
 45 
my $opt_show;
46 
my $opt_outfile;
 46 
my $opt_outfile;
- 
 
 47 
my $opt_keep;
47 
 
 48 
 
48 
my $result = GetOptions (
 49 
my $result = GetOptions (
49 
                "help|h:+"          => \$opt_help,
 50 
                "help|h:+"          => \$opt_help,
50 
                "manual:3"          => \$opt_help,
 51 
                "manual:3"          => \$opt_help,
51 
                "verbose:+"         => \$opt_verbose,       # flag or number
 52 
                "verbose:+"         => \$opt_verbose,       # flag or number
52 
                "rtagid|rtag_id=s"  => \$opt_rtagid,
 53 
                "rtagid|rtag_id=s"  => \$opt_rtagid,
53 
                "out=s"             => \$opt_outfile,
 54 
                "out=s"             => \$opt_outfile,
54 
                'show:s'            => \$opt_show,
 55 
                'show:s'            => \$opt_show,
- 
 
 56 
                'keep'              => \$opt_keep,
55 
                );
 57 
                );
56 
 
 58 
 
57 
#
 59 
#
58 
#   Process help and manual options
 60 
#   Process help and manual options
59 
#
 61 
#
Line 160... Line 162...
160 
#
 162 
#
161 
$result = JatsTool ("jats_rewrite.pl", '-conf', $file,
 163 
$result = JatsTool ("jats_rewrite.pl", '-conf', $file,
162 
                             '-verb', $opt_verbose,
 164 
                             '-verb', $opt_verbose,
163 
                             '-outfile', $opt_outfile,
 165 
                             '-outfile', $opt_outfile,
164 
                             '-mode=1' );
 166 
                             '-mode=1' );
165 
unlink $file;
 167 
unlink $file unless $opt_keep;
166 
Error("Did not rewrite build.pl file") if ( $result );
 168 
Error("Did not rewrite build.pl file") if ( $result );
167 
exit 0;
 169 
exit 0;
168 
 
 170 
 
169 
#-------------------------------------------------------------------------------
 171 
#-------------------------------------------------------------------------------
170 
# Function        : GetReleaseData
 172 
# Function        : GetReleaseData
Line 340... Line 342...
340 
    -man                - Full documentation
 342 
    -man                - Full documentation
341 
    -verbose            - Verbose operation
 343 
    -verbose            - Verbose operation
342 
    -show[=text]        - Show all Release Tags, that match text
 344 
    -show[=text]        - Show all Release Tags, that match text
343 
    -rtag=nnn           - Release Tag
 345 
    -rtag=nnn           - Release Tag
344 
    -out=file           - Output filename [auto.pl]
 346 
    -out=file           - Output filename [auto.pl]
- 
 
 347 
    -keep               - Keep the generated dependency files
345 
 
 348 
 
346 
=head1 OPTIONS
 349 
=head1 OPTIONS
347 
 
 350 
 
348 
=over 8
 351 
=over 8
349 
 
 352 
 
Line 386... Line 389...
386 
 
 389 
 
387 
This option specifies the name of the output file in which the modified build
 390 
This option specifies the name of the output file in which the modified build
388 
information will be placed. The utility will use 'auto.pl' unless there is
 391 
information will be placed. The utility will use 'auto.pl' unless there is
389 
no 'auto.pl' file and the 'build.pl' exists and is writable.
 392 
no 'auto.pl' file and the 'build.pl' exists and is writable.
390 
 
 393 
 
- 
 
 394 
=item B<-keep>
- 
 
 395 
 
- 
 
 396 
This option will prevent the utility from deleting the generated dependency file.
- 
 
 397 
 
391 
=back
 398 
=back
392 
 
 399 
 
393 
=head1 DESCRIPTION
 400 
=head1 DESCRIPTION
394 
 
 401 
 
395 
This utilty will update the dependency information within a build file to
 402 
This utilty will update the dependency information within a build file to