- Timestamp:
- Sep 11, 2016, 1:16:52 AM (8 years ago)
- Location:
- devel/pb
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r2134 r2139 441 441 Print the full configuration parameters as found in the various configuration files. Help to debug conf issues. 442 442 Also accepts a parameter to display only this value, and a VM/VE/RM 443 444 =item B<getvar> 445 446 Print the full variables expanded based on the distrubution tuple. Help to debug conf issues. 447 Also accepts a parameter to display only the values for this package, and a VM/VE/RM 443 448 444 449 =item B<clean> … … 983 988 pb_log(1,"Arguments to print:".Dumper(@ARGV)."\n"); 984 989 pb_distro_conf_print($pbos,@ARGV); 990 } elsif ($action =~ /^getvar$/) { 991 my $pbos = pb_distro_get_context($ENV{'PBV'}); 992 my $pkg; 993 my @pkg; 994 if ($#ARGV == -1) { 995 $pkg = pb_cms_get_pkg($defpkgdir,$extpkgdir); 996 @pkgs = @$pkg; 997 } else { 998 @pkgs = @ARGV; 999 } 1000 pb_log(1,"Packages to print:".Dumper(@pkgs)."\n"); 1001 pb_filter_var_print($pbos,@pkgs); 985 1002 } elsif ($action =~ /^clean$/) { 986 1003 pb_clean(); -
devel/pb/lib/ProjectBuilder/Filter.pm
r2032 r2139 34 34 35 35 our @ISA = qw(Exporter); 36 our @EXPORT = qw(pb_get_filters pb_filter_file_pb pb_filter_file_inplace pb_filter_file );36 our @EXPORT = qw(pb_get_filters pb_filter_file_pb pb_filter_file_inplace pb_filter_file pb_filter_var_print); 37 37 ($VERSION,$REVISION) = pb_version_init(); 38 38 … … 263 263 264 264 265 =item B<pb_filter_var_print> 266 267 This function prints every variable expanded in order to help debug stacking issues with conf files. If a VM/VE/RM is given restrict display to this distribution. If parameters are passed, restrict again the display to that package only. 268 269 =cut 270 271 sub pb_filter_var_print { 272 273 my $pbos = shift; 274 my @keys = @_; 275 my $ptr = undef; 276 277 if ($#keys == -1) { 278 pb_log(0,"Full pb variables for project $ENV{'PBPROJ'}\n"); 279 pb_log(0,"============================================\n"); 280 } 281 if (defined $ENV{'PBV'}) { 282 pb_log(0,"Distribution $ENV{'PBV'}\n"); 283 pb_log(0,"========================\n"); 284 } else { 285 pb_log(0,"Local Distribution\n"); 286 pb_log(0,"==================\n"); 287 } 288 289 foreach my $k (@keys) { 290 $ptr = pb_get_filters($k,$pbos); 291 pb_log(0,"Package $k\n"); 292 pb_log(0,"==================\n"); 293 foreach my $f (sort keys %$ptr) { 294 pb_log(0,"Filter $f => $ptr->{$f}\n"); 295 } 296 pb_log(0,"==================\n"); 297 } 298 } 299 300 265 301 =back 266 302
Note:
See TracChangeset
for help on using the changeset viewer.