Most of this is now hijacked into MakeUtils.pl

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

1 files changed, 3 insertions, 57 deletions

diff --git a/lib/sbin/BuildActiveThorns.pl b/lib/sbin/BuildActiveThorns.pl
index e008b743..d6f8ab8d 100644
--- a/lib/sbin/BuildActiveThorns.pl
+++ b/lib/sbin/BuildActiveThorns.pl
@@ -9,63 +9,9 @@
 #  @version $Id$
 #@@*/
 
-$package_dir = shift(@ARGV);
-
-chdir $package_dir || die "Can't change directory to $package_dir";
-
-open(PACKAGES, "ls|");
-
-while(<PACKAGES>)
-{
-  chop;
-
-  # Ignore CVS and backup stuff
-  next if (m:^CVS$:);
-  next if (m:^\#:);
-  next if (m:~$:);
-  next if (m:\.bak$:i);
-  next if (m:^\.:);
-
-  # Just pick directories
-  if( -d $_)
-  {
-    push (@packages, $_);
-  }
-}
+require "lib/sbin/MakeUtils.pl";
 
-close PACKAGES;
-
-foreach $package (@packages)
-{
-  chdir $package;
-
-  open(THORNLIST, "ls|");
-  
-  while(<THORNLIST>)
-  {
-    chop;
-
-    # Ignore CVS and backup stuff
-    next if (m:^CVS$:);
-    next if (m:^\#:);
-    next if (m:~$:);
-    next if (m:\.bak$:i);
-    next if (m:^\.:);
-    
-    # Allow each package to have a documentation directory.
-    next if (m:^doc$:);
-
-    # Just pick directories
-    if( -d $_)
-    {
-      push(@total_thornlist, "$package/$_");
-    }
-  }
-  chdir "..";
-}
+$package_dir = shift(@ARGV);
 
-foreach $thorn (@total_thornlist)
-{
-  print "$thorn\n";
-}
+&buildthorns($package_dir,"thorns");