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

Timestamp:

Aug 31, 2007, 1:23:27 PM (17 years ago)

Author:

Bruno Cornec

Message:

Add the -r option to support multiple version in parallel

File:

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

devel/pb/bin/pb

@@ -41 +41 @@
 my $pbdate = strftime("%Y-%m-%d", @date);
 
-getopts('hl:p:qtv',\%opts);
+getopts('hl:p:qr:tv',\%opts);
 
 version_init();
@@ -70 +70 @@
 die syntax() if (not defined $action);
 
+# Handle root of the project if defined
+if (defined $opts{'r'}) {
+    $ENV{'PBROOT'} = $opts{'r'};
+}
 # Handles project name if any
 if (defined $opts{'p'}) {
@@ -253 +257 @@
         print $LOG "Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz\n" if ($debug >= 0);
         # Keep track of what is generated for build2pkg default
-        open(LAST,"> $ENV{'PBDESTDIR'}/LAST") || die "Unable to create $ENV{'PBDESTDIR'}/LAST";
+        open(LAST,"> $ENV{'PBTOPDIR'}/LAST") || die "Unable to create $ENV{'PBTOPDIR'}/LAST";
         print LAST "$pbver-$pbtag\n";
         close(LAST);
@@ -261 +265 @@
     my $vertag = shift @ARGV;
     if (not defined $vertag) {
-        open(LAST,"$ENV{'PBDESTDIR'}/LAST") || die "Unable to open $ENV{'PBDESTDIR'}/LAST\nYou may want to precise as parameter version-tag";
+        open(LAST,"$ENV{'PBTOPDIR'}/LAST") || die "Unable to open $ENV{'PBTOPDIR'}/LAST\nYou may want to precise as parameter version-tag";
         $vertag = <LAST>;
         chomp($vertag);
@@ -279 +283 @@
     foreach my $pbpkg (@pkgs) {
         my $src="$ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz";
-        print $LOG "Handling source file $src\n" if ($debug >= 0);
+        print $LOG "Source file: $src\n" if ($debug >= 0);
 
         if ($dtype eq "rpm") {