A simple script to generate an ActiveThorns list from all directories

in subdirectories of the toolkits directory.

Ignores the CVS directory.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@74 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 52 insertions, 0 deletions

diff --git a/lib/sbin/BuildActiveThorns.pl b/lib/sbin/BuildActiveThorns.pl
new file mode 100644
index 00000000..cc8a989d
--- /dev/null
+++ b/lib/sbin/BuildActiveThorns.pl
@@ -0,0 +1,52 @@
+#! /usr/bin/perl
+#/*@@
+#  @file      BuildActiveThorns.pl
+#  @date      Tue Jan 19 14:02:07 1999
+#  @author    Tom Goodale
+#  @desc 
+#  Creates an ActiveThornsList
+#  @enddesc 
+#  @version $Id$
+#@@*/
+
+$toolkit_dir = shift(@ARGV);
+
+chdir $toolkit_dir;
+
+open(TOOLKITS, "ls|");
+
+while(<TOOLKITS>)
+{
+  chop;
+  next if (m:^CVS$:);
+
+  if( -d $_)
+  {
+    push (@toolkits, $_);
+  }
+}
+
+close TOOLKITS;
+
+foreach $toolkit (@toolkits)
+{
+  chdir $toolkit;
+
+  open(THORNLIST, "ls|");
+  
+  while(<THORNLIST>)
+  {
+    chop;
+    if( -d $_)
+    {
+      push(@total_thornlist, "$toolkit/$_");
+    }
+  }
+  chdir "..";
+}
+
+foreach $thorn (@total_thornlist)
+{
+  print "$thorn\n";
+}
+