From 8424e1367b33e8605361cd8aa4584405e4a74fd7 Mon Sep 17 00:00:00 2001
From: w00t <w00t@e03df62e-2008-0410-955e-edbf42e46eb7>
Date: Sun, 7 Sep 2008 01:51:21 +0000
Subject: Add basic module manager, patch courtesy of danieldg.. still needs
 some work/review, but looks good

git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@10426 e03df62e-2008-0410-955e-edbf42e46eb7
---
 make/configure.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'make/configure.pm')

diff --git a/make/configure.pm b/make/configure.pm
index e9c1a04c3..ba586e3e6 100644
--- a/make/configure.pm
+++ b/make/configure.pm
@@ -20,7 +20,7 @@ use warnings FATAL => qw(all);
 use Exporter 'import';
 use POSIX;
 use make::utilities;
-our @EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies nopedantic resolve_directory yesno showhelp promptstring_s);
+our @EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies getmodversion nopedantic resolve_directory yesno showhelp promptstring_s);
 
 my $no_svn = 0;
 
@@ -117,6 +117,21 @@ sub getdependencies {
 	return "";
 }
 
+sub getmodversion {
+	my ($file) = @_;
+	open(FLAGS, $file) or return "";
+	while (<FLAGS>) {
+		if ($_ =~ /^\/\* \$ModVersion: (.+) \*\/$/) {
+			my $x = translate_functions($1, $file);
+			next if ($x eq "");
+			close(FLAGS);
+			return $x;
+		}
+	}
+	close(FLAGS);
+	return "";
+}
+
 sub nopedantic {
 	my ($file) = @_;
 	open(FLAGS, $file) or return "";
-- 
cgit v1.2.3