Move the configure.pl generation code into the tree.

1 files changed, 18 insertions, 0 deletions

diff --git a/misc/config/code/modloop.pl b/misc/config/code/modloop.pl
new file mode 100644
index 000000000..09d0130ae
--- /dev/null
+++ b/misc/config/code/modloop.pl
@@ -0,0 +1,18 @@
+sub get_modules_list
+   {
+   my $MOD_DIR = $_[0];
+   my $dir = new DirHandle $MOD_DIR;
+   if(!defined $dir) { return (); }
+
+   my %MODULES;
+
+   while(defined($_ = $dir->read))
+      {
+      next if($_ eq '.' or $_ eq '..');
+      my $MODULE = $_;
+      my %modinfo = get_module_info($MODULE, $MOD_DIR);
+      foreach (keys %modinfo) { $MODULES{$MODULE}{$_} = $modinfo{$_}; }
+      }
+   return %MODULES;
+   }
+