From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Fri, 16 Jan 2009 14:26:30 +0000 (+0000)
Subject: accept --module=subsys.component for --mode=etics
X-Git-Tag: glite-jobid-api-c_R_1_0_0_1~24
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=66e4f9b52240c035df12f7b44f18bb8c4af9b03c;p=jra1mw.git

accept --module=subsys.component for --mode=etics
---

diff --git a/org.glite.lb/configure b/org.glite.lb/configure
index f87c6ce..6720f03 100755
--- a/org.glite.lb/configure
+++ b/org.glite.lb/configure
@@ -154,7 +154,7 @@ delete $aux{$_} for (split /,/,$staged);
 
 mode_build() if $mode eq 'build';
 mode_checkout() if $mode eq 'checkout';
-mode_etics() if $mode eq 'etics';
+mode_etics($module) if $mode eq 'etics';
 
 sub mode_build {
 	print "\nBuilding modules: @modules\n";
@@ -412,16 +412,13 @@ BEGIN{
 };
 
 sub mode_etics {
-	die "$0: --module required with --etics\n" unless $module;
+	$fmod = shift;
 
-	my $subsys;
-	my ($major,$minor,$rev,$age);
+	die "$0: --module required with --etics\n" unless $fmod;
+	
+	my ($subsys,$module) = split /\./,$fmod;
 
-	for my $s (keys %lbmodules) {
-		for (@{$lbmodules{$s}}) {
-			$subsys = $s if $_ eq $module;
-		}
-	}
+	my ($major,$minor,$rev,$age);
 
 	if ($version) {
 		$version =~ /([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)-(.+)/;
@@ -492,7 +489,7 @@ init = None
 install = make install
 clean = make clean
 test = make check
-configure = $confdir/configure --module $module @copts
+configure = $confdir/configure --module $subsys.$module @copts
 checkstyle = None
 
 [Platform-default:Property]