Changeset 8 in ProjectBuilder for devel/pb/lib/cms.pm

Timestamp:

Jul 29, 2007, 2:30:56 AM (17 years ago)

Author:

Bruno Cornec

Message:

Basic function works (conf file read and interpret)

File:

• devel/pb/lib/cms.pm (modified) (2 diffs)

devel/pb/lib/cms.pm

@@ -18 +18 @@
 my $ret;
 
-chdir "$ENV{'PBROOT'}";
-system("svn info 2>&1 /dev/null") == 0 or die "system svn info failed: $?";
+system("cd $ENV{'PBROOT'} ; svn info . 2>&1 > /dev/null");
 if ($? == -1) {
     print "failed to execute: $!\n";
@@ -27 +26 @@
     $ret =  $? >> 8;
     if ($ret == 0) {
-        $ENV{'REVISION'}=`(cd "$ENV{'PBROOT'}/.." ; svnversion .)`;
-        $ENV{'CMSLOG'}="svn log";
-        $ENV{'CMSEXP'}="svn export";
+        $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; svnversion .)`;
+        $ENV{'PBCMSLOG'}="svn log";
+        $ENV{'PBCMSEXP'}="svn export";
     } else {
         # By default if not SVN take CVS
-        $ENV{'REVISION'}=`(cd "$ENV{'PBROOT'}/.." ; cvs  rannotate  -f . 2>&1 | awk '{print $1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`;
-        $ENV{'CMSLOG'}="cvs log";
-        $ENV{'CMSEXP'}="cvs export"
+        $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; cvs rannotate  -f . 2>&1 | awk '{print \$1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`;
+        $ENV{'PBCMSLOG'}="cvs log";
+        $ENV{'PBCMSEXP'}="cvs export"
     }
 }