# | 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.
{
return "0";
}
- my $data = `svn info`;
+ my $data = `svn info 2>/dev/null`;
if ($data eq "")
{
- $data = `git-svn info`;
+ $data = `git describe --tags 2>/dev/null`;
if ($data eq "")
{
$no_svn = 1;
- my $rev = "0";
- return $rev;
+ return '0';
}
+ chomp $data; # remove \n
+ return $data;
}
$data =~ /Revision: (\d+)/;
my $rev = $1;
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))
{
{
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($$)