Changeset 2175 in ProjectBuilder for devel/pb-modules/bin/pbdistrocheck
- Timestamp:
- Feb 1, 2017, 2:08:51 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/bin/pbdistrocheck
r2032 r2175 14 14 use lib qw (lib); 15 15 #use lib '/usr/share/perl5'; # mandatory for opensuse 16 use ProjectBuilder::Version; 16 17 use ProjectBuilder::Distribution; 17 18 use ProjectBuilder::Base; … … 108 109 my %opts; # CLI Options 109 110 111 my ($projectver,$projectrev) = pb_version_init(); 112 my $appname = "pbgetparam"; 113 114 # Initialize the syntax string 115 116 pb_syntax_init("$appname Version $projectver-$projectrev\n"); 117 110 118 GetOptions( 111 119 "verbose|v+" => \$opts{'v'}, 120 "version" => \$opts{'version'}, 121 "man" => \$opts{'man'}, 122 "help|h" => \$opts{'h'}, 112 123 "short|s" => \$opts{'s'}, 113 "help|h" => \$opts{'h'},114 124 "description|d" => \$opts{'d'}, 115 125 "id|i" => \$opts{'i'}, … … 119 129 "lsb|l" => \$opts{'l'}, 120 130 ); 131 if (defined $opts{'h'}) { 132 pb_syntax(0,1); 133 } 134 if (defined $opts{'version'}) { 135 pb_syntax(0,0); 136 } 137 if (defined $opts{'man'}) { 138 pb_syntax(0,2); 139 } 121 140 if (defined $opts{'v'}) { 122 141 $pbdebug = $opts{'v'};
Note:
See TracChangeset
for help on using the changeset viewer.