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

Timestamp:

Jul 29, 2007, 1:21:40 AM (17 years ago)

Author:

Bruno Cornec

Message:

Ok seems better interm of organization with AppConfig usage

File:

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

devel/pb/lib/cms.pm

@@ -14 +14 @@
 # Expects we are in the right directory to launch CMS commands
 
-my @args = ("svn", "info", "2>&1", "/dev/null");
+sub cms_init {
+
 my $ret;
-system(@args) == 0 or die "system @args failed: $?";
+
+chdir "$ENV{'PBROOT'}";
+system("svn info 2>&1 /dev/null") == 0 or die "system svn info failed: $?";
 if ($? == -1) {
     print "failed to execute: $!\n";
@@ -24 +27 @@
     $ret =  $? >> 8;
     if ($ret == 0) {
-        $ENV{'REVISION'}=`(cd $PBROOT/.. ; svnversion .)`;
+        $ENV{'REVISION'}=`(cd "$ENV{'PBROOT'}/.." ; svnversion .)`;
         $ENV{'CMSLOG'}="svn log";
         $ENV{'CMSEXP'}="svn export";
     } else {
         # By default if not SVN take CVS
-        $ENV{'REVISION'}=`(cd $PBROOT/.. ; cvs  rannotate  -f . 2>&1 | awk '{print $1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`;
+        $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{'CVSROOT'}=$ENV{'CVSVAR'};
     }
 }
+}
 1;