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

Timestamp:

Nov 10, 2009, 3:31:28 AM (14 years ago)

Author:

Bruno Cornec

Message:

• Do not add conf files if already present in the list (changing pbconffiles into a hash for that to still keep order as this is mandatory)
• Small optimisations for pb_conf function usage in pb

File:

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

devel/pb/bin/pb

@@ -528 +528 @@
     my ($scheme, $uri) = pb_cms_init($pbinit);
 
-    my ($pkgv, $pkgt) = pb_conf_get_if("pkgver","pkgtag");
+    # We need 2 lines here
+    my ($pkgv, $pkgt, $testver) = pb_conf_get_if("pkgver","pkgtag","testver");
+    my @pt = pb_conf_get_if("vmlist","velist");
 
     # declare packager and repo for filtering
@@ -536 +538 @@
 
     foreach my $pbpkg (@pkgs) {
-        my ($testver) = pb_conf_get_if("testver");
         $ENV{'PBPKG'} = $pbpkg;
 
@@ -596 +597 @@
 
         my %build;
-        my @pt;
         # We want to at least build for the underlying distro
         my ($ddir, $dver, $dfam, $dtype, $pbsuf, $pbupd, $arch) = pb_distro_init();
@@ -603 +603 @@
 
         # Get list of distributions for which I need to generate build files
-        @pt = pb_conf_get_if("vmlist","velist");
         if (defined $pt[0]->{$ENV{'PBPROJ'}}) {
             $tmpl .= $pt[0]->{$ENV{'PBPROJ'}};
@@ -632 +631 @@
         # Do not do that for website
         if ((not defined $param) || ($param ne "Web")) {
+            pb_log(0,"Build files are being generated for ...\n");
             my %virt;
             # De-duplicate similar VM and VE 
@@ -731 +731 @@
                 push @notfound,$b if ($build{$b} =~ /no/);
             }
-            pb_log(0,"Build files generated for ".join(',',sort(@found))."\n");
+            pb_log(0," ... ".join(',',sort(@found))."\n");
             pb_log(0,"No Build files found for ".join(',',sort(@notfound))."\n") if (@notfound);
             pb_log(2,"DEBUG: patches: ".Dumper(%patches)."\n");
@@ -876 +876 @@
 
     # Get list of packages to build
-    # Get content saved in cms2build
     my $ptr = pb_get_pkg();
     @pkgs = @$ptr;
 
+    # Get content saved in cms2build
     my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$ENV{'PBPROJVER'}-$ENV{'PBPROJTAG'}.pb","pbpkg");
     $pkg = { } if (not defined $pkg);
@@ -1174 +1174 @@
 
     if ($cmt ne "Announce") {
+        # Get list of packages to build
         my $ptr = pb_get_pkg();
         @pkgs = @$ptr;
@@ -1979 +1980 @@
     my ($scheme2,$uri) = pb_cms_init($pbinit);
 
-    my ($pbconf) = pb_conf_get("pbconfurl");
+    my ($pbconf,$pburl) = pb_conf_get("pbconfurl","pburl");
     $uri = $pbconf->{$ENV{'PBPROJ'}};
     my ($scheme, $account, $host, $port, $path) = pb_get_uri($uri);
 
     # Checking CMS repositories status
-    my ($pburl) = pb_conf_get("pburl");
     ($scheme2, $account, $host, $port, $path) = pb_get_uri($pburl->{$ENV{'PBPROJ'}});
 
@@ -2460 +2460 @@
 my $pbscript = "$ENV{'PBDESTDIR'}/snapv";
 
+my ($pbac) = pb_conf_get($vtype."login");
+
 foreach my $v (@$vm) {
     # Name of the account to deal with for VM/VE
     # Do not use the one passed potentially with -a
-    my ($pbac) = pb_conf_get($vtype."login");
     my ($vmexist,$vmpid);