62 lines
1.4 KiB
Perl
62 lines
1.4 KiB
Perl
use strict;
|
|
use warnings;
|
|
|
|
# redirect stderr to stdout
|
|
open STDERR, ">&STDOUT";
|
|
|
|
die "usage: $0 [OutputDirectory]\n" if (@ARGV != 1 || $ARGV[0] =~ /^[-\/]/);
|
|
|
|
# check if this is a publich build
|
|
my $brand = $ENV{"APPLICATION_VERSION_BRAND"};
|
|
exit 0 if (!defined $brand);
|
|
|
|
$brand =~ /^(\d+)\.(\d+)/;
|
|
my $publish = $1;
|
|
my $attempt = $2;
|
|
|
|
# split the build number up into its pieces
|
|
my $publishHigh = int($brand / 1000);
|
|
my $publishLow = int($brand % 1000);
|
|
my $attemptHigh = int($attempt / 1000);
|
|
my $attemptLow = int($attempt% 1000);
|
|
|
|
|
|
# read in the RC file and generate the new version number text
|
|
my $rcFile = "..\\..\\src\\win32\\SwgClient.rc";
|
|
open(F, $rcFile);
|
|
my $rcText = "";
|
|
my $updatedRcText = "";
|
|
while (<F>)
|
|
{
|
|
$rcText .= $_;
|
|
s/\d+,\d+,\d+,\d+/$publishHigh,$publishLow,$attemptHigh,$attemptLow/ if (/version/i);
|
|
s/\d+, \d+, \d+, \d+/$publishHigh, $publishLow, $attemptHigh, $attemptLow/ if (/version/i);
|
|
$updatedRcText .= $_;
|
|
}
|
|
close(F);
|
|
|
|
# if the RC changed, write it out and rebuild only the clients
|
|
if ($updatedRcText ne $rcText)
|
|
{
|
|
# write out the RC file
|
|
print "Updating and recompling resource file...\n";
|
|
if (!open(F, ">" . $rcFile))
|
|
{
|
|
print "could not open $rcFile for writing\n";
|
|
die;
|
|
}
|
|
|
|
print F $updatedRcText;
|
|
close(F);
|
|
|
|
if (system("rc /Fo $ARGV[0]\\SwgClient.res ..\\..\\src\\win32\\SwgClient.rc") != 0)
|
|
{
|
|
print "resource compiliation failed\n";
|
|
die;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print "Resource file was not changed\n";
|
|
}
|