Changeset 492 for box/trunk/infrastructure/BoxPlatform.pm.in

Timestamp:

23/02/2006 20:21:11 (6 years ago)

Author:

ben

Message:

Let's use directory and SVN version in our BOX_VERSION variable

File:

• box/trunk/infrastructure/BoxPlatform.pm.in (modified) (1 diff)

box/trunk/infrastructure/BoxPlatform.pm.in

@@ -35 +35 @@
         chomp $product_name;
         close VERSION;
+        if($product_version eq 'USE_SVN_VERSION')
+        {
+                # for developers, use SVN version
+                my $svnversion = `svnversion .`;
+                chomp $svnversion;
+                $svnversion =~ tr/0-9A-Za-z/_/c;
+                open INFO,'svn info . |';
+                my $svnurl;
+                while(<INFO>)
+                {
+                        if(m/^URL: (.+?)[\n\r]+/)
+                        {
+                                $svnurl = $1
+                        }
+                }
+                close INFO;
+                $svnurl =~ m!box/(.+)$!;
+                my $svndir = $1;
+                $svndir =~ tr/0-9A-Za-z/_/c;
+                $product_version = $svndir.'_'.$svnversion;
+        }
 
         # where to put the files