From: Jan Pospíšil <honik@ntc.zcu.cz>
Date: Thu, 21 Sep 2006 13:13:38 +0000 (+0000)
Subject: perl script to check versions
X-Git-Tag: glite-lb_R_1_3_4~1
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=f2ee980ec6e788d85cb59e358de3e3517bc80708;p=jra1mw.git

perl script to check versions
---

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;  
+}