From e321ef1ed76cd0e4ce90734cd7b5b7bd764646bd Mon Sep 17 00:00:00 2001
From: lloyd <lloyd@randombit.net>
Date: Sat, 3 Jun 2006 05:58:02 +0000
Subject: Move the configure.pl generation code into the tree.

---
 misc/config/code/modloop.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 misc/config/code/modloop.pl

(limited to 'misc/config/code/modloop.pl')

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;
+   }
+
-- 
cgit v1.2.3