Changeset 316 in ProjectBuilder for devel/pb/bin/pb
- Timestamp:
- Feb 10, 2008, 2:36:32 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r315 r316 23 23 use ProjectBuilder::Distribution qw (pb_distro_init); 24 24 use ProjectBuilder::Version qw (pb_version_init); 25 use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_filter_file_inplace pb_cms_export pb_cms_log pb_cms_isdiff pb_cms_copy pb_cms_checkout pb_get_date pb_log pb_log_init );25 use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_filter_file_inplace pb_cms_export pb_cms_log pb_cms_isdiff pb_cms_copy pb_cms_checkout pb_get_date pb_log pb_log_init pb_get_pkg); 26 26 27 27 my %opts; # CLI Options … … 857 857 } 858 858 859 #860 # Return the list of packages we are working on861 #862 sub pb_get_pkg {863 864 my @pkgs;865 my $defpkgdir = shift;866 my $extpkgdir = shift;867 868 # Get packages list869 if (not defined $ARGV[0]) {870 @pkgs = keys %$defpkgdir;871 } elsif ($ARGV[0] =~ /^all$/) {872 @pkgs = keys %$defpkgdir;873 push(@pkgs, keys %$extpkgdir);874 } else {875 @pkgs = @ARGV;876 }877 pb_log(2,"Packages: ".join(',',@pkgs)."\n");878 return(\@pkgs);879 }880 881 859 # 882 860 # Return the list of VMs we are working on
Note:
See TracChangeset
for help on using the changeset viewer.