infrastructure/printversion.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!perl

$basedir = $0;
$basedir =~ s|/.*||;
$basedir .= "/..";
-d $basedir or die "$basedir: $!";
chdir $basedir or die "$basedir: $!";
require "infrastructure/BoxPlatform.pm.in";

print "$BoxPlatform::product_version\n";

exit 0;