ouch/inspircd
2
0
Fork 0
mirror of https://github.com/inspircd/inspircd.git synced 2025-03-10 02:59:01 -04:00
Code Issues Packages Projects Releases Wiki Activity

Allow for silencing getmodules() output (is annoying when using modulemanager)

Browse Source 
git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@10466 e03df62e-2008-0410-955e-edbf42e46eb7
This commit is contained in:
w00t 2008-09-07 23:40:00 +00:00
parent 76d8c58f09
commit 28fbe77831
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
make/configure.pm
View File

@ -154,8 +154,15 @@ sub nopedantic {
sub getmodules sub getmodules
{ {
my ($silent) = @_;
my $i = 0; my $i = 0;
if (!$silent)
{
print "Detecting modules "; print "Detecting modules ";
}
opendir(DIRHANDLE, "src/modules") or die("WTF, missing src/modules!"); opendir(DIRHANDLE, "src/modules") or die("WTF, missing src/modules!");
foreach my $name (sort readdir(DIRHANDLE)) foreach my $name (sort readdir(DIRHANDLE))
{ {
@ -163,12 +170,19 @@ sub getmodules
{ {
my $mod = $1; my $mod = $1;
$main::modlist[$i++] = $mod; $main::modlist[$i++] = $mod;
if (!$silent)
{
print "."; print ".";
} }
} }
}
closedir(DIRHANDLE); closedir(DIRHANDLE);
if (!$silent)
{
print "\nOk, $i modules.\n"; print "\nOk, $i modules.\n";
} }
}
sub promptnumeric($$) sub promptnumeric($$)
{ {

2
modulemanager
View File

@ -72,7 +72,7 @@ while (<SRC>) {
} }
close SRC; close SRC;
getmodules(); getmodules(1);
`./src/version.sh` =~ /InspIRCd-([0-9.]+)/ or die "Cannot determine inspircd version"; `./src/version.sh` =~ /InspIRCd-([0-9.]+)/ or die "Cannot determine inspircd version";
$installed{core} = $1; $installed{core} = $1;