Changeset 316 for devel/pb/bin/pb


Ignore:
Timestamp:
Feb 10, 2008, 2:36:32 PM (12 years ago)
Author:
bruno
Message:
  • pb_get_pkg moved to Base and used in newver
  • some log improvements.
  • tests to follow
File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r315 r316  
    2323use ProjectBuilder::Distribution qw (pb_distro_init);
    2424use 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);
     25use 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);
    2626
    2727my %opts;                   # CLI Options
     
    857857}
    858858
    859 #
    860 # Return the list of packages we are working on
    861 #
    862 sub pb_get_pkg {
    863 
    864 my @pkgs;
    865 my $defpkgdir = shift;
    866 my $extpkgdir = shift;
    867 
    868 # Get packages list
    869 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 
    881859#
    882860# Return the list of VMs we are working on
Note: See TracChangeset for help on using the changeset viewer.