diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-19 14:10:28 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-19 14:10:28 +0000 |
commit | aa2c58afce07259034f7de4257e9c6a43a0cc268 (patch) | |
tree | 9ed63f57925dca8b4c4c9622c753574d9f06668f /lib | |
parent | a85fe5483cedbf5fd35e6036d0336d7db97ee584 (diff) |
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
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/BuildActiveThorns.pl | 52 |
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"; +} + |