From: František Dvořák <valtri@civ.zcu.cz>
Date: Wed, 1 Feb 2012 08:59:39 +0000 (+0000)
Subject: Parameter for listing subpackages.
X-Git-Tag: glite-jobid-api-c_R_2_1_0_2~4
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=8cb66ecebbc398cb39486801a5024a45ce23fe41;p=jra1mw.git

Parameter for listing subpackages.
---

diff --git a/org.glite.lb/configure b/org.glite.lb/configure
index 2b0bbb4..451bc91 100755
--- a/org.glite.lb/configure
+++ b/org.glite.lb/configure
@@ -317,7 +317,15 @@ if ($help) { usage(); exit 0; }
 
 if ($listmodules) {
 	my $name_prefix = ($listmodules eq 'gridsite' and $project eq 'glite') ? 'org' : $project{etics_name};
-	my @m = map "$name_prefix.$listmodules.$_",@{$lbmodules{$listmodules}};
+	my @m;
+
+	if (exists $lbmodules{$listmodules}) {
+		@m = map "$name_prefix.$listmodules.$_",@{$lbmodules{$listmodules}};
+	} else {
+		for my $sub (keys %subpackages) {
+			push @m, $sub if ($subpackages{$sub} eq $listmodules);
+		}
+	}
 	print "@m\n";
 	exit 0;
 }
@@ -1986,6 +1994,7 @@ General options (defaults in []):
   --thrflavour=flavour
   --nothrflavour=flavour	threaded and non-treaded flavours [gcc64dbgpthr,gcc64dbg]
   --listmodules=subsys          list modules of a subsystem
+  --listmodules=module          list subpackages of a module
   --version=maj.min.rev-age	specify version here instead of reading version.properties
   --branch=branch		CVS branch/etics name suffix (HEAD, branch_2_1, ...)
   --libdir=libdir		typically [lib,lib64] postfix