diff options
| author | Chris Wilson <chris+github@qwirx.com> | 2011-04-16 11:05:33 +0000 |
|---|---|---|
| committer | Chris Wilson <chris+github@qwirx.com> | 2011-04-16 11:05:33 +0000 |
| commit | 1a11d3a8d66ddae7b8013b1a33404b580a89e62d (patch) | |
| tree | 646349e4946eb1441e5fdfb4ec1ddd1c9a693e53 | |
| parent | 8008e2935eda8b0f3058bdeeb7d4f6763ff46472 (diff) | |
Substitute variables in boxbackup.mpi.in to build a valid InstallJammer
config file for use with MSVC.
| -rw-r--r-- | infrastructure/msvc/fake-config.sub.pl | 18 | ||||
| -rw-r--r-- | win32.bat | 3 |
2 files changed, 21 insertions, 0 deletions
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 @@ -36,3 +36,6 @@ cd .\lib\server & perl ./../../lib/common/makeexception.pl.in ServerException.tx cd ..\..\
perl -pe 's/@PERL@/perl/' ./test/bbackupd/testfiles/bbackupd.conf.in > .\test\bbackupd\testfiles\bbackupd.conf
+
+echo Generating InstallJammer configuration file
+perl infrastructure/msvc/fake-config.sub.pl ./contrib/windows/installer/boxbackup.mpi.in > ./contrib/windows/installer/boxbackup.mpi
|