From f2ee980ec6e788d85cb59e358de3e3517bc80708 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20Posp=C3=AD=C5=A1il?= <honik@ntc.zcu.cz>
Date: Thu, 21 Sep 2006 13:13:38 +0000
Subject: [PATCH] perl script to check versions

---
 org.glite.lb/project/check_version.pl | 36 +++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 org.glite.lb/project/check_version.pl

diff --git a/org.glite.lb/project/check_version.pl b/org.glite.lb/project/check_version.pl
new file mode 100644
index 0000000..a55f821
--- /dev/null
+++ b/org.glite.lb/project/check_version.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+# check_version script to be used to compare client-interface and other modules versions
+# Usage:
+#   - set environment variables VERSION and VERSION_AHEAD of the module
+#   - run against ${stagedir}/include/glite/lb/interface_version.h
+# Example: 
+#    ./check_version.pl interface_version.h
+
+my $version = $ENV{VERSION};
+if ($version =~ /(\d+)\.\d+\.\d+/)  {
+	$version = $1;
+} else {
+	print "error: wrong version format ($version)\n";
+	exit 1;
+}
+
+my $ahead = $ENV{VERSION_AHEAD};
+if ($ahead =~ /(\d+)/) {
+	$ahead = $1;
+} else {
+	print "error: wrong version_ahead format ($ahead)\n";
+	exit 1;
+}
+
+my $iface;
+
+while (<>) {
+	/#define GLITE_LB_CLIENT_INTERFACE "(\d+)\.\d+\.\d+"/; 
+	$iface = $1; 
+}
+
+if ($iface + $ahead != $version) { 
+	print "error: Major version of the interface ($iface + $ahead ahead) DOES NOT match implementation ($version)\n" ;
+	exit 1;  
+} 
-- 
1.8.2.3