From: Zdeněk Šustr <sustr4@cesnet.cz>
Date: Tue, 27 Jan 2009 13:03:29 +0000 (+0000)
Subject: The most recent version copied. Do not modify this instance (RW in ./org.glite.lb).
X-Git-Tag: glite-lb-types_R_1_0_0_3~1
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=86d69313dba2b11329db0f224f14809c5cfea133;p=jra1mw.git

The most recent version copied. Do not modify this instance (RW in ./org.glite.lb).
---

diff --git a/org.glite.lb.types/configure b/org.glite.lb.types/configure
index e58d090..5e0efcb 100755
--- a/org.glite.lb.types/configure
+++ b/org.glite.lb.types/configure
@@ -21,6 +21,10 @@ my $help = 0;
 my $listmodules;
 my $version;
 my $output;
+my $lb_tag = '';
+my $lbjp_tag = '';
+my $sec_tag = '';
+my $jobid_tag = '';
 
 my @nodes = qw/client server logger utils client-java doc ws-test/;
 my %enable_nodes;
@@ -73,6 +77,10 @@ my @opts = (
 	'version=s' => \$version,
 	'output=s' => \$output,
 	'stage=s' => \$stagedir,
+	'lb-tag=s' => \$lb_tag,
+	'lbjp-common-tag=s' => \$lbjp_tag,
+	'security-tag=s' => \$sec_tag,
+	'jobid-tag=s' => \$jobid_tag,
 	'help' => \$help,
 );
 
@@ -222,9 +230,42 @@ sub mode_build {
 	
 sub mode_checkout() {
 	for (@modules) {
+		my $module = $_;
+		my $tag = "";
+		if ($lb_tag){
+			for (@{$lbmodules{lb}}){
+				if ("lb.".$_ eq $module){
+					$tag = '-r '.$lb_tag;
+				}
+			}	
+		}
+		if ($lbjp_tag){
+			for (@{$lbmodules{'lbjp-common'}}){
+				if ("lbjp-common.".$_ eq $module){
+                                        $tag = '-r '.$lbjp_tag;
+                                }
+			}
+		}
+		if ($sec_tag){
+			for (@{$lbmodules{security}}){
+				if ("security.".$_ eq $module){
+                                        $tag = '-r '.$sec_tag;
+                                }
+			}
+		}
+		if ($jobid_tag){
+			for (@{$lbmodules{jobid}}){
+				if ("jobid.".$_ eq $module){
+                                        $tag = '-r '.$jobid_tag;
+                                }
+			}
+		}
+		#if (grep {"lb.".$_ eq $module} @{$lbmodules{lb}}){
+		#	print "found";
+		#}
 		$_ = full($_);
 		print "\n*** Checking out $_\n";
-		system("cvs checkout $_") == 0 or die "cvs checkout $_: $?\n";
+		system("cvs checkout  $tag $_") == 0 or die "cvs checkout $tag $_: $?\n";
 	}
 }
 
@@ -573,6 +614,10 @@ What to build:
   --enable-NODE			build this "node" (set of modules) only. Available nodes are
 					@{$lbmodules{lb}},@{$lbmodules{security}}
   --disable-NODE		don't build this node
+  --lb-tag=tag			checkout LB modules with specific tag
+  --lbjp-common-tag=tag         checkout lbjp-common modules with specific tag
+  --security-tag=tag		checkout security modules with specific tag
+  --jobid-tag=tag		checkout jobid modules with specific tag
 
 Dependencies:
   --with-EXTERNAL=PATH		where to look for an external. Required externals