configure

   1 #!/usr/bin/env perl
   2
   3 #
   4 # InspIRCd -- Internet Relay Chat Daemon
   5 #
   6 #   Copyright (C) 2009-2010 Daniel De Graaf <danieldg@inspircd.org>
   7 #   Copyright (C) 2007, 2009 Dennis Friis <peavey@inspircd.org>
   8 #   Copyright (C) 2003, 2006-2008 Craig Edwards <craigedwards@brainbox.cc>
   9 #   Copyright (C) 2006-2008 Robin Burchell <robin+git@viroteck.net>
  10 #   Copyright (C) 2008 Thomas Stagner <aquanight@inspircd.org>
  11 #   Copyright (C) 2007 John Brooks <john.brooks@dereferenced.net>
  12 #   Copyright (C) 2006 Oliver Lupton <oliverlupton@gmail.com>
  13 #   Copyright (C) 2003-2006 Craig McLure <craig@chatspike.net>
  14 #
  15 # This file is part of InspIRCd.  InspIRCd is free software: you can
  16 # redistribute it and/or modify it under the terms of the GNU General Public
  17 # License as published by the Free Software Foundation, version 2.
  18 #
  19 # This program is distributed in the hope that it will be useful, but WITHOUT
  20 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21 # FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22 # details.
  23 #
  24 # You should have received a copy of the GNU General Public License
  25 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  26 #
  27
  28
  29 BEGIN {
  30         require 5.8.0;
  31 }
  32
  33 use strict;
  34 use warnings FATAL => qw(all);
  35
  36 use Data::Dumper;
  37 BEGIN {
  38         $Data::Dumper::Sortkeys = 1;
  39         $Data::Dumper::Useqq = 1;
  40 };
  41
  42 use File::Copy ();
  43 use Socket;
  44 use Cwd;
  45 use Getopt::Long;
  46
  47 # Utility functions for our buildsystem
  48 use make::utilities;
  49 use make::configure;
  50 use make::gnutlscert;
  51 use make::opensslcert;
  52
  53 ###############################################################################################
  54 #
  55 #                                 NON-EDITABLE VARIABLES
  56 #
  57 ###############################################################################################
  58
  59 our ($opt_use_gnutls, $opt_rebuild, $opt_use_openssl, $opt_nointeractive, $opt_ports,
  60     $opt_epoll, $opt_kqueue, $opt_noports, $opt_noepoll, $opt_nokqueue,
  61     $opt_noipv6, $opt_maxbuf, $opt_disable_debug, $opt_freebsd_port,
  62         $opt_system, $opt_uid);
  63
  64 our ($opt_cc, $opt_base_dir, $opt_config_dir, $opt_module_dir, $opt_binary_dir);
  65
  66 sub list_extras ();
  67
  68 sub enable_extras (@);
  69
  70 sub disable_extras (@);
  71
  72 my @opt_enableextras;
  73 my @opt_disableextras;
  74
  75 GetOptions (
  76         'enable-gnutls' => \$opt_use_gnutls,
  77         'rebuild' => \$opt_rebuild,
  78         'system' => \$opt_system,
  79         'uid=s' => \$opt_uid,
  80         'enable-openssl' => \$opt_use_openssl,
  81         'disable-interactive' => \$opt_nointeractive,
  82         'enable-ports' => \$opt_ports,
  83         'enable-epoll' => \$opt_epoll,
  84         'enable-kqueue' => \$opt_kqueue,
  85         'disable-ports' => \$opt_noports,
  86         'disable-epoll' => \$opt_noepoll,
  87         'disable-kqueue' => \$opt_nokqueue,
  88         'disable-ipv6' => \$opt_noipv6,
  89         'with-cc=s' => \$opt_cc,
  90         'with-maxbuf=i' => \$opt_maxbuf,
  91         'enable-freebsd-ports-openssl' => \$opt_freebsd_port,
  92         'prefix=s' => \$opt_base_dir,
  93         'config-dir=s' => \$opt_config_dir,
  94         'module-dir=s' => \$opt_module_dir,
  95         'binary-dir=s' => \$opt_binary_dir,
  96         'disable-debuginfo' => sub { $opt_disable_debug = 1 },
  97         'help'  => sub { showhelp(); },
  98         'update' => sub { update(); },
  99         'clean' => sub { clean(); },
 100         'list-extras' => sub { list_extras; exit 0; }, # This, --enable-extras, and --disable-extras are for non-interactive managing.
 101         'enable-extras=s@' => \@opt_enableextras, # ^
 102         'disable-extras=s@' => \@opt_disableextras, # ^
 103         'generate-openssl-cert' => sub { make_openssl_cert(); exit(0); },
 104         'generate-gnutls-cert' => sub { make_gnutls_cert(); exit(0); }
 105 );
 106
 107 if (scalar(@opt_enableextras) + scalar(@opt_disableextras) > 0) {
 108         @opt_enableextras = split /,/, join(',', @opt_enableextras);
 109         @opt_disableextras = split /,/, join(',', @opt_disableextras);
 110         enable_extras(@opt_enableextras);
 111         disable_extras(@opt_disableextras);
 112         list_extras;
 113         print "Remember: YOU are responsible for making sure any libraries needed have been installed!\n";
 114         exit 0;
 115 }
 116
 117 our $interactive = !(
 118         (defined $opt_base_dir) ||
 119         (defined $opt_config_dir) ||
 120         (defined $opt_module_dir) ||
 121         (defined $opt_base_dir) ||
 122         (defined $opt_binary_dir) ||
 123         (defined $opt_nointeractive) ||
 124         (defined $opt_cc) ||
 125         (defined $opt_noipv6) ||
 126         (defined $opt_kqueue) ||
 127         (defined $opt_epoll) ||
 128         (defined $opt_ports) ||
 129         (defined $opt_use_openssl) ||
 130         (defined $opt_nokqueue) ||
 131         (defined $opt_noepoll) ||
 132         (defined $opt_noports) ||
 133         (defined $opt_maxbuf) ||
 134         (defined $opt_system) ||
 135         (defined $opt_uid) ||
 136         (defined $opt_use_gnutls) ||
 137         (defined $opt_freebsd_port)
 138 );
 139
 140 chomp(our $topdir = getcwd());
 141 our $this = resolve_directory($topdir);                                         # PWD, Regardless.
 142 our @modlist = ();                                                                      # Declare for Module List..
 143 our %config = ();                                                                       # Initiate Configuration Hash..
 144 $config{ME} = resolve_directory($topdir);                               # Present Working Directory
 145
 146 $config{BASE_DIR} = $config{ME}."/run";
 147
 148 if (defined $opt_base_dir) {
 149         $config{BASE_DIR} = $opt_base_dir;
 150 } elsif (defined $opt_system || defined $opt_uid) {
 151         $config{BASE_DIR} = '/var/lib/inspircd';
 152 }
 153
 154 if (defined $opt_system || defined $opt_uid) {
 155         $config{UID} = $opt_uid || 'ircd';
 156         $config{CONFIG_DIR}      = '/etc/inspircd';
 157         $config{MODULE_DIR}      = '/usr/lib/inspircd';
 158         $config{BINARY_DIR}      = '/usr/sbin/';
 159         $config{BUILD_DIR}       = resolve_directory($config{ME}."/build");         # Build Directory
 160 } else {
 161         $config{UID} = $<;
 162         $config{CONFIG_DIR}      = resolve_directory($config{BASE_DIR}."/conf");        # Configuration Directory
 163         $config{MODULE_DIR}      = resolve_directory($config{BASE_DIR}."/modules");     # Modules Directory
 164         $config{BINARY_DIR}      = resolve_directory($config{BASE_DIR}."/bin");         # Binary Directory
 165         $config{BUILD_DIR}       = resolve_directory($config{ME}."/build");         # Build Directory
 166 }
 167
 168 if (defined $opt_config_dir) {
 169         $config{CONFIG_DIR} = $opt_config_dir;
 170 }
 171 if (defined $opt_module_dir) {
 172         $config{MODULE_DIR} = $opt_module_dir;
 173 }
 174 if (defined $opt_binary_dir) {
 175         $config{BINARY_DIR} = $opt_binary_dir;
 176 }
 177 chomp($config{HAS_GNUTLS}   = `pkg-config --modversion gnutls 2>/dev/null | cut -c 1,2,3`); # GNUTLS Version.
 178
 179 if (defined $opt_freebsd_port)
 180 {
 181         chomp($config{HAS_OPENSSL} = `pkg-config --modversion openssl 2>/dev/null`);
 182         chomp($config{HAS_OPENSSL_PORT}  = `pkg-config --modversion openssl 2>/dev/null`);
 183         $config{USE_FREEBSD_BASE_SSL} = "n";
 184 }
 185 else
 186 {
 187         if ($^O eq "freebsd")
 188         {
 189                 # default: use base ssl
 190                 chomp($config{HAS_OPENSSL} = `openssl version | cut -d ' ' -f 2`);                      # OpenSSL version, freebsd specific
 191                 chomp($config{HAS_OPENSSL_PORT}  = `pkg-config --modversion openssl 2>/dev/null`);      # Port version, may be different
 192         }
 193         else
 194         {
 195                 chomp($config{HAS_OPENSSL}  = `pkg-config --modversion openssl 2>/dev/null`);           # Openssl version, others
 196                 $config{HAS_OPENSSL_PORT} = "";
 197         }
 198 }
 199
 200 chomp(our $gnutls_ver = $config{HAS_GNUTLS});
 201 chomp(our $openssl_ver = $config{HAS_OPENSSL});
 202 $config{USE_GNUTLS}         = "n";
 203 if (defined $opt_use_gnutls)
 204 {
 205         $config{USE_GNUTLS} = "y";                                      # Use gnutls.
 206 }
 207 $config{USE_OPENSSL}    = "n";                                          # Use openssl.
 208 if (defined $opt_use_openssl)
 209 {
 210         $config{USE_OPENSSL} = "y";
 211 }
 212
 213 if (!defined $opt_disable_debug) {
 214         $config{OPTIMISATI}      = "-g1";                               # Optimisation Flag
 215 } else {
 216         $config{OPTIMISATI}      = "-O2";
 217 }
 218
 219 $config{HAS_STRLCPY}    = "false";                                      # strlcpy Check.
 220 $config{HAS_STDINT}      = "false";                                     # stdint.h check
 221 $config{USE_KQUEUE}      = "y";                                         # kqueue enabled
 222 if (defined $opt_nokqueue) {
 223         $config{USE_KQUEUE} = "n";
 224 }
 225 $config{USE_POLL}     = "y";                                    # poll enabled
 226 $config{USE_EPOLL}        = "y";                                        # epoll enabled
 227 if (defined $opt_noepoll)
 228 {
 229         $config{USE_EPOLL} = "n";
 230 }
 231 $config{USE_PORTS}        = "y";                                        # epoll enabled
 232 if (defined $opt_noports)
 233 {
 234         $config{USE_PORTS} = "n";
 235 }
 236 $config{_SOMAXCONN} = SOMAXCONN;                                        # Max connections in accept queue
 237 $config{OSNAME}             = $^O;                                      # Operating System Name
 238 $config{IS_DARWIN}        = "NO";                                       # Is OSX?
 239 $config{STARTSCRIPT}      = "inspircd";                 # start script?
 240 $config{DESTINATION}      = "BASE";                             # Is target path.
 241 if ($config{OSNAME} =~ /darwin/i)
 242 {
 243         $config{IS_DARWIN} = "YES";
 244         $config{STARTSCRIPT}      = "org.inspircd.plist";               # start script for OSX.
 245         $config{CC}                 = "xcrun clang++";                                  # C++ compiler for OSX.
 246 }
 247 else
 248 {
 249         $config{CC}                 = "g++";                                            # C++ compiler
 250 }
 251 if (defined $opt_cc)
 252 {
 253         $config{CC} = $opt_cc;
 254 }
 255 our $exec = $config{CC} . " -dumpversion | cut -c 1";
 256 chomp($config{GCCVER}           = `$exec`);                             # Major GCC Version
 257 $exec = $config{CC} . " -dumpversion | cut -c 3";
 258 chomp($config{GCCMINOR}         = `$exec`);
 259 $config{MAXBUF}                 = "512";                                # Max buffer size
 260
 261 if ($config{HAS_OPENSSL} =~ /^([-[:digit:].]+)([a-z])?(\-[a-z][0-9])?$/) {
 262         $config{HAS_OPENSSL} = $1;
 263 } else {
 264         $config{HAS_OPENSSL} = "";
 265 }
 266
 267 if (($config{GCCVER} eq "") || ($config{GCCMINOR} eq "")) {
 268         if ($config{IS_DARWIN} eq "YES") {
 269                 print $config{CC} . " was not found! You require clang++ (the LLVM C++ compiler, part of the OSX developer tools) to build InspIRCd!\n";
 270         } else {
 271                 print $config{CC} . " was not found! You require g++ (the GNU C++ compiler, part of GCC) to build InspIRCd!\n";
 272         }
 273         exit;
 274 }
 275
 276 # Get and Set some important vars..
 277 getmodules();
 278
 279 sub clean
 280 {
 281         unlink(".config.cache");
 282 }
 283
 284 our ($has_epoll, $has_ports, $has_kqueue) = (0, 0, 0);
 285
 286 sub update
 287 {
 288         eval {
 289                 chomp($topdir = getcwd());
 290                 $this = resolve_directory($topdir);                                          # PWD, Regardless.
 291                 getmodules();
 292                 # Does the cache file exist?
 293                 if (!getcache()) {
 294                         # No, No it doesn't.. *BASH*
 295                         print "You have not run ./configure before. Please do this before trying to run the update script.\n";
 296                         exit 0;
 297                 } else {
 298                         # We've Loaded the cache file and all our variables..
 299                         print "Updating files...\n";
 300                         if (defined($opt_disable_debug) && $opt_disable_debug == 1)
 301                         {
 302                                 print "Disabling debug information (-g).\n";
 303                                 $config{OPTIMISATI} = "";
 304                         }
 305                         $has_epoll = $config{HAS_EPOLL};
 306                         $has_ports = $config{HAS_PORTS};
 307                         $has_kqueue = $config{HAS_KQUEUE};
 308                         writefiles(1);
 309                         makecache();
 310                         print "Complete.\n";
 311                         exit;
 312                 }
 313         };
 314         if ($@)
 315         {
 316                 print "Configure update failed: $@\n";
 317         }
 318         exit;
 319 }
 320
 321
 322 sub test_compile {
 323         my $feature = shift;
 324         my $fail = 0;
 325         $fail ||= system "$config{CC} -o test_$feature make/check_$feature.cpp >/dev/null 2>&1";
 326         $fail ||= system "./test_$feature";
 327         unlink "test_$feature";
 328         return !$fail;
 329 }
 330
 331 print "Running non-interactive configure...\n" unless $interactive;
 332 print "Checking for cache from previous configure... ";
 333 print ((!getcache()) ? "not found\n" : "found\n");
 334 $config{SYSTEM} = lc $^O;
 335 print "Checking operating system version... $config{SYSTEM}\n";
 336
 337 $exec = $config{CC} . " -dumpversion | cut -c 1";
 338 chomp($config{GCCVER}           = `$exec`);                             # Major GCC Version
 339 $exec = $config{CC} . " -dumpversion | cut -c 3";
 340 chomp($config{GCCMINOR}         = `$exec`);
 341
 342 printf "Checking if stdint.h exists... ";
 343 $config{HAS_STDINT} = "true";
 344 our $fail = 0;
 345 open(STDINT, "</usr/include/stdint.h") or $config{HAS_STDINT} = "false";
 346 if ($config{HAS_STDINT} eq "true") {
 347         close(STDINT);
 348 }
 349 print "yes\n" if $config{HAS_STDINT} eq "true";
 350 print "no\n" if $config{HAS_STDINT} eq "false";
 351
 352 printf "Checking if strlcpy exists... ";
 353 # Perform the strlcpy() test..
 354 $config{HAS_STRLCPY} = "false";
 355 $fail = 0;
 356 open(STRLCPY, "</usr/include/string.h") or $fail = 1;
 357 if (!$fail) {
 358         while (defined(my $line = <STRLCPY>)) {
 359                 chomp($line);
 360                 # try and find the delcaration of:
 361                 # size_t strlcpy(...)
 362                 if ($line =~ /size_t(\0x9|\s)+strlcpy/) {
 363                         $config{HAS_STRLCPY} = "true";
 364                 }
 365         }
 366         close(STRLCPY);
 367 }
 368 print "yes\n" if $config{HAS_STRLCPY} eq "true";
 369 print "no\n" if $config{HAS_STRLCPY} eq "false";
 370
 371 printf "Checking if kqueue exists... ";
 372 $has_kqueue = 0;
 373 $fail = 0;
 374 open(KQUEUE, "</usr/include/sys/event.h") or $fail = 1;
 375 if (!$fail) {
 376         while (defined(my $line = <KQUEUE>)) {
 377                 chomp($line);
 378                 # try and find the delcaration of:
 379                 # int kqueue(void);
 380                 if ($line =~ /int(\0x9|\s)+kqueue/) {
 381                         $has_kqueue = 1;
 382                 }
 383         }
 384         close(KQUEUE);
 385 }
 386 print "yes\n" if $has_kqueue == 1;
 387 print "no\n" if $has_kqueue == 0;
 388
 389 printf "Checking for epoll support... ";
 390 $has_epoll = test_compile('epoll');
 391 print $has_epoll ? "yes\n" : "no\n";
 392
 393 printf "Checking for eventfd support... ";
 394 $config{HAS_EVENTFD} = test_compile('eventfd') ? 'true' : 'false';
 395 print $config{HAS_EVENTFD} eq 'true' ? "yes\n" : "no\n";
 396
 397 printf "Checking if Solaris I/O completion ports are available... ";
 398 $has_ports = 0;
 399 our $system = `uname -s`;
 400 chomp ($system);
 401 $has_ports = 1 if ($system eq "SunOS");
 402
 403 if ($has_ports) {
 404         my $kernel = `uname -r`;
 405         chomp($kernel);
 406         if (($kernel !~ /^5\.1./)) {
 407                 $has_ports = 0;
 408         }
 409 }
 410 print "yes\n" if $has_ports == 1;
 411 print "no\n" if $has_ports == 0;
 412
 413 $config{HAS_EPOLL} = $has_epoll;
 414 $config{HAS_KQUEUE} = $has_kqueue;
 415
 416 printf "Checking for libgnutls... ";
 417 if (defined($config{HAS_GNUTLS}) && (($config{HAS_GNUTLS}) || ($config{HAS_GNUTLS} eq "y"))) {
 418         if (defined($gnutls_ver) && ($gnutls_ver ne "")) {
 419                 print "yes\n";
 420                 $config{HAS_GNUTLS} = "y";
 421         } else {
 422                 print "no\n";
 423                 $config{HAS_GNUTLS} = "n";
 424         }
 425 } else {
 426         print "no\n";
 427         $config{HAS_GNUTLS} = "n";
 428 }
 429
 430 printf "Checking for openssl... ";
 431 if (defined($config{HAS_OPENSSL}) && (($config{HAS_OPENSSL}) || ($config{HAS_OPENSSL} eq "y"))) {
 432         if (defined($openssl_ver) && ($openssl_ver ne "")) {
 433                 print "yes\n";
 434                 $config{HAS_OPENSSL} = "y";
 435         } else {
 436                 print "no\n";
 437                 $config{HAS_OPENSSL} = "n";
 438         }
 439 } else {
 440         print "no\n";
 441         $config{HAS_OPENSSL} = "n";
 442 }
 443
 444 printf "Checking if you are running an ancient, unsupported OS... ";
 445 if ($config{OSNAME} =~ /FreeBSD/i)
 446 {
 447         my $version = `uname -r`;
 448         if ($version =~ /^4\./)
 449         {
 450                 print "yes.\n";
 451                 print "FreeBSD 4.x is no longer supported. By ANYONE.\n";
 452                 print "To build, you will need to add the following to CXXFLAGS:\n";
 453                 print "\t-L/usr/local/lib -lgnugetopt -DHAVE_DECL_GETOPT=1\n";
 454         }
 455         else
 456         {
 457                 print "no ($version)\n";
 458         }
 459 }
 460 else
 461 {
 462         print "no ($config{OSNAME})\n";
 463 }
 464
 465 ################################################################################
 466 #                         BEGIN INTERACTIVE PART                              #
 467 ################################################################################
 468
 469 # Clear the Screen..
 470 if ($interactive)
 471 {
 472         print "\e[2J\e[0G\e[0d"; # J = Erase in Display, 2 = Entire Screen, (G, d) = Move cursor to (..,..)
 473         my $wholeos = $^O;
 474
 475         my $rev = getrevision();
 476         # Display Introduction Message..
 477         print <<"STOP" ;
 478 Welcome to the \e[1mInspIRCd\e[0m Configuration program! (\e[1minteractive mode\e[0m)
 479 \e[1mPackage maintainers: Type ./configure --help for non-interactive help\e[0m
 480
 481 *** If you are unsure of any of these values, leave it blank for    ***
 482 *** standard settings that will work, and your server will run      ***
 483 *** using them. Please consult your IRC network admin if in doubt.  ***
 484
 485 Press \e[1m<RETURN>\e[0m to accept the default for any option, or enter
 486 a new value. Please note: You will \e[1mHAVE\e[0m to read the docs
 487 dir, otherwise you won't have a config file!
 488
 489 Your operating system is: \e[1;32m$config{OSNAME}\e[0m ($wholeos)
 490 Your InspIRCd revision ID is \e[1;32mr$rev\e[0m
 491 STOP
 492         if ($rev eq "r0") {
 493                 print " (Non-SVN build)";
 494         }
 495         print ".\n\n";
 496
 497         $config{CHANGE_COMPILER} = "n";
 498         print "I have detected the following compiler: \e[1;32m$config{CC}\e[0m (version \e[1;32m$config{GCCVER}.$config{GCCMINOR}\e[0m)\n";
 499
 500         while (($config{GCCVER} < 3) || ($config{GCCVER} eq "")) {
 501                 print "\e[1;32mIMPORTANT!\e[0m A GCC 2.x compiler has been detected, and
 502 should NOT be used. You should probably specify a newer compiler.\n\n";
 503                 yesno('CHANGE_COMPILER',"Do you want to change the compiler?");
 504                 if ($config{CHANGE_COMPILER} =~ /y/i) {
 505                         print "What command do you want to use to invoke your compiler?\n";
 506                         print "[\e[1;32m$config{CC}\e[0m] -> ";
 507                         chomp($config{CC} = <STDIN>);
 508                         if ($config{CC} eq "") {
 509                                 $config{CC} = "g++";
 510                         }
 511                         chomp(my $foo = `$config{CC} -dumpversion | cut -c 1`);
 512                         if ($foo ne "") {
 513                                 chomp($config{GCCVER}       = `$config{CC} -dumpversion | cut -c 1`); # we must redo these if we change compilers
 514                                 chomp($config{GCCMINOR}     = `$config{CC} -dumpversion | cut -c 3`);
 515                                 print "Queried compiler: \e[1;32m$config{CC}\e[0m (version \e[1;32m$config{GCCVER}.$config{GCCMINOR}\e[0m)\n";
 516                                 if ($config{GCCVER} < 3) {
 517                                         print "\e[1;32mGCC 2.x WILL NOT WORK!\e[0m. Let's try that again, shall we?\n";
 518                                 }
 519                         }
 520                         else {
 521                                 print "\e[1;32mWARNING!\e[0m Could not execute the compiler you specified. You may want to try again.\n";
 522                         }
 523                 }
 524         }
 525
 526         print "\n";
 527
 528         # Directory Settings..
 529         my $tmpbase = $config{BASE_DIR};
 530         dir_check("do you wish to install the InspIRCd base", "BASE_DIR");
 531         if ($tmpbase ne $config{BASE_DIR}) {
 532                 $config{CONFIG_DIR}      = resolve_directory($config{BASE_DIR}."/conf");           # Configuration Dir
 533                 $config{MODULE_DIR}      = resolve_directory($config{BASE_DIR}."/modules");     # Modules Directory
 534                 $config{BINARY_DIR}      = resolve_directory($config{BASE_DIR}."/bin");     # Binary Directory
 535         }
 536
 537         dir_check("are the configuration files", "CONFIG_DIR");
 538         dir_check("are the modules to be compiled to", "MODULE_DIR");
 539         dir_check("is the IRCd binary to be placed", "BINARY_DIR");
 540         dir_check("do you want the build to take place", "BUILD_DIR");
 541
 542         my $chose_hiperf = 0;
 543         if ($has_kqueue) {
 544                 yesno('USE_KQUEUE',"You are running a BSD operating system, and kqueue\nwas detected. Would you like to enable kqueue support?\nThis is likely to increase performance.\nIf you are unsure, answer yes.\n\nEnable kqueue?");
 545                 print "\n";
 546                 if ($config{USE_KQUEUE} eq "y") {
 547                         $chose_hiperf = 1;
 548                 }
 549         }
 550         if ($has_epoll) {
 551                 yesno('USE_EPOLL',"You are running a Linux 2.6+ operating system, and epoll\nwas detected. Would you like to enable epoll support?\nThis is likely to increase performance.\nIf you are unsure, answer yes.\n\nEnable epoll?");
 552                 print "\n";
 553                 if ($config{USE_EPOLL} eq "y") {
 554                         $chose_hiperf = 1;
 555                 }
 556         }
 557         if ($has_ports) {
 558                 yesno('USE_PORTS',"You are running Solaris 10.\nWould you like to enable I/O completion ports support?\nThis is likely to increase performance.\nIf you are unsure, answer yes.\n\nEnable support for I/O completion ports?");
 559                 print "\n";
 560                 if ($config{USE_PORTS} eq "y") {
 561                         $chose_hiperf = 1;
 562                 }
 563         }
 564
 565         if (!$chose_hiperf) {
 566                 yesno('USE_POLL', "Would you like to use poll?\n This is likely to increase performance.\nIf you are unsure, answer yes.\n\nEnable poll?");
 567                 if ($config{USE_POLL} ne "y")
 568                 {
 569                         print "No high-performance socket engines are available, or you chose\n";
 570                         print "not to enable one. Defaulting to select() engine.\n\n";
 571                 }
 572         }
 573
 574         $config{USE_FREEBSD_BASE_SSL} = "n";
 575         $config{USE_FREEBSD_PORTS_SSL} = "n";
 576         if ($config{HAS_OPENSSL_PORT} ne "")
 577         {
 578                 $config{USE_FREEBSD_PORTS_SSL} = "y";
 579                 print "I have detected the OpenSSL FreeBSD port installed on your system,\n";
 580                 print "version \e[1;32m".$config{HAS_OPENSSL_PORT}."\e[0m. Your base system OpenSSL is version \e[1;32m".$openssl_ver."\e[0m.\n\n";
 581                 yesno('USE_FREEBSD_PORTS_SSL', "Do you want to use the FreeBSD ports version?");
 582                 print "\n";
 583                 $config{USE_FREEBSD_BASE_SSL} = "y" if ($config{USE_FREEBSD_PORTS_SSL} eq "n");
 584
 585                 if ($config{USE_FREEBSD_BASE_SSL} eq "n")
 586                 {
 587                         # update to port version
 588                         $openssl_ver = $config{HAS_OPENSSL_PORT};
 589                 }
 590         }
 591         else
 592         {
 593                 $config{USE_FREEBSD_BASE_SSL} = "y" if ($^O eq "freebsd");
 594         }
 595
 596         $config{USE_SSL} = "n";
 597         $config{MODUPDATE} = 'n';
 598
 599         if ($config{HAS_GNUTLS} eq "y" || $config{HAS_OPENSSL} eq "y")
 600         {
 601                 print "Detected GnuTLS version: \e[1;32m" . $gnutls_ver . "\e[0m\n";
 602                 print "Detected OpenSSL version: \e[1;32m" . $openssl_ver . "\e[0m\n\n";
 603
 604                 yesno('USE_SSL', "One or more SSL libraries detected. Would you like to enable SSL support?");
 605                 if ($config{USE_SSL} eq "y")
 606                 {
 607                         if ($config{HAS_GNUTLS} eq "y")
 608                         {
 609                                 yesno('USE_GNUTLS',"Would you like to enable SSL with m_ssl_gnutls? (recommended)");
 610                                 if ($config{USE_GNUTLS} eq "y")
 611                                 {
 612                                         print "\nUsing GnuTLS SSL module.\n";
 613                                 }
 614                         }
 615
 616                         if ($config{HAS_OPENSSL} eq "y")
 617                         {
 618                                 yesno('USE_OPENSSL', "Would you like to enable SSL with m_ssl_openssl?");
 619                                 if ($config{USE_OPENSSL} eq "y")
 620                                 {
 621                                         print "\nUsing OpenSSL SSL module.\nYou will get better performance if you move to GnuTLS in the future.\n";
 622                                 }
 623                         }
 624                 }
 625         }
 626         else
 627         {
 628                 print "\nCould not detect OpenSSL or GnuTLS. Make sure pkg-config is installed and\n";
 629                 print "is in your path.\n\n";
 630         }
 631
 632         yesno('MODUPDATE',"Would you like to check for updates to third-party modules?");
 633         print "\n";
 634         if ($config{MODUPDATE} eq "y") {
 635                 print "Checking for upgrades to extra and third party modules... ";
 636                 system "./modulemanager upgrade";
 637         }
 638 }
 639
 640 # We are on a POSIX system, we can enable POSIX extras without asking
 641 symlink "extra/m_regex_posix.cpp", "src/modules/m_regex_posix.cpp";
 642
 643 dumphash();
 644
 645 if (($config{USE_GNUTLS} eq "y") && ($config{HAS_GNUTLS} ne "y"))
 646 {
 647         print "Sorry, but i couldn't detect gnutls. Make sure gnutls-config is in your path.\n";
 648         exit(0);
 649 }
 650 if (($config{USE_OPENSSL} eq "y") && ($config{HAS_OPENSSL} ne "y"))
 651 {
 652         print "Sorry, but i couldn't detect openssl. Make sure openssl is in your path.\n";
 653         exit(0);
 654 }
 655 our $failed = 0;
 656
 657 $config{CERTGEN} ||= 'y';
 658 yesno('CERTGEN',"Would you like generate SSL certificates now?") if ($interactive && ($config{USE_GNUTLS} eq "y" || $config{USE_OPENSSL} eq "y"));
 659
 660 if ($config{USE_GNUTLS} eq "y") {
 661         unless (-r "src/modules/m_ssl_gnutls.cpp") {
 662                 print "Symlinking src/modules/m_ssl_gnutls.cpp from extra/\n";
 663                 symlink "extra/m_ssl_gnutls.cpp", "src/modules/m_ssl_gnutls.cpp" or print STDERR "Symlink failed: $!";
 664         }
 665         if ($interactive && $config{CERTGEN} eq 'y')
 666         {
 667                 unless (-r "$config{CONFIG_DIR}/key.pem" && -r "$config{CONFIG_DIR}/cert.pem") {
 668                         print "SSL Certificates Not found, Generating.. \n\n
 669 *************************************************************
 670 * Generating the Private Key may take some time, go grab a  *
 671 * Coffee. Even better, to generate some more entropy if it  *
 672 * is taking a while, open another console and type du / a   *
 673 * few times and get that HD going :) Then answer the        *
 674 * Questions which follow. If you are unsure, just hit enter *
 675 *************************************************************\n\n";
 676                         $failed = make_gnutls_cert();
 677                         if ($failed) {
 678                                 print "\n\e[1;32mCertificate generation failed!\e[0m\n\n";
 679                         } else {
 680                                 print "\nCertificate generation complete, copying to config directory... ";
 681                                 File::Copy::move("key.pem", "$config{CONFIG_DIR}/key.pem") or print STDERR "Could not copy key.pem!\n";
 682                                 File::Copy::move("cert.pem", "$config{CONFIG_DIR}/cert.pem") or print STDERR "Could not copy cert.pem!\n";
 683                                 print "Done.\n\n";
 684                         }
 685                 }
 686                 else {
 687                         print "SSL Certificates found, skipping.\n\n";
 688                 }
 689         }
 690         else
 691         {
 692                 print "Skipping SSL certificate generation\nin non-interactive mode.\n\n";
 693         }
 694 }
 695
 696 if ($config{USE_OPENSSL} eq "y") {
 697         unless (-r "src/modules/m_ssl_openssl.cpp") {
 698                 print "Symlinking src/modules/m_ssl_openssl.cpp from extra/\n";
 699                 symlink "extra/m_ssl_openssl.cpp", "src/modules/m_ssl_openssl.cpp" or print STDERR "Symlink failed: $!";
 700         }
 701         $failed = 0;
 702         if ($interactive && $config{CERTGEN} eq 'y')
 703         {
 704                 unless (-r "$config{CONFIG_DIR}/key.pem" && -r "$config{CONFIG_DIR}/cert.pem") {
 705                         print "SSL Certificates Not found, Generating.. \n\n
 706 *************************************************************
 707 * Generating the certificates may take some time, go grab a *
 708 * coffee, or something.                                     *
 709 *************************************************************\n\n";
 710                         make_openssl_cert();
 711                         print "\nCertificate generation complete, copying to config directory... ";
 712                         File::Copy::move("key.pem", "$config{CONFIG_DIR}/key.pem") or print STDERR "Could not copy key.pem!\n";
 713                         File::Copy::move("cert.pem", "$config{CONFIG_DIR}/cert.pem") or print STDERR "Could not copy cert.pem!\n";
 714                         File::Copy::move("dhparams.pem", "$config{CONFIG_DIR}/dhparams.pem") or print STDERR "Could not copy dhparams.pem!\n";
 715                         print "Done.\n\n";
 716                 } else {
 717                         print "SSL Certificates found, skipping.\n\n"
 718                 }
 719         }
 720         else
 721         {
 722                 print "Skipping SSL certificate generation\nin non-interactive mode.\n\n";
 723         }
 724 }
 725 if (($config{USE_GNUTLS} eq "n") && ($config{USE_OPENSSL} eq "n")) {
 726         print "Skipping SSL Certificate generation, SSL support is not available.\n\n";
 727 }
 728
 729 depcheck();
 730 writefiles(1);
 731 makecache();
 732
 733 print "\n\n";
 734 print "To build your server with these settings, please run '\e[1;32mmake\e[0m' now.\n";
 735 if (($config{USE_GNUTLS} eq "y") || ($config{USE_OPENSSL} eq "y")) {
 736         print "Please note: for \e[1;32mSSL support\e[0m you will need to load required\n";
 737         print "modules in your config. This configure script has added those modules to the\n";
 738         print "build process. For more info please refer to:\n";
 739         print "\e[1;32mhttp://wiki.inspircd.org/Installation_From_Tarball\e[0m\n";
 740 }
 741 print "*** \e[1;32mRemember to edit your configuration files!!!\e[0m ***\n\n\n";
 742 if (($config{OSNAME} eq "OpenBSD") && ($config{CC} ne "eg++")) {
 743         print "\e[1;32mWARNING!\e[0m You are running OpenBSD but you are using the base gcc package\nrather than eg++. This compile will most likely fail, but i'm letting you\ngo ahead with it anyway, just in case i'm wrong :-)\n";
 744 }
 745
 746 if ($config{GCCVER} < "3") {
 747         print <<FOO2;
 748 \e[1;32mWARNING!\e[0m You are attempting to compile InspIRCd on GCC 2.x!
 749 GCC 2.x series compilers only had partial (read as broken) C++ support, and
 750 your compile will most likely fail horribly! If you have any problems, do NOT
 751 report them to the bugtracker or forums without first upgrading your compiler
 752 to a newer 3.x or 4.x (or whatever is available currently) version.
 753 FOO2
 754 }
 755
 756 ################################################################################
 757 #                             HELPER FUNCTIONS                          #
 758 ################################################################################
 759 sub getcache {
 760         # Retrieves the .config.cache file, and loads values into the main config hash.
 761         open(CACHE, ".config.cache") or return 0;
 762         while (<CACHE>) {
 763                 chomp;
 764                 # Ignore Blank lines, and comments..
 765                 next if /^\s*$/;
 766                 next if /^\s*#/;
 767                 my ($key, $value) = split("=", $_, 2);
 768                 $value =~ /^\"(.*)\"$/;
 769                 # Do something with data here!
 770                 $config{$key} = $1;
 771         }
 772         close(CACHE);
 773         return 1;
 774 }
 775
 776 sub makecache {
 777         # Dump the contents of %config
 778         print "Writing \e[1;32mcache file\e[0m for future ./configures ...\n";
 779         open(FILEHANDLE, ">.config.cache");
 780         foreach my $key (keys %config) {
 781                 print FILEHANDLE "$key=\"$config{$key}\"\n";
 782         }
 783         close(FILEHANDLE);
 784 }
 785
 786 sub dir_check {
 787         my ($desc, $hash_key) = @_;
 788         my $complete = 0;
 789         while (!$complete) {
 790                 print "In what directory $desc?\n";
 791                 print "[\e[1;32m$config{$hash_key}\e[0m] -> ";
 792                 chomp(my $var = <STDIN>);
 793                 if ($var eq "") {
 794                         $var = $config{$hash_key};
 795                 }
 796                 if ($var =~ /^\~\/(.+)$/) {
 797                         # Convert it to a full path..
 798                         $var = resolve_directory($ENV{HOME} . "/" . $1);
 799                 }
 800                 elsif ((($config{OSNAME} =~ /MINGW32/i) and ($var !~ /^[A-Z]{1}:\\.*/)) and (substr($var,0,1) ne "/"))
 801                 {
 802                         # Assume relative Path was given.. fill in the rest.
 803                         $var = $this . "/$var";
 804                 }
 805
 806                 $var = resolve_directory($var);
 807                 if (! -e $var) {
 808                         print "$var does not exist. Create it?\n[\e[1;32my\e[0m] ";
 809                         chomp(my $tmp = <STDIN>);
 810                         if (($tmp eq "") || ($tmp =~ /^y/i)) {
 811                                 # Attempt to Create the Dir..
 812                                 my $chk = eval {
 813                                         use File::Path ();
 814                                         File::Path::mkpath($var, 0, 0777);
 815                                         1;
 816                                 };
 817                                 unless (defined($chk) && -d $var) {
 818                                         print "Unable to create directory. ($var)\n\n";
 819                                         # Restart Loop..
 820                                         next;
 821                                 }
 822                         } else {
 823                                 # They said they don't want to create, and we can't install there.
 824                                 print "\n\n";
 825                                 next;
 826                         }
 827                 } else {
 828                         if (!is_dir($var)) {
 829                                 # Target exists, but is not a directory.
 830                                 print "File $var exists, but is not a directory.\n\n";
 831                                 next;
 832                         }
 833                 }
 834                 # Either Dir Exists, or was created fine.
 835                 $config{$hash_key} = $var;
 836                 $complete = 1;
 837                 print "\n";
 838         }
 839 }
 840
 841 our $SHARED = "";
 842
 843 my ($mliflags, $mfrules, $mobjs, $mfcount) = ("", "", "", 0);
 844
 845 sub writefiles {
 846         my($writeheader) = @_;
 847         # First File.. inspircd_config.h
 848         chomp(my $incos = `uname -n -s -r`);
 849         chomp(my $version = `sh src/version.sh`);
 850         chomp(my $revision2 = getrevision());
 851         if ($writeheader == 1)
 852         {
 853                 print "Writing \e[1;32minspircd_config.h\e[0m\n";
 854                 open(FILEHANDLE, ">include/inspircd_config.h.tmp");
 855                 print FILEHANDLE <<EOF;
 856 /* Auto generated by configure, do not modify! */
 857 #ifndef __CONFIGURATION_AUTO__
 858 #define __CONFIGURATION_AUTO__
 859
 860 /* this is for windows support. */
 861 #define CoreExport /**/
 862 #define DllExport /**/
 863
 864 #define CONFIG_PATH "$config{CONFIG_DIR}"
 865 #define MOD_PATH "$config{MODULE_DIR}"
 866 #define SOMAXCONN_S "$config{_SOMAXCONN}"
 867 #define ENTRYPOINT int main(int argc, char** argv)
 868
 869 EOF
 870 print FILEHANDLE "#define MAXBUF " . ($config{MAXBUF}+2) . "\n";
 871
 872                 if ($config{OSNAME} =~ /SunOS/i) {
 873                         print FILEHANDLE "#define IS_SOLARIS\n";
 874                 }
 875                 if ($config{OSNAME} =~ /MINGW32/i) {
 876                         print FILEHANDLE "#define IS_MINGW\n";
 877                 }
 878                 if ($config{GCCVER} >= 3) {
 879                         print FILEHANDLE "#define GCC3\n";
 880                 }
 881                 if (
 882                         (($config{GCCVER} == 4) && ($config{GCCMINOR} >= 3))
 883                                 ||
 884                         ($config{GCCVER} > 4)
 885                 ) {
 886                         print FILEHANDLE "#define HASHMAP_DEPRECATED\n";
 887                 }
 888                 if ($config{HAS_STRLCPY} eq "true") {
 889                         print FILEHANDLE "#define HAS_STRLCPY\n";
 890                 }
 891                 if ($config{HAS_STDINT} eq "true") {
 892                         print FILEHANDLE "#define HAS_STDINT\n";
 893                 }
 894                 if ($config{HAS_EVENTFD} eq 'true') {
 895                         print FILEHANDLE "#define HAS_EVENTFD\n";
 896                 }
 897                 if ($config{OSNAME} !~ /DARWIN/i) {
 898                         print FILEHANDLE "#define HAS_CLOCK_GETTIME\n";
 899                 }
 900                 my $use_hiperf = 0;
 901                 if (($has_kqueue) && ($config{USE_KQUEUE} eq "y")) {
 902                         print FILEHANDLE "#define USE_KQUEUE\n";
 903                         $config{SOCKETENGINE} = "socketengine_kqueue";
 904                         $use_hiperf = 1;
 905                 }
 906                 if (($has_epoll) && ($config{USE_EPOLL} eq "y")) {
 907                         print FILEHANDLE "#define USE_EPOLL\n";
 908                         $config{SOCKETENGINE} = "socketengine_epoll";
 909                         $use_hiperf = 1;
 910                 }
 911                 if (($has_ports) && ($config{USE_PORTS} eq "y")) {
 912                         print FILEHANDLE "#define USE_PORTS\n";
 913                         $config{SOCKETENGINE} = "socketengine_ports";
 914                         $use_hiperf = 1;
 915                 }
 916                 # user didn't choose either epoll or select for their OS.
 917                 # default them to USE_SELECT (ewwy puke puke)
 918                 if (!$use_hiperf) {
 919                         print "no hi-perf, " . $config{USE_POLL};
 920                         if ($config{USE_POLL} eq "y")
 921                         {
 922                                 print FILEHANDLE "#define USE_POLL\n";
 923                                 $config{SOCKETENGINE} = "socketengine_poll";
 924                         }
 925                         else
 926                         {
 927                                 print FILEHANDLE "#define USE_SELECT\n";
 928                                 $config{SOCKETENGINE} = "socketengine_select";
 929                         }
 930                 }
 931                 print FILEHANDLE "\n#include \"threadengines/threadengine_pthread.h\"\n\n#endif\n";
 932                 close(FILEHANDLE);
 933
 934                 open(FILEHANDLE, ">include/inspircd_version.h.tmp");
 935                 print FILEHANDLE <<EOF;
 936 #define VERSION "$version"
 937 #define REVISION "$revision2"
 938 #define SYSTEM "$incos"
 939 EOF
 940                 close FILEHANDLE;
 941
 942                 for my $file (qw(include/inspircd_config.h include/inspircd_version.h)) {
 943                         my $diff = 0;
 944                         open my $fh1, $file or $diff = 1;
 945                         open my $fh2, $file.'.tmp' or die "Can't read $file.tmp that we just wrote: $!";
 946                         while (!$diff) {
 947                                 my $line1 = <$fh1>;
 948                                 my $line2 = <$fh2>;
 949                                 if (defined($line1) != defined($line2)) {
 950                                         $diff = 1;
 951                                 } elsif (!defined $line1) {
 952                                         last;
 953                                 } else {
 954                                         $diff = ($line1 ne $line2);
 955                                 }
 956                         }
 957                         if ($diff) {
 958                                 unlink $file;
 959                                 rename "$file.tmp", $file;
 960                         } else {
 961                                 unlink "$file.tmp";
 962                         }
 963                 }
 964         }
 965
 966         # Write all .in files.
 967         my $tmp = "";
 968         my $file = "";
 969         my $exe = "inspircd";
 970
 971         # Do this once here, and cache it in the .*.inc files,
 972         # rather than attempting to read src/version.sh from
 973         # compiled code -- we might not have the source to hand.
 974         # Fix for bug#177 by Brain.
 975
 976         chomp($version = `sh ./src/version.sh`);
 977         chomp(my $revision = getrevision());
 978         $version = "$version(r$revision)";
 979
 980         # We can actually parse any file starting with . and ending with .inc,
 981         # but right now we only parse .inspircd.inc to form './inspircd'
 982         prepare_dynamic_makefile();
 983
 984         my @dotfiles = qw(main.mk inspircd);
 985         push @dotfiles, 'org.inspircd.plist' if $config{OSNAME} eq 'darwin';
 986
 987         foreach my $file (@dotfiles) {
 988                 open(FILEHANDLE, "make/template/$file") or die "Can't open make/template/$file: $!";
 989                 $_ = join '', <FILEHANDLE>;
 990                 close(FILEHANDLE);
 991
 992                 $config{BUILD_DIR} ||= resolve_directory($config{ME}."/build");
 993
 994                 for my $var (qw(
 995                         CC SYSTEM BASE_DIR CONFIG_DIR MODULE_DIR BINARY_DIR BUILD_DIR UID
 996                         STARTSCRIPT DESTINATION SOCKETENGINE
 997                 )) {
 998                         s/\@$var\@/$config{$var}/g;
 999                 }
1000                 s/\@EXECUTABLE\@/$exe/ if defined $exe;
1001                 s/\@VERSION\@/$version/ if defined $version;
1002
1003                 if ($file eq 'main.mk') {
1004                         print "Writing \e[1;32mGNUmakefile\e[0m ...\n";
1005
1006                         my $mk_tmp = $_;
1007                         s/\@IFDEF (\S+)/ifdef $1/g;
1008                         s/\@IFNDEF (\S+)/ifndef $1/g;
1009                         s/\@IFEQ (\S+) (\S+)/ifeq ($1,$2)/g;
1010                         s/\@ELSIFEQ (\S+) (\S+)/else ifeq ($1,$2)/g;
1011                         s/\@ELSE/else/g;
1012                         s/\@ENDIF/endif/g;
1013                         s/ *\@BSD_ONLY .*\n//g;
1014                         s/\@GNU_ONLY //g;
1015                         s/\@DO_EXPORT (.*)/export $1/g;
1016                         open MKF, '>GNUmakefile' or die "Can't write to GNUmakefile: $!";
1017                         print MKF $_;
1018                         close MKF;
1019
1020                         print "Writing \e[1;32mBSDmakefile\e[0m ...\n";
1021                         $_ = $mk_tmp;
1022                         s/\@IFDEF (\S+)/.if defined($1)/g;
1023                         s/\@IFNDEF (\S+)/.if !defined($1)/g;
1024                         s/\@IFEQ (\S+) (\S+)/.if $1 == $2/g;
1025                         s/\@ELSIFEQ (\S+) (\S+)/.elif $1 == $2/g;
1026                         s/\@ELSE/.else/g;
1027                         s/\@ENDIF/.endif/g;
1028                         s/\@BSD_ONLY //g;
1029                         s/ *\@GNU_ONLY .*\n//g;
1030                         $mk_tmp = $_;
1031                         $mk_tmp =~ s#\@DO_EXPORT (.*)#"MAKEENV += ".join ' ', map "$_='\${$_}'", split /\s/, $1#eg;
1032                         open MKF, '>BSDmakefile' or die "Can't write to BSDmakefile: $!";
1033                         print MKF $mk_tmp;
1034                         close MKF;
1035                 } else {
1036                         print "Writing \e[1;32m$file\e[0m ...\n";
1037                         open(FILEHANDLE, ">$file") or die("Can't write to $file: $!\n");
1038                         print FILEHANDLE $_;
1039                         close(FILEHANDLE);
1040                 }
1041         }
1042
1043         chmod 0755, 'inspircd';
1044 }
1045
1046 sub depcheck
1047 {
1048         getmodules();
1049         for my $mod (@modlist) {
1050                 getcompilerflags("src/modules/m_$mod.cpp");
1051                 getlinkerflags("src/modules/m_$mod.cpp");
1052         }
1053 }
1054
1055 sub prepare_dynamic_makefile
1056 {
1057         my $i = 0;
1058
1059         if (!$has_epoll)
1060         {
1061                 $config{USE_EPOLL} = 0;
1062         }
1063         if (!$has_kqueue)
1064         {
1065                 $config{USE_KQUEUE} = 0;
1066         }
1067         if (!$has_ports)
1068         {
1069                 $config{USE_PORTS} = 0;
1070         }
1071 }
1072
1073 # Routine to list out the extra/ modules that have been enabled.
1074 # Note: when getting any filenames out and comparing, it's important to lc it if the
1075 # file system is not case-sensitive (== Epoc, MacOS, OS/2 (incl DOS/DJGPP), VMS, Win32
1076 # (incl NetWare, Symbian)). Cygwin may or may not be case-sensitive, depending on
1077 # configuration, however, File::Spec does not currently tell us (it assumes Unix behavior).
1078 sub list_extras () {
1079         use File::Spec;
1080         # @_ not used
1081         my $srcdir = File::Spec->catdir("src", "modules");
1082         my $abs_srcdir = File::Spec->rel2abs($srcdir);
1083         local $_;
1084         my $dd;
1085         opendir $dd, File::Spec->catdir($abs_srcdir, "extra") or die (File::Spec->catdir($abs_srcdir, "extra") . ": $!\n");
1086         my @extras = map { File::Spec->case_tolerant() ? lc($_) : $_ } (readdir($dd));
1087         closedir $dd;
1088         undef $dd;
1089         opendir $dd, $abs_srcdir or die "$abs_srcdir: $!\n";
1090         my @sources = map { File::Spec->case_tolerant() ? lc($_) : $_ } (readdir($dd));
1091         closedir $dd;
1092         undef $dd;
1093         my $maxlen = (sort { $b <=> $a } (map {length($_)} (@extras)))[0];
1094         my %extras = ();
1095 EXTRA:  for my $extra (@extras) {
1096                 next if (File::Spec->curdir() eq $extra || File::Spec->updir() eq $extra);
1097                 my $abs_extra = File::Spec->catfile($abs_srcdir, "extra", $extra);
1098                 my $abs_source = File::Spec->catfile($abs_srcdir, $extra);
1099                 next unless ($extra =~ m/\.(cpp|h)$/ || (-d $abs_extra)); # C++ Source/Header, or directory
1100                 if (-l $abs_source) {
1101                         # Symlink, is it in the right place?
1102                         my $targ = readlink($abs_source);
1103                         my $abs_targ = File::Spec->rel2abs($targ, $abs_srcdir);
1104                         if ($abs_targ eq $abs_extra) {
1105                                 $extras{$extra} = "\e[32;1menabled\e[0m";
1106                         } else {
1107                                 $extras{$extra} = sprintf("\e[31;1mwrong symlink target (%s)\e[0m", $abs_targ);
1108                         }
1109                 } elsif (-e $abs_source) {
1110                         my ($devext, $inoext) = stat($abs_extra);
1111                         my ($devsrc, $inosrc, undef, $lnksrc) = stat($abs_source);
1112                         if ($lnksrc > 1) {
1113                                 if ($devsrc == $devext && $inosrc == $inoext) {
1114                                         $extras{$extra} = "\e[32;1menabled\e[0m";
1115                                 } else {
1116                                         $extras{$extra} = sprintf("\e[31;1mwrong hardlink target (%d:%d)\e[0m", $devsrc, $inosrc);
1117                                 }
1118                         } else {
1119                                 open my $extfd, "<", $abs_extra;
1120                                 open my $srcfd, "<", $abs_source;
1121                                 local $/ = undef;
1122                                 if (scalar(<$extfd>) eq scalar(<$srcfd>)) {
1123                                         $extras{$extra} = "\e[32;1menabled\e[0m";
1124                                 } else {
1125                                         $extras{$extra} = sprintf("\e[31;1mout of synch (re-copy)\e[0m");
1126                                 }
1127                         }
1128                 } else {
1129                         $extras{$extra} = "\e[33;1mdisabled\e[0m";
1130                 }
1131         }
1132         # Now let's add dependency info
1133         for my $extra (keys(%extras)) {
1134                 next unless $extras{$extra} =~ m/enabled/; # only process enabled extras.
1135                 my $abs_extra = File::Spec->catfile($abs_srcdir, "extra", $extra);
1136                 my @deps = split / +/, getdependencies($abs_extra);
1137                 for my $dep (@deps) {
1138                         if (exists($extras{$dep})) {
1139                                 my $ref = \$extras{$dep}; # Take reference.
1140                                 if ($$ref !~ m/needed by/) {
1141                                         # First dependency found.
1142                                         if ($$ref =~ m/enabled/) {
1143                                                 $$ref .= " (needed by \e[32;1m$extra\e[0m";
1144                                         } else {
1145                                                 $$ref =~ s/\e\[.*?m//g; # Strip out previous coloring. Will be set in bold+red+blink later.
1146                                                 $$ref .= " (needed by \e[0;32;1;5m$extra\e[0;31;1;5m";
1147                                         }
1148                                 } else {
1149                                         if ($$ref =~ m/enabled/) {
1150                                                 $$ref .= ", \e[32;1m$extra\e[0m";
1151                                         } else {
1152                                                 $$ref .= ", \e[0;32;1;5m$extra\e[0;31;1;5m";
1153                                         }
1154                                 }
1155                         }
1156                 }
1157         }
1158         for my $extra (sort {$a cmp $b} keys(%extras)) {
1159                 my $text = $extras{$extra};
1160                 if ($text =~ m/needed by/ && $text !~ m/enabled/) {
1161                         printf "\e[31;1;5m%-*s = %s%s\e[0m\n", $maxlen, $extra, $text, ($text =~ m/needed by/ ? ")" : "");
1162                 } else {
1163                         printf "%-*s = %s%s\n", $maxlen, $extra, $text, ($text =~ m/needed by/ ? "\e[0m)" : "");
1164                 }
1165         }
1166         return keys(%extras) if wantarray; # Can be used by manage_extras.
1167 }
1168
1169 sub enable_extras (@) {
1170         my (@extras) = @_;
1171         for my $extra (@extras) {
1172                 my $extrapath = "src/modules/extra/$extra";
1173                 if (!-e $extrapath) {
1174                         print STDERR "Cannot enable \e[32;1m$extra\e[0m : No such file or directory in src/modules/extra\n";
1175                         next;
1176                 }
1177                 my $source = "src/modules/$extra";
1178                 if (-e $source) {
1179                         print STDERR "Cannot enable \e[32;1m$extra\e[0m : destination in src/modules exists (might already be enabled?)\n";
1180                         next;
1181                 }
1182                 # Get dependencies, and add them to be processed.
1183                 my @deps = split / +/, getdependencies($extrapath);
1184                 for my $dep (@deps) {
1185                         next if scalar(grep { $_ eq $dep } (@extras)) > 0; # Skip if we're going to be enabling it anyway.
1186                         if (!-e "src/modules/$dep") {
1187                                 if (-e "src/modules/extra/$dep") {
1188                                         print STDERR "Will also enable extra \e[32;1m$dep\e[0m (needed by \e[32;1m$extra\e[0m)\n";
1189                                         push @extras, $dep;
1190                                 } else {
1191                                         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";
1192                                 }
1193                         }
1194                 }
1195                 print "Enabling $extra ... \n";
1196                 symlink "extra/$extra", $source or print STDERR "$source: Cannot link to 'extra/$extra': $!\n";
1197         }
1198 }
1199
1200 sub disable_extras (@)
1201 {
1202         opendir my $dd, "src/modules/extra/";
1203         my @files = readdir($dd);
1204         closedir $dd;
1205         my (@extras) = @_;
1206 EXTRA:  for my $extra (@extras) {
1207                 my $extrapath = "src/modules/extra/$extra";
1208                 my $source = "src/modules/$extra";
1209                 if (!-e $extrapath) {
1210                         print STDERR "Cannot disable \e[32;1m$extra\e[0m : Is not an extra\n";
1211                         next;
1212                 }
1213                 if ((! -l $source) || readlink($source) ne "extra/$extra") {
1214                         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";
1215                         next;
1216                 }
1217                 # Check if anything needs this.
1218                 for my $file (@files) {
1219                         my @deps = split / +/, getdependencies("src/modules/extra/$file");
1220                         # File depends on this extra...
1221                         if (scalar(grep { $_ eq $extra } @deps) > 0) {
1222                                 # And is both enabled and not about to be disabled.
1223                                 if (-e "src/modules/$file" && scalar(grep { $_ eq $file } @extras) < 1) {
1224                                         print STDERR "Cannot disable \e[32;1m$extra\e[0m : is needed by \e[32;1m$file\e[0m\n";
1225                                         next EXTRA;
1226                                 }
1227                         }
1228                 }
1229                 # Now remove.
1230                 print "Disabling $extra ... \n";
1231                 unlink "src/modules/$extra" or print STDERR "Cannot disable \e[32;1m$extra\e[0m : $!\n";
1232         }
1233 }