Changeset 53 in ProjectBuilder for devel/pb/bin

Timestamp:

Aug 30, 2007, 1:57:00 PM (18 years ago)

Author:

Bruno Cornec

Message:

Adds Version-Revision for pb in yntax

File:

• devel/pb/bin/pb (modified) (5 diffs)

devel/pb/bin/pb

@@ -20 +20 @@
 use POSIX qw(strftime);
 
-use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles %pbroot $debug $LOG);
+use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles %pbroot $debug $LOG $projectbuilderver $projectbuilderrev);
 $debug = 0;                 # Debug level
 $LOG = *STDOUT;             # Where to log
 use lib qw (lib);
 use ProjectBuilder::common qw (env_init);
-use ProjectBuilder::pb qw (pb_init);
 use ProjectBuilder::distro qw (distro_init);
 use ProjectBuilder::cms;
 use ProjectBuilder::changelog qw (changelog);
+use ProjectBuilder::Version qw (version_init);
 
 my %opts;                   # CLI Options
@@ -37 +37 @@
 my $pbtag;                  # Global TAG variable
 my $pbver;                  # Global VERSION variable
-my $pbrev;                  # GLOBAL REVISION variable
+my $pbrev;                  # Global REVISION variable
 my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
 my $pbdate = strftime("%Y-%m-%d", @date);
@@ -43 +43 @@
 getopts('hl:p:qtv',\%opts);
 
+version_init();
 if (defined $opts{'h'}) {
     syntax();
@@ -64 +65 @@
     $ENV{'PBPROJ'} = env_init();
 }
+
 # Handles test option
 if (defined $opts{'t'}) {
@@ -402 +404 @@
 sub syntax {
 
+    print "pb (aka project-builder) Version $projectbuilderver-$projectbuilderrev\n";
+    print "\n";
     print "Syntax: pb [-vhqt][-p project] <action> [<params>...]\n";
     print "\n";