Changeset 1694 in ProjectBuilder for devel/pb-modules/bin/pbdistrogetparam
- Timestamp:
- Feb 26, 2013, 6:37:21 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/bin/pbdistrogetparam
r1690 r1694 32 32 =head1 SYNOPSIS 33 33 34 pbdistrogetparam [-h][-v][-p project][-d distro-ver-arch] param34 pbdistrogetparam [-h][-v][-p project][-d distro-ver-arch] [param|-a] 35 35 36 36 =head1 OPTIONS … … 53 53 54 54 Name of the project you're working on (or use the env variable PBPROJ) 55 56 =item B<-a|--all> 57 58 Process all configuration parameters 55 59 56 60 =back … … 88 92 "verbose|v+" => \$opts{'v'}, 89 93 "help|h" => \$opts{'h'}, 94 "all|a" => \$opts{'a'}, 90 95 "project|p=s" => \$opts{'p'}, 91 "distribution|d " => \$opts{'d'},96 "distribution|d=s" => \$opts{'d'}, 92 97 ); 98 if (defined $opts{'h'}) { 99 pb_syntax(0,$opts{'h'}-1); 100 } 101 if (defined $opts{'man'}) { 102 pb_syntax(0,2); 103 } 93 104 if (defined $opts{'v'}) { 94 105 $pbdebug = $opts{'v'}; … … 99 110 pb_env_init($opts{'p'},0,"none",0); 100 111 my $pbos = pb_distro_get_context($dist); 101 foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@ARGV))) { 112 113 my @tab = @ARGV; 114 @tab = pb_conf_get_all() if (defined $opts{'a'}); 115 116 my $i = 0; 117 foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@tab))) { 118 print "$tab[$i] => " if ((defined $opts{'v'}) || (defined $opts{'a'})); 119 $i++; 102 120 print "$r\n"; 103 121 }
Note:
See TracChangeset
for help on using the changeset viewer.