Changeset 2175 in ProjectBuilder for devel/pb-modules/bin/pbgetparam

Timestamp:

Feb 1, 2017, 2:08:51 AM (7 years ago)

Author:

Bruno Cornec

Message:

Adds man, help and versions options to pbdistrocheck and pbgetparam

File:

• devel/pb-modules/bin/pbgetparam (modified) (3 diffs)

devel/pb-modules/bin/pbgetparam

@@ -13 +13 @@
 use lib qw (lib);
 #use lib '/usr/share/perl5'; # mandatory for opensuse
+use ProjectBuilder::Version;
 use ProjectBuilder::Base;
 use ProjectBuilder::Env;
@@ -89 +90 @@
 my %opts;                   # CLI Options
 
+my ($projectver,$projectrev) = pb_version_init();
+my $appname = "pbgetparam";
+
+# Initialize the syntax string
+
+pb_syntax_init("$appname Version $projectver-$projectrev\n");
+
 GetOptions(
         "verbose|v+" => \$opts{'v'},
+        "version" => \$opts{'version'},
+        "man" => \$opts{'man'},
         "help|h" => \$opts{'h'},
         "all|a" => \$opts{'a'},
@@ -97 +107 @@
 );
 if (defined $opts{'h'}) {
-    pb_syntax(0,$opts{'h'}-1);
+    pb_syntax(0,1);
+}
+if (defined $opts{'version'}) {
+    pb_syntax(0,0);
 }
 if (defined $opts{'man'}) {