svn commit: r1084140 - /aries/scripts/list_bundles_in_aries.pl

[zo...@apache.org]

Author: zoe
Date: Tue Mar 22 11:36:11 2011
New Revision: 1084140

URL: http://svn.apache.org/viewvc?rev=1084140&view=rev
Log:
Utility for finding aries bundle names

Added:
    aries/scripts/list_bundles_in_aries.pl

Added: aries/scripts/list_bundles_in_aries.pl
URL: http://svn.apache.org/viewvc/aries/scripts/list_bundles_in_aries.pl?rev=1084140&view=auto
==============================================================================
--- aries/scripts/list_bundles_in_aries.pl (added)
+++ aries/scripts/list_bundles_in_aries.pl Tue Mar 22 11:36:11 2011
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+use File::Find;
+
+# After a build, look in all the target directories to get a list of the bundles that are created.
+# Run this from the top level Aries directory.
+# Discard version information and the org.apache.aries portion to create a list
+
+
+$aries_dir = @ARGV[0];
+
+if (!-d $aries_dir) {
+    print "Usage: perl list_bundles_in_aries.pl source_dir \n";
+    die;
+}
+
+chdir $aries_dir;
+
+@bundles = ();
+
+@modules = (
+           "application",
+           "blueprint",
+           "eba-maven-plugin",
+           "jmx",
+           "jndi",
+           "jpa",
+           "proxy",
+           "quiesce",
+           "testsupport",
+           "transaction",
+           "util",
+           "web"
+           );
+
+foreach $module (@modules) {
+      @bundles = ();
+      print "#\n";
+      print "Module: $module \n";;
+      find (\&getbundles, $module);
+
+      sub getbundles {
+          if ( /.*org\.apache\.aries.([\w\.]*)-.*\.jar$/i) {
+               push @bundles, $1;
+          }
+      }
+      foreach $bundle (@bundles) {
+        print $bundle."\n";
+      }
+}
+