2 # InspIRCd -- Internet Relay Chat Daemon
4 # Copyright (C) 2013-2014 Peter Powell <petpow@saberuk.com>
6 # This file is part of InspIRCd. InspIRCd is free software: you can
7 # redistribute it and/or modify it under the terms of the GNU General Public
8 # License as published by the Free Software Foundation, version 2.
10 # This program is distributed in the hope that it will be useful, but WITHOUT
11 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
15 # You should have received a copy of the GNU General Public License
16 # along with this program. If not, see <http://www.gnu.org/licenses/>.
27 use warnings FATAL => qw(all);
29 use Exporter qw(import);
30 use File::Spec::Functions qw(rel2abs);
32 our @EXPORT = qw(get_cpu_count
39 return %version if %version;
41 # Attempt to retrieve version information from src/version.sh
42 chomp(my $vf = `sh src/version.sh 2>/dev/null`);
43 if ($vf =~ /^InspIRCd-([0-9]+)\.([0-9]+)\.([0-9]+)(?:\+(\w+))?$/) {
44 %version = ( MAJOR => $1, MINOR => $2, PATCH => $3, LABEL => $4 );
47 # Attempt to retrieve missing version information from Git
48 chomp(my $gr = `git describe --tags 2>/dev/null`);
49 if ($gr =~ /^v([0-9]+)\.([0-9]+)\.([0-9]+)(?:-\d+-g(\w+))?$/) {
50 $version{MAJOR} = $1 unless defined $version{MAJOR};
51 $version{MINOR} = $2 unless defined $version{MINOR};
52 $version{PATCH} = $3 unless defined $version{PATCH};
53 $version{LABEL} = $4 if defined $4;
56 # The user is using a stable release which does not have
58 $version{LABEL} = 'release' unless defined $version{LABEL};
60 # If any of these fields are missing then the user has deleted the
61 # version file and is not running from Git. Fill in the fields with
62 # dummy data so we don't get into trouble with undef values later.
63 $version{MAJOR} = '0' unless defined $version{MAJOR};
64 $version{MINOR} = '0' unless defined $version{MINOR};
65 $version{PATCH} = '0' unless defined $version{PATCH};
70 sub module_installed($) {
79 $count = `sysctl -n hw.ncpu`;
80 } elsif ($^O eq 'darwin') {
81 $count = `sysctl -n hw.activecpu`;
82 } elsif ($^O eq 'linux') {
83 $count = `getconf _NPROCESSORS_ONLN`;
84 } elsif ($^O eq 'solaris') {
85 $count = `psrinfo -p`;