#
# InspIRCd -- Internet Relay Chat Daemon
#
+# Copyright (C) 2020 Nicole Kleinhoff <ilbelkyr@shalture.org>
+# Copyright (C) 2020 Daniel Vassdal <shutter@canternet.org>
# Copyright (C) 2019 Matt Schatz <genius3000@g3k.solutions>
# Copyright (C) 2019 Anatole Denis <natolumin@rezel.net>
# Copyright (C) 2017 emerson <github@emersonveenstra.net>
use strict;
use warnings FATAL => qw(all);
+use Cwd qw(getcwd);
use File::Basename qw(basename);
use File::Copy ();
-use File::Spec::Functions qw(catfile catdir rel2abs);
+use File::Spec::Functions qw(abs2rel catfile catdir rel2abs);
use FindBin qw($RealDir);
use Getopt::Long qw(GetOptions);
use POSIX qw(getgid getuid);
);
if (scalar(@opt_enableextras) + scalar(@opt_disableextras) > 0) {
- @opt_enableextras = split /[, ]+/, join(',', @opt_enableextras);
- @opt_disableextras = split /[, ]+/, join(',', @opt_disableextras);
+ @opt_enableextras = grep { /\S/ } split /[, ]+/, join(',', @opt_enableextras);
+ @opt_disableextras = grep { /\S/ } split /[, ]+/, join(',', @opt_disableextras);
enable_extras(@opt_enableextras);
disable_extras(@opt_disableextras);
list_extras;
my %config;
if ($interactive) {
%config = read_config_file(CONFIGURE_CACHE_FILE);
- run_test CONFIGURE_CACHE_FILE, %config;
+ run_test abs2rel(CONFIGURE_CACHE_FILE, $RealDir), %config;
if (!defined $config{VERSION}) {
$config{VERSION} = CONFIGURE_CACHE_VERSION;
} elsif ($config{VERSION} != CONFIGURE_CACHE_VERSION) {
Would you like to enable extra modules manually?
EOQ
if (prompt_bool $interactive, $question, 0) {
- foreach my $extra (<src/modules/extra/m_*.cpp>) {
- my $module_name = basename $extra, '.cpp';
- if (prompt_bool $interactive, "Would you like to enable $module_name?", 0) {
- enable_extras "$module_name.cpp";
+ foreach my $extra (<$RealDir/src/modules/extra/m_*.cpp>) {
+ my $module_name = module_shrink $extra;
+ if (prompt_bool $interactive, "Would you like to enable the <|BOLD $module_name|> module?", 0) {
+ enable_extras $module_name;
}
}
} elsif (!defined $opt_disable_auto_extras) {
# system './modulemanager', 'enable', '--auto';
my %modules = (
# Missing: m_ldap, m_regex_stdlib, m_ssl_mbedtls
+ 'm_argon2.cpp' => 'pkg-config --exists libargon2',
'm_geo_maxmind.cpp' => 'pkg-config --exists libmaxminddb',
'm_mysql.cpp' => 'mysql_config --version',
'm_pgsql.cpp' => 'pg_config --version',
https://letsencrypt.org/getting-started/ for more details.
EOQ
-if (<src/modules/m_ssl_*.cpp>) {
+if (<$RealDir/src/modules/m_ssl_*.cpp>) {
if (prompt_bool $interactive, $question, $interactive) {
- system './tools/genssl', 'auto';
+ create_directory CONFIGURE_DIRECTORY, 0750 or print_error "unable to create ${\CONFIGURE_DIRECTORY}: $!";
+ system './tools/genssl', 'auto', CONFIGURE_DIRECTORY;
+ } else {
+ my @pems = <${\CONFIGURE_DIRECTORY}/{cert,csr,dhparams,key}.pem>;
+ $question = <<EOQ;
+The following self-signed files were previously generated and will be installed
+when you run Make. Do you want to delete them?
+
+ * ${\join "\n * ", @pems}
+EOQ
+ if (@pems && prompt_bool $interactive, $question, 0) {
+ unlink @pems;
+ }
}
-} else {
+} elsif (!defined $opt_disable_auto_extras) {
print_warning <<"EOM";
You are building without enabling any SSL modules. This is not
recommended as SSL greatly enhances the security and privacy of your IRC server
<|GREEN Extra Modules:|>
EOM
-for my $file (<src/modules/m_*>) {
- my $module = basename $file, '.cpp';
- say " * $module" if -l $file;
+for my $file (<$RealDir/src/modules/m_*>) {
+ say " * ${\module_shrink $file}" if -l $file;
}
+my @makeargs;
+push @makeargs, "-C${\abs2rel $RealDir}" unless getcwd eq $RealDir;
+push @makeargs, "-j${\(get_cpu_count() + 1)}";
+
print_format <<"EOM";
<|GREEN Paths:|>
<|GREEN Execution User:|> $config{USER} ($config{UID})
<|GREEN Socket Engine:|> $config{SOCKETENGINE}
-To build with these settings run '<|GREEN make -j${\(get_cpu_count() + 1)} install|>' now.
+To build with these settings run '<|GREEN make ${\join ' ', @makeargs} install|>' now.
EOM
my @sources = map { File::Spec->case_tolerant() ? lc($_) : $_ } (readdir($dd));
closedir $dd;
undef $dd;
- my $maxlen = (sort { $b <=> $a } (map {length($_)} (@extras)))[0];
+ my $maxlen = (sort { $b <=> $a } (map { length module_shrink $_ } (@extras)))[0];
my %extras = ();
EXTRA: for my $extra (@extras) {
next if (File::Spec->curdir() eq $extra || File::Spec->updir() eq $extra);
for my $extra (sort {$a cmp $b} keys(%extras)) {
my $text = $extras{$extra};
if ($text =~ m/needed by/ && $text !~ m/enabled/) {
- printf "\e[31;1;5m%-*s = %s%s\e[0m\n", $maxlen, $extra, $text, ($text =~ m/needed by/ ? ")" : "");
+ printf "\e[31;1;5m%-*s = %s%s\e[0m\n", $maxlen, module_shrink($extra), $text, ($text =~ m/needed by/ ? ")" : "");
} else {
- printf "%-*s = %s%s\n", $maxlen, $extra, $text, ($text =~ m/needed by/ ? "\e[0m)" : "");
+ printf "%-*s = %s%s\n", $maxlen, module_shrink($extra), $text, ($text =~ m/needed by/ ? "\e[0m)" : "");
}
}
return keys(%extras) if wantarray; # Can be used by manage_extras.
}
-sub enable_extras (@) {
- my (@extras) = @_;
- for my $extra (@extras) {
- $extra = "m_$extra" unless $extra =~ /^m_/;
- $extra = "$extra.cpp" unless $extra =~ /\.cpp$/;
- my $extrapath = "src/modules/extra/$extra";
- if (!-e $extrapath) {
- print STDERR "Cannot enable \e[32;1m$extra\e[0m : No such file or directory in src/modules/extra\n";
- next;
- }
- my $source = "src/modules/$extra";
- if (-e $source) {
- print STDERR "Cannot enable \e[32;1m$extra\e[0m : destination in src/modules exists (might already be enabled?)\n";
- next;
+sub enable_extras(@) {
+ my $moduledir = catdir $RealDir, 'src', 'modules';
+ my $extradir = catdir $moduledir, 'extra';
+
+ for my $extra (@_) {
+ my $shortname = module_shrink $extra;
+ my $extrafile = module_expand $extra;
+
+ my $extrapath = catfile $extradir, $extrafile;
+ if (!-f $extrapath) {
+ print_error "<|GREEN $extra|> is not an extra module!";
}
- # Get dependencies, and add them to be processed.
- my @deps = split /\s+/, get_directive($extrapath, 'ModDep', '');
- for my $dep (@deps) {
- next if scalar(grep { $_ eq $dep } (@extras)) > 0; # Skip if we're going to be enabling it anyway.
- if (!-e "src/modules/$dep" && !-e "include/$dep") {
- if (-e "src/modules/extra/$dep") {
- print STDERR "Will also enable extra \e[32;1m$dep\e[0m (needed by \e[32;1m$extra\e[0m)\n";
- push @extras, $dep;
- } else {
- print STDERR "\e[33;1mWARNING:\e[0m module \e[32;1m$extra\e[0m might be missing dependency \e[32;1m$dep\e[0m - YOU are responsible for satisfying it!\n";
- }
+
+ my $modulepath = catfile $moduledir, $extrafile;
+ if (-l $modulepath) {
+ if (readlink($modulepath) ne $extrapath) {
+ unlink $modulepath; # Remove the dead symlink.
+ } else {
+ next; # Module is already enabled.
}
}
- print "Enabling $extra ... \n";
- symlink "extra/$extra", $source or print STDERR "$source: Cannot link to 'extra/$extra': $!\n";
+
+ if (-e $modulepath) {
+ print_error "unable to symlink <|GREEN ${\abs2rel $modulepath}|> to <|GREEN ${\abs2rel $extrapath}|>: the target exists and is not a symlink.";
+ } else {
+ print_format "Enabling the <|GREEN $shortname|> module ...\n";
+ symlink $extrapath, $modulepath or print_error "unable to symlink <|GREEN ${\abs2rel $modulepath}|> to <|GREEN ${\abs2rel $extrapath}|>: $!";
+ }
}
}
-sub disable_extras (@)
-{
- opendir my $dd, "src/modules/extra/";
- my @files = readdir($dd);
- closedir $dd;
- my (@extras) = @_;
-EXTRA: for my $extra (@extras) {
- $extra = "m_$extra" unless $extra =~ /^m_/;
- $extra = "$extra.cpp" unless $extra =~ /\.cpp$/;
- my $extrapath = "src/modules/extra/$extra";
- my $source = "src/modules/$extra";
- if (!-e $extrapath) {
- print STDERR "Cannot disable \e[32;1m$extra\e[0m : Is not an extra\n";
- next;
- }
- if ((! -l $source) || readlink($source) ne "extra/$extra") {
- print STDERR "Cannot disable \e[32;1m$extra\e[0m : Source is not a link or doesn't refer to the right file. Remove manually if this is in error.\n";
- next;
- }
- # Check if anything needs this.
- for my $file (@files) {
- my @deps = split /\s+/, get_directive("src/modules/extra/$file", 'ModDep', '');
- # File depends on this extra...
- if (scalar(grep { $_ eq $extra } @deps) > 0) {
- # And is both enabled and not about to be disabled.
- if (-e "src/modules/$file" && scalar(grep { $_ eq $file } @extras) < 1) {
- print STDERR "Cannot disable \e[32;1m$extra\e[0m : is needed by \e[32;1m$file\e[0m\n";
- next EXTRA;
- }
- }
+sub disable_extras(@) {
+ my $moduledir = catdir $RealDir, 'src', 'modules';
+ my $extradir = catdir $moduledir, 'extra';
+
+ for my $extra (@_) {
+ my $shortname = module_shrink $extra;
+ my $extrafile = module_expand $extra;
+
+ my $modulepath = catfile $moduledir, $extrafile;
+ my $extrapath = catfile $extradir, $extrafile;
+ if (!-e $modulepath && !-e $extrapath) {
+ print_error "the <|GREEN $shortname|> module does not exist!";
+ } elsif (!-e $modulepath && -e $extrapath) {
+ print_error "the <|GREEN $shortname|> module is not currently enabled!";
+ } elsif ((-e $modulepath && !-e $extrapath) || !-l $modulepath) {
+ print_error "the <|GREEN $shortname|> module is not an extra module!";
+ } else {
+ print_format "Disabling the <|GREEN $shortname|> module ...\n";
+ unlink $modulepath or print_error "unable to unlink <|GREEN $extrapath|>: $!";
}
- # Now remove.
- print "Disabling $extra ... \n";
- unlink "src/modules/$extra" or print STDERR "Cannot disable \e[32;1m$extra\e[0m : $!\n";
}
}