Changeset 8 in ProjectBuilder for devel/pb/lib/cms.pm
- Timestamp:
- Jul 29, 2007, 2:30:56 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/cms.pm
r6 r8 18 18 my $ret; 19 19 20 chdir "$ENV{'PBROOT'}"; 21 system("svn info 2>&1 /dev/null") == 0 or die "system svn info failed: $?"; 20 system("cd $ENV{'PBROOT'} ; svn info . 2>&1 > /dev/null"); 22 21 if ($? == -1) { 23 22 print "failed to execute: $!\n"; … … 27 26 $ret = $? >> 8; 28 27 if ($ret == 0) { 29 $ENV{' REVISION'}=`(cd "$ENV{'PBROOT'}/.." ; svnversion .)`;30 $ENV{' CMSLOG'}="svn log";31 $ENV{' CMSEXP'}="svn export";28 $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; svnversion .)`; 29 $ENV{'PBCMSLOG'}="svn log"; 30 $ENV{'PBCMSEXP'}="svn export"; 32 31 } else { 33 32 # By default if not SVN take CVS 34 $ENV{' REVISION'}=`(cd "$ENV{'PBROOT'}/.." ; cvs rannotate -f . 2>&1 | awk '{print$1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`;35 $ENV{' CMSLOG'}="cvs log";36 $ENV{' CMSEXP'}="cvs export"33 $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; cvs rannotate -f . 2>&1 | awk '{print \$1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`; 34 $ENV{'PBCMSLOG'}="cvs log"; 35 $ENV{'PBCMSEXP'}="cvs export" 37 36 } 38 37 }
Note:
See TracChangeset
for help on using the changeset viewer.