Subversion Repositories DevTools

Rev

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

Rev 4941 Rev 6419
Line 52... Line 52...
52 
my $opt_verbose = 0;
 52 
my $opt_verbose = 0;
53 
my $opt_ofile;
 53 
my $opt_ofile;
54 
my $opt_installer;
 54 
my $opt_installer;
55 
my $opt_package;
 55 
my $opt_package;
56 
my $opt_plain;
 56 
my $opt_plain;
- 
 
 57 
my $opt_pkgArch;
57 
 
 58 
 
58 
#-------------------------------------------------------------------------------
 59 
#-------------------------------------------------------------------------------
59 
# Function        : Main entry point
 60 
# Function        : Main entry point
60 
#
 61 
#
61 
# Description     : Parse user arguments
 62 
# Description     : Parse user arguments
Line 71... Line 72...
71 
                "manual:3"      => \$opt_help,              # flag
 72 
                "manual:3"      => \$opt_help,              # flag
72 
                "verbose:+"     => \$opt_verbose,           # flag, multiple use allowed
 73 
                "verbose:+"     => \$opt_verbose,           # flag, multiple use allowed
73 
                "outfile:s"     => \$opt_ofile,             # String
 74 
                "outfile:s"     => \$opt_ofile,             # String
74 
                "installer:s"   => \$opt_installer,         # String
 75 
                "installer:s"   => \$opt_installer,         # String
75 
                "package:s"     => \$opt_package,           # String
 76 
                "package:s"     => \$opt_package,           # String
- 
 
 77 
                "pkgArch:s"     => \$opt_pkgArch,           # String
76 
                "plain:+"       => \$opt_plain,             # flag
 78 
                "plain:+"       => \$opt_plain,             # flag
77 
                );
 79 
                );
78 
 
 80 
 
79 
                #
 81 
                #
80 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
 82 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
Line 163... Line 165...
163 
writeDef ($fh, 'GBE_VERSION',   $ScmBuildVersion );
 165 
writeDef ($fh, 'GBE_VERSION',   $ScmBuildVersion );
164 
writeDef ($fh, 'GBE_VERSION_FULL', $ScmBuildVersionFull );
 166 
writeDef ($fh, 'GBE_VERSION_FULL', $ScmBuildVersionFull );
165 
writeDef ($fh, 'GBE_PROJECT',   $ScmBuildProject );
 167 
writeDef ($fh, 'GBE_PROJECT',   $ScmBuildProject );
166 
writeDef ($fh, 'GBE_BUILDDATE', my $ltime = localtime() );
 168 
writeDef ($fh, 'GBE_BUILDDATE', my $ltime = localtime() );
167 
writeDef ($fh, 'GBE_BUILDTIME', strip_zeros(time()) );
 169 
writeDef ($fh, 'GBE_BUILDTIME', strip_zeros(time()) );
- 
 
 170 
writeDef ($fh, 'GBE_PKGARCH', $opt_pkgArch );
168 
 
 171 
 
169 
writeCmt( $fh, 'Build Version Information');
 172 
writeCmt( $fh, 'Build Version Information');
170 
my ($major, $minor, $patch, $build, $raw_patch) = SplitVersion($ScmBuildVersion);
 173 
my ($major, $minor, $patch, $build, $raw_patch) = SplitVersion($ScmBuildVersion);
171 
$build = strip_zeros( $build );
 174 
$build = strip_zeros( $build );
172 
writeDef ($fh, 'GBE_MAJOR', $major );
 175 
writeDef ($fh, 'GBE_MAJOR', $major );