From e791a267e6c7c824d0f34c9313c9805bc618c9b0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= Date: Wed, 2 Nov 2005 16:28:34 +0000 Subject: [PATCH] *** empty log message *** --- org.glite.lb/project/get-release-tags | 42 +++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 org.glite.lb/project/get-release-tags diff --git a/org.glite.lb/project/get-release-tags b/org.glite.lb/project/get-release-tags new file mode 100644 index 0000000..54cf3e8 --- /dev/null +++ b/org.glite.lb/project/get-release-tags @@ -0,0 +1,42 @@ +#!/usr/bin/perl + +use Getopt::Std; + +sub HELP_MESSAGE { + $h = shift; + + print $h "usage: $0: {-r x.y.z | -t tag_name } -s subsystem\n"; +} + +sub VERSION_MESSAGE {} + +$Getopt::Std::STANDARD_HELP_VERSION = 1; +getopts('r:t:s:'); + +if (($opt_r && $opt_t) || (!$opt_r && !$opt_t) || !$opt_s) { + Getopt::Std::help_mess 'r:t:s:','main'; + exit 1; +} + +$opt_r =~ s/\./_/g; +$tag = $opt_t ? $opt_t : "glite_R_${opt_r}"; + +chdir "../org.glite" or die "chdir ../org.glite: $!\n"; + +open CVS,"cvs update -p -r $tag project/global.dependencies.properties 2>/dev/null |" + or die "cvs update -p -r $tag project/global.dependencies.properties|: $!"; + +while (($_=) && !$stag) { + next unless /^${opt_s}\.version/; + @v = split; + $stag = $v[2]; +} + +close CVS; + +print "$opt_s: $stag\n"; + +chdir "../$opt_s" or die "chdir ../$opt_s: $!\n"; + +system "cvs update -p -r $stag project/dependencies.properties"; + -- 1.8.2.3