Changeset 316 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Feb 10, 2008, 2:36:32 PM (16 years ago)

Author:

Bruno Cornec

Message:

• pb_get_pkg moved to Base and used in newver
• some log improvements.
• tests to follow

File:

• devel/pb/bin/pb (modified) (2 diffs)

devel/pb/bin/pb

@@ -23 +23 @@
 use ProjectBuilder::Distribution qw (pb_distro_init);
 use ProjectBuilder::Version qw (pb_version_init);
-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);
+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);
 
 my %opts;                   # CLI Options
@@ -857 +857 @@
 }
 
-# 
-# Return the list of packages we are working on
-#
-sub pb_get_pkg {
-
-my @pkgs;
-my $defpkgdir = shift;
-my $extpkgdir = shift;
-
-# Get packages list
-if (not defined $ARGV[0]) {
-    @pkgs = keys %$defpkgdir;
-} elsif ($ARGV[0] =~ /^all$/) {
-    @pkgs = keys %$defpkgdir;
-    push(@pkgs, keys %$extpkgdir);
-} else {
-    @pkgs = @ARGV;
-}
-pb_log(2,"Packages: ".join(',',@pkgs)."\n");
-return(\@pkgs);
-}
-
 #
 # Return the list of VMs we are working on