From dd5f789359fcef48c8efcddf35619b11ab602638 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= <ljocha@ics.muni.cz>
Date: Thu, 15 Jan 2009 13:48:19 +0000
Subject: [PATCH] --version and --output

---
 org.glite.lb/configure | 36 ++++++++++++++++++++++++++----------
 1 file changed, 26 insertions(+), 10 deletions(-)

diff --git a/org.glite.lb/configure b/org.glite.lb/configure
index 66feb51..6f265ba 100755
--- a/org.glite.lb/configure
+++ b/org.glite.lb/configure
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+# $Header$
+
 use Getopt::Long;
 
 my $pwd = `pwd`; chomp $pwd;
@@ -11,6 +13,8 @@ my $nothrflavour = 'gcc64dbg';
 my $mode = 'build';
 my $help = 0;
 my $listmodules;
+my $version;
+my $output;
 
 my @nodes = qw/client server logger utils client-java doc ws-test/;
 my %enable_nodes;
@@ -56,6 +60,8 @@ my @opts = (
 	'nothrflavour=s' => \$nothrflavour,
 	'mode=s' => \$mode,
 	'listmodules=s' => \$listmodules,
+	'version=s' => \$version,
+	'output=s' => \$output,
 	'help' => \$help,
 );
 
@@ -82,6 +88,9 @@ if ($listmodules) {
 	exit 0;
 }
 
+warn "$0: --version and --output make sense only in --mode=etics\n"
+	if ($version || $output) && $mode ne 'etics';
+
 my $en;
 for (keys %enable_nodes) { $en = 1 if $enable_nodes{$_}; }
 
@@ -390,15 +399,21 @@ sub mode_etics {
 		}
 	}
 
-	open V,"org.glite.$subsys.$module/project/version.properties"
-		or die "org.glite.$subsys.$module/project/version.properties: $!\n";
-
-	while ($_ = <V>) {
-		chomp;
-		($major,$minor,$rev) = ($1,$2,$3) if /module\.version\s*=\s*([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)/;
-		$age = $1 if /module\.age\s*=\s*([[:digit:]]+)/;
+	if ($version) {
+		$version =~ /([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)-(.+)/;
+		($major,$minor,$rev,$age) = ($1,$2,$3,$4);
+	}
+	else { 
+		open V,"org.glite.$subsys.$module/project/version.properties"
+			or die "org.glite.$subsys.$module/project/version.properties: $!\n";
+	
+		while ($_ = <V>) {
+			chomp;
+			($major,$minor,$rev) = ($1,$2,$3) if /module\.version\s*=\s*([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)/;
+			$age = $1 if /module\.age\s*=\s*([[:digit:]]+)/;
+		}
+		close V;
 	}
-	close V;
 
 	my @copts = ();
 	my %ge;
@@ -411,13 +426,14 @@ sub mode_etics {
 
 
 	my $conf = "glite-$subsys-${module}_R_${major}_${minor}_${rev}_${age}";
-	open C,">$conf.ini" or die "$conf.ini: $!\n";
+	my $file = $output ? $output : "$conf.ini";
+	open C,">$output" or die "$output: $!\n";
 
 	my $buildroot = $topbuild{$subsys.$module} ? '' : "build.root = build\n";
 
 	my $confdir = $topbuild{$subsys.$module} ? '../org.glite.lb' : '../../org.glite.lb';
 
-	print STDERR "Writing $conf.ini\n";
+	print STDERR "Writing $output\n";
 	print C qq{
 [Configuration-$conf]
 profile = None
-- 
1.8.2.3