Changeset 1219

Timestamp:

15/12/2006 00:10:51 (5 years ago)

Author:

chris

Message:

Added a script to determine the build version on Win32 MSVC (merges [1078])

File:

• box/trunk/infrastructure/msvc/getversion.pl (copied) (copied from box/chris/merge/infrastructure/msvc/getversion.pl) (1 diff)

box/trunk/infrastructure/msvc/getversion.pl

@@ -2 +2 @@
 
 $basedir = $0;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
--d $basedir or die "$basedir: $!";
-chdir $basedir or die "$basedir: $!";
+$basedir =~ s/(\\[^\\]*){5}$// or die "failed to remove last five ".
+        "directories from $basedir";
+-d $basedir or die "$basedir: not a directory";
+chdir $basedir or die "cannot change to directory $basedir: $!";
 
 require "$basedir\\infrastructure\\BoxPlatform.pm.in";
 
-open VERSIONFILE, "> $basedir/lib/common/BoxVersion.h" 
-        or die "BoxVersion.h: $!";
+my $verfile = "$basedir\\lib\\common\\BoxVersion.h";
+open VERSIONFILE, "> $verfile" or die "opening $verfile: $!";
 print VERSIONFILE "#define BOX_VERSION \"$BoxPlatform::product_version\"\n";
 close VERSIONFILE;