X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=make%2Fconfigure.pm;h=40d6f67496ce39f4db4c749680aa59f0b751ab3f;hb=fc98fbf44d18ba866102544ca09f1b1c551fdb49;hp=089842fb3977a04db78d24fd0ae3005b8c975bcd;hpb=254733972704fa54092902a32f2b3eef30d74014;p=user%2Fhenk%2Fcode%2Finspircd.git

diff --git a/make/configure.pm b/make/configure.pm
index 089842fb3..40d6f6749 100644
--- a/make/configure.pm
+++ b/make/configure.pm
@@ -2,8 +2,8 @@
 #       | Inspire Internet Relay Chat Daemon |
 #       +------------------------------------+
 #
-#  InspIRCd: (C) 2002-2007 InspIRCd Development Team
-# See: http://www.inspircd.org/wiki/index.php/Credits
+#  InspIRCd: (C) 2002-2009 InspIRCd Development Team
+# See: http://wiki.inspircd.org/Credits
 #
 # This program is free but copyrighted software; see
 #      the file COPYING for details.
@@ -154,8 +154,15 @@ sub nopedantic {
 
 sub getmodules
 {
+	my ($silent) = @_;
+
 	my $i = 0;
-	print "Detecting modules ";
+
+	if (!$silent)
+	{
+		print "Detecting modules ";
+	}
+
 	opendir(DIRHANDLE, "src/modules") or die("WTF, missing src/modules!");
 	foreach my $name (sort readdir(DIRHANDLE))
 	{
@@ -163,11 +170,18 @@ sub getmodules
 		{
 			my $mod = $1;
 			$main::modlist[$i++] = $mod;
-			print ".";
+			if (!$silent)
+			{
+				print ".";
+			}
 		}
 	}
 	closedir(DIRHANDLE);
-	print "\nOk, $i modules.\n";
+
+	if (!$silent)
+	{
+		print "\nOk, $i modules.\n";
+	}
 }
 
 sub promptnumeric($$)