[Box Backup-commit] COMMIT r1219 - box/trunk/infrastructure/msvc

[boxbackup-dev at fluffy.co.uk]

Author: chris
Date: 2006-12-15 00:10:51 +0000 (Fri, 15 Dec 2006)
New Revision: 1219

Added:
   box/trunk/infrastructure/msvc/getversion.pl
Log:
Added a script to determine the build version on Win32 MSVC (merges [1078])


Copied: box/trunk/infrastructure/msvc/getversion.pl (from rev 1078, box/chris/merge/infrastructure/msvc/getversion.pl)
===================================================================
--- box/trunk/infrastructure/msvc/getversion.pl	                        (rev 0)
+++ box/trunk/infrastructure/msvc/getversion.pl	2006-12-15 00:10:51 UTC (rev 1219)
@@ -0,0 +1,16 @@
+#!perl
+
+$basedir = $0;
+$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";
+
+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;
+
+exit 0;