From bb591d01f13a5c50d6cee571097f1119150bba6d Mon Sep 17 00:00:00 2001
From: Chris Wilson <chris+github@qwirx.com>
Date: Sun, 5 Oct 2008 15:21:50 +0000
Subject: Add a script to print the Box software version, to substitute into
 the installer and the documentation.

---
 infrastructure/printversion.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 infrastructure/printversion.pl

(limited to 'infrastructure/printversion.pl')

diff --git a/infrastructure/printversion.pl b/infrastructure/printversion.pl
new file mode 100644
index 00000000..13815284
--- /dev/null
+++ b/infrastructure/printversion.pl
@@ -0,0 +1,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;
-- 
cgit v1.2.3