Changeset 106 in ProjectBuilder for devel/pb/lib

Timestamp:

Sep 5, 2007, 1:21:18 AM (17 years ago)

Author:

Bruno Cornec

Message:

Lots of various fixes for CVS support with LinuxCOE

File:

• devel/pb/lib/ProjectBuilder/Base.pm (modified) (4 diffs)

devel/pb/lib/ProjectBuilder/Base.pm

@@ -98 +98 @@
     %filteredfiles = ();
     %filteredfiles = %$filteredfiles if (defined $filteredfiles);
+    #
+    # Get global Version/Tag
+    #
+
+    if (not defined $ENV{'PBVER'}) {
+        if ((defined $pkgv) && (defined $pkgv->{$proj})) {
+            $ENV{'PBVER'}=$pkgv->{$proj};
+        } else {
+            die "No projver found in $ENV{'PBCONF'}/$proj.pb";
+        }
+    }
+    die "Invalid version name $ENV{'PBVER'} in $ENV{'PBCONF'}/$proj.pb" if (($ENV{'PBVER'} !~ /[0-9.]+/) && (not exists $version{$ENV{'PBVER'}}));
+    
+    if (not defined $ENV{'PBTAG'}) {
+        if ((defined $pkgt) && (defined $pkgt->{$proj})) {
+            $ENV{'PBTAG'}=$pkgt->{$proj};
+        } else {
+            die "No projtag found in $ENV{'PBCONF'}/$proj.pb";
+        }
+    }
+    die "Invalid tag name $ENV{'PBTAG'} in $ENV{'PBCONF'}/$proj.pb" if ($ENV{'PBTAG'} !~ /[0-9.]+/);
 } else {
     die "Unable to open $ENV{'PBCONF'}/$proj.pb";
 }
-
-#
-# Get global Version/Tag
-#
-
-if (not defined $ENV{'PBVER'}) {
-    if ((defined $pkgv) && (defined $pkgv->{$proj})) {
-        $ENV{'PBVER'}=$pkgv->{$proj};
-    } else {
-        die "No projver found in $ENV{'PBCONF'}/$proj.pb";
-    }
-}
-die "Invalid version name $ENV{'PBVER'} in $ENV{'PBCONF'}/$proj.pb" if (($ENV{'PBVER'} !~ /[0-9.]+/) && (not exists $version{$ENV{'PBVER'}}));
-
-if (not defined $ENV{'PBTAG'}) {
-    if ((defined $pkgt) && (defined $pkgt->{$proj})) {
-        $ENV{'PBTAG'}=$pkgt->{$proj};
-    } else {
-        die "No projtag found in $ENV{'PBCONF'}/$proj.pb";
-    }
-}
-die "Invalid tag name $ENV{'PBTAG'} in $ENV{'PBCONF'}/$proj.pb" if ($ENV{'PBTAG'} !~ /[0-9.]+/);
 
 #
@@ -183 +182 @@
 
 print $LOG "$cmt... ";
-system("$cmd");
+system("$cmd 2>&1 > $ENV{'PBTMP'}/system.log");
 if ($? == -1) {
-    print $LOG "failed to execute: $!\n" if ($debug >= 0);
+    print $LOG "failed to execute ($cmd) : $!\n" if ($debug >= 0);
+    pb_display_file("$ENV{'PBTMP'}/system.log");
 } elsif ($? & 127) {
-    printf $LOG "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without' if ($debug >= 0);
-} else {
+    printf $LOG "child ($cmd) died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without' if ($debug >= 0);
+    pb_display_file("$ENV{'PBTMP'}/system.log");
+} elsif ($? == 0) {
     print $LOG "OK\n" if ($debug >= 0);
-}
+} else {
+    printf "child ($cmd) exited with value %d\n", $? >> 8;
+    pb_display_file("$ENV{'PBTMP'}/system.log");
+}
+}
+
+sub pb_display_file {
+
+my $file=shift;
+
+open(FILE,"$file") || die "Unable to open $file";
+while (<FILE>) {
+    print $LOG;
+}
+close(FILE);
 }
 
@@ -260 +275 @@
     $ENV{'PBCMSLOG'}="svn log";
     $ENV{'PBCMSLOGFILE'}="svn.log";
-    $ENV{'PBCMSEXP'}="svn export";
 } elsif ($cms->{$proj} eq "cvs") {
-    $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; cvs rannotate  -f . 2>&1 | awk '{print \$1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`;
-    chomp($ENV{'PBREVISION'});
+    # Way too slow
+    #$ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; cvs rannotate  -f . 2>&1 | awk '{print \$1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`;
+    #chomp($ENV{'PBREVISION'});
+    $ENV{'PBREVISION'}="CVS";
     $ENV{'PBCMSLOG'}="cvs log";
     $ENV{'PBCMSLOGFILE'}="cvs.log";
-    $ENV{'PBCMSEXP'}="cvs export";
     #
     # Export content if needed
@@ -274 +289 @@
     die "cms $cms->{$proj} unknown";
 }
-}
+return($cms);
+}
+
+sub pb_cms_export {
+my $cms = shift;
+my $pbdate = shift || undef;
+my $pkgdir = shift;
+my $destdir = shift;
+
+if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
+    pb_system("svn export $pkgdir $destdir","Exporting $pkgdir from SVN");
+} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
+    my $dir=dirname($destdir);
+    my $base=basename($destdir);
+    my $tmp=basename($pkgdir);
+    # CVS needs a relative path !
+    pb_system("cd $dir ; cvs export -D $pbdate -d $base $tmp","Exporting $pkgdir from CVS");
+} else {
+    die "cms $cms->{$ENV{'PBPROJ'}} unknown";
+}
+}
+
+sub pb_cms_log {
+my $cms = shift;
+my $pkgdir = shift;
+my $destfile = shift;
+
+if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
+    pb_system("svn log $pkgdir > $destfile","Extracting log info from SVN");
+} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
+    my $tmp=basename($pkgdir);
+    # CVS needs a relative path !
+    pb_system("cvs log $tmp > $destfile","Extracting log info from CVS");
+} else {
+    die "cms $cms->{$ENV{'PBPROJ'}} unknown";
+}
+}
+    
+
 
 # Get all filters to apply