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

Timestamp:

Feb 22, 2008, 12:00:13 PM (16 years ago)

Author:

Bruno Cornec

Message:

• pb_changelog back in Base.pm (removal of Changelog.pm)
• cms2build begins to work for pb

File:

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

devel/pb/bin/pb

@@ -229 +229 @@
 
         # Get project info on authors and log file
-        my $chglog = "$ENV{'PBCONF'}/$pbpkg/pbcl";
-        $chglog = "$ENV{'PBCONF'}/pbcl" if (! -f $chglog);
+        my $chglog = "$ENV{'PBROOT'}/$pbpkg/pbcl";
+        $chglog = "$ENV{'PBROOT'}/pbcl" if (! -f $chglog);
         $chglog = undef if (! -f $chglog);
 
-        my $authors = "$ENV{'PBCONF'}/$pbpkg/pbauthors";
-        $authors = "$ENV{'PBCONF'}/pbauthors" if (! -f $authors);
+        my $authors = "$ENV{'PBROOT'}/$pbpkg/pbauthors";
+        $authors = "$ENV{'PBROOT'}/pbauthors" if (! -f $authors);
         $authors = "/dev/null" if (! -f $authors);
 
@@ -242 +242 @@
             copy($chglog,"$dest/NEWS") || die "Unable to create $dest/NEWS";
         }
-        pb_cms_log($scheme,$dir,$dest,$chglog,$authors);
+        pb_cms_log($scheme,"$ENV{'PBDIR'}/$pbprojver/$dir",$dest,$chglog,$authors);
 
         my %build;
 
-        my ($ptr) = pb_conf_get_if("vmlist","velist");
-        foreach my $d (split(/,/,$ptr->{$ENV{'PBPROJ'}})) {
+        my @pt;
+        @pt = pb_conf_get_if("vmlist","velist");
+        foreach my $d (split(/,/,$pt[0]->{$ENV{'PBPROJ'}}),split(/,/,$pt[1]->{$ENV{'PBPROJ'}})) {
             my ($name,$ver,$arch) = split(/-/,$d);
             chomp($arch);
@@ -261 +262 @@
             my %bfiles = ();
             my %pkgfiles = ();
-            pb_log(2,"DEBUG dir: $ENV{'PBCONF'}/$pbpkg\n");
             $build{"$ddir-$dver"} = "yes";