From 1a11d3a8d66ddae7b8013b1a33404b580a89e62d Mon Sep 17 00:00:00 2001
From: Chris Wilson <chris+github@qwirx.com>
Date: Sat, 16 Apr 2011 11:05:33 +0000
Subject: Substitute variables in boxbackup.mpi.in to build a valid
 InstallJammer config file for use with MSVC.

---
 infrastructure/msvc/fake-config.sub.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 infrastructure/msvc/fake-config.sub.pl

(limited to 'infrastructure')

diff --git a/infrastructure/msvc/fake-config.sub.pl b/infrastructure/msvc/fake-config.sub.pl
new file mode 100644
index 00000000..fa9b6839
--- /dev/null
+++ b/infrastructure/msvc/fake-config.sub.pl
@@ -0,0 +1,18 @@
+#!perl
+
+use strict;
+use warnings;
+use Cwd;
+
+require "infrastructure\\BoxPlatform.pm.in";
+my $wd = getcwd();
+my $dummy = $BoxPlatform::product_version;
+
+while(<>)
+{
+	s|\@build_dir@|$wd|;
+	s|\@client_parcel_dir@|$wd/Debug|;
+	s|\@box_version@|$BoxPlatform::product_version|;
+	m|[^@](@[^@]+@)| and die "Unknown variable: $1";
+	print;
+}
\ No newline at end of file
-- 
cgit v1.2.3