1 files changed, 36 insertions, 0 deletions
diff --git a/lib/sbin/configure_thorns.pl b/lib/sbin/configure_thorns.pl
new file mode 100644
index 00000000..b9797e1a
--- /dev/null
+++ b/lib/sbin/configure_thorns.pl
@@ -0,0 +1,36 @@
+#! /usr/bin/perl
+#/*@@
+#  @file      configure_thorns.pl
+#  @date      Fri Jan  8 18:19:00 1999
+#  @author    Tom Goodale
+#  @desc 
+#  Configures the thorn directories for a build of the CCTK
+#  @enddesc 
+#@@*/
+
+$top = shift(@ARGV);
+$config = shift(@ARGV);
+
+%activethorns = &GetActiveThorns($top, $config);
+
+chdir $top;
+
+chdir $config;
+
+chdir "toolkits";
+
+foreach $thorn (keys %activethorns)
+{
+  if (! -d $activethorns{$thorn} && ! -l $activethorns{$thorn})
+  {
+    mkdir($activethorns{$thorn}, 0755);
+  }
+
+  chdir $activethorns{$thorn};
+
+  if (! -d $thorn && ! -l $thorn)
+  {
+    mkdir($thorn, 0755);
+  }
+
+