blob: 0cf9cbcb0b0689f967e635c475e7951a698532fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!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";
my $verfile = "$basedir/lib/common/BoxVersion.h";
my $newver = "#define BOX_VERSION \"$BoxPlatform::product_version\"\n";
my $oldver = "";
if (-r $verfile)
{
open VERSIONFILE, "< $verfile" or die "$verfile: $!";
$oldver = <VERSIONFILE>;
close VERSIONFILE;
}
if ($newver ne $oldver)
{
open VERSIONFILE, "> $verfile" or die "BoxVersion.h: $!";
print VERSIONFILE $newver;
close VERSIONFILE;
}
print $BoxPlatform::product_version;
exit 0;
|
