[Box Backup-commit] COMMIT r1078 - box/chris/merge/infrastructure/msvc

[boxbackup-dev@fluffy.co.uk]

Author: chris
Date: 2006-10-17 00:08:13 +0100 (Tue, 17 Oct 2006)
New Revision: 1078

Added:
   box/chris/merge/infrastructure/msvc/getversion.pl
Log:
Added a script to determine the build version on Win32 MSVC. (refs #3)


Copied: box/chris/merge/infrastructure/msvc/getversion.pl (from rev 1073, box/chris/general/infrastructure/msvc/getversion.pl)
===================================================================
--- box/chris/merge/infrastructure/msvc/getversion.pl	                        (rev 0)
+++ box/chris/merge/infrastructure/msvc/getversion.pl	2006-10-16 23:08:13 UTC (rev 1078)
@@ -0,0 +1,19 @@
+#!perl
+
+$basedir = $0;
+$basedir =~ s/\\[^\\]*$//;
+$basedir =~ s/\\[^\\]*$//;
+$basedir =~ s/\\[^\\]*$//;
+$basedir =~ s/\\[^\\]*$//;
+$basedir =~ s/\\[^\\]*$//;
+-d $basedir or die "$basedir: $!";
+chdir $basedir or die "$basedir: $!";
+
+require "$basedir\\infrastructure\\BoxPlatform.pm.in";
+
+open VERSIONFILE, "> $basedir/lib/common/BoxVersion.h" 
+	or die "BoxVersion.h: $!";
+print VERSIONFILE "#define BOX_VERSION \"$BoxPlatform::product_version\"\n";
+close VERSIONFILE;
+
+exit 0;