Changeset 2175 in ProjectBuilder for devel/pb-modules

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

Location:

devel/pb-modules/bin

Files:

• pbdistrocheck (modified) (3 diffs)
• pbgetparam (modified) (3 diffs)

devel/pb-modules/bin/pbdistrocheck

@@ -14 +14 @@
 use lib qw (lib);
 #use lib '/usr/share/perl5'; # mandatory for opensuse
+use ProjectBuilder::Version;
 use ProjectBuilder::Distribution;
 use ProjectBuilder::Base;
@@ -108 +109 @@
 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'},
         "short|s" => \$opts{'s'},
-        "help|h" => \$opts{'h'},
         "description|d" => \$opts{'d'},
         "id|i" => \$opts{'i'},
@@ -119 +129 @@
         "lsb|l" => \$opts{'l'},
 );
+if (defined $opts{'h'}) {
+    pb_syntax(0,1);
+}
+if (defined $opts{'version'}) {
+    pb_syntax(0,0);
+}
+if (defined $opts{'man'}) {
+    pb_syntax(0,2);
+}
 if (defined $opts{'v'}) {
     $pbdebug = $opts{'v'};

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'}) {