[Box Backup-dev] COMMIT r628 - box/chris/general/infrastructure/msvc

[boxbackup-dev at fluffy.co.uk]

Author: chris
Date: 2006-07-06 20:34:07 +0000 (Thu, 06 Jul 2006)
New Revision: 628

Added:
   box/chris/general/infrastructure/msvc/getversion.pl
Log:
* getversion.pl
- Added a Perl script to determine the product version number for MSVC


Added: box/chris/general/infrastructure/msvc/getversion.pl
===================================================================
--- box/chris/general/infrastructure/msvc/getversion.pl	2006-06-29 00:09:25 UTC (rev 627)
+++ box/chris/general/infrastructure/msvc/getversion.pl	2006-07-06 20:34:07 UTC (rev 628)
@@ -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;