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 if\n";
 629                 print "you intend to use OpenSSL, or that GnuTLS is in your path if you intend\nto use GnuTLS.\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 MOD_PATH "$config{MODULE_DIR}"
 865 #define SOMAXCONN_S "$config{_SOMAXCONN}"
 866 #define ENTRYPOINT int main(int argc, char** argv)
 867
 868 EOF
 869 print FILEHANDLE "#define MAXBUF " . ($config{MAXBUF}+2) . "\n";
 870
 871                 if ($config{OSNAME} =~ /SunOS/i) {
 872                         print FILEHANDLE "#define IS_SOLARIS\n";
 873                 }
 874                 if ($config{OSNAME} =~ /MINGW32/i) {
 875                         print FILEHANDLE "#define IS_MINGW\n";
 876                 }
 877                 if ($config{GCCVER} >= 3) {
 878                         print FILEHANDLE "#define GCC3\n";
 879                 }
 880                 if (
 881                         (($config{GCCVER} == 4) && ($config{GCCMINOR} >= 3))
 882                                 ||
 883                         ($config{GCCVER} > 4)
 884                 ) {
 885                         print FILEHANDLE "#define HASHMAP_DEPRECATED\n";
 886                 }
 887                 if ($config{HAS_STRLCPY} eq "true") {
 888                         print FILEHANDLE "#define HAS_STRLCPY\n";
 889                 }
 890                 if ($config{HAS_STDINT} eq "true") {
 891                         print FILEHANDLE "#define HAS_STDINT\n";
 892                 }
 893                 if ($config{HAS_EVENTFD} eq 'true') {
 894                         print FILEHANDLE "#define HAS_EVENTFD\n";
 895                 }
 896                 if ($config{OSNAME} !~ /DARWIN/i) {
 897                         print FILEHANDLE "#define HAS_CLOCK_GETTIME\n";
 898                 }
 899                 my $use_hiperf = 0;
 900                 if (($has_kqueue) && ($config{USE_KQUEUE} eq "y")) {
 901                         print FILEHANDLE "#define USE_KQUEUE\n";
 902                         $config{SOCKETENGINE} = "socketengine_kqueue";
 903                         $use_hiperf = 1;
 904                 }
 905                 if (($has_epoll) && ($config{USE_EPOLL} eq "y")) {
 906                         print FILEHANDLE "#define USE_EPOLL\n";
 907                         $config{SOCKETENGINE} = "socketengine_epoll";
 908                         $use_hiperf = 1;
 909                 }
 910                 if (($has_ports) && ($config{USE_PORTS} eq "y")) {
 911                         print FILEHANDLE "#define USE_PORTS\n";
 912                         $config{SOCKETENGINE} = "socketengine_ports";
 913                         $use_hiperf = 1;
 914                 }
 915                 # user didn't choose either epoll or select for their OS.
 916                 # default them to USE_SELECT (ewwy puke puke)
 917                 if (!$use_hiperf) {
 918                         print "no hi-perf, " . $config{USE_POLL};
 919                         if ($config{USE_POLL} eq "y")
 920                         {
 921                                 print FILEHANDLE "#define USE_POLL\n";
 922                                 $config{SOCKETENGINE} = "socketengine_poll";
 923                         }
 924                         else
 925                         {
 926                                 print FILEHANDLE "#define USE_SELECT\n";
 927                                 $config{SOCKETENGINE} = "socketengine_select";
 928                         }
 929                 }
 930                 print FILEHANDLE "\n#include \"threadengines/threadengine_pthread.h\"\n\n#endif\n";
 931                 close(FILEHANDLE);
 932
 933                 open(FILEHANDLE, ">include/inspircd_version.h.tmp");
 934                 print FILEHANDLE <<EOF;
 935 #define VERSION "$version"
 936 #define REVISION "$revision2"
 937 #define SYSTEM "$incos"
 938 EOF
 939                 close FILEHANDLE;
 940
 941                 for my $file (qw(include/inspircd_config.h include/inspircd_version.h)) {
 942                         my $diff = 0;
 943                         open my $fh1, $file or $diff = 1;
 944                         open my $fh2, $file.'.tmp' or die "Can't read $file.tmp that we just wrote: $!";
 945                         while (!$diff) {
 946                                 my $line1 = <$fh1>;
 947                                 my $line2 = <$fh2>;
 948                                 if (defined($line1) != defined($line2)) {
 949                                         $diff = 1;
 950                                 } elsif (!defined $line1) {
 951                                         last;
 952                                 } else {
 953                                         $diff = ($line1 ne $line2);
 954                                 }
 955                         }
 956                         if ($diff) {
 957                                 unlink $file;
 958                                 rename "$file.tmp", $file;
 959                         } else {
 960                                 unlink "$file.tmp";
 961                         }
 962                 }
 963         }
 964
 965         # Write all .in files.
 966         my $tmp = "";
 967         my $file = "";
 968         my $exe = "inspircd";
 969
 970         # Do this once here, and cache it in the .*.inc files,
 971         # rather than attempting to read src/version.sh from
 972         # compiled code -- we might not have the source to hand.
 973         # Fix for bug#177 by Brain.
 974
 975         chomp($version = `sh ./src/version.sh`);
 976         chomp(my $revision = getrevision());
 977         $version = "$version(r$revision)";
 978
 979         # We can actually parse any file starting with . and ending with .inc,
 980         # but right now we only parse .inspircd.inc to form './inspircd'
 981         prepare_dynamic_makefile();
 982
 983         my @dotfiles = qw(main.mk inspircd);
 984         push @dotfiles, 'org.inspircd.plist' if $config{OSNAME} eq 'darwin';
 985
 986         foreach my $file (@dotfiles) {
 987                 open(FILEHANDLE, "make/template/$file") or die "Can't open make/template/$file: $!";
 988                 $_ = join '', <FILEHANDLE>;
 989                 close(FILEHANDLE);
 990
 991                 $config{BUILD_DIR} ||= resolve_directory($config{ME}."/build");
 992
 993                 for my $var (qw(
 994                         CC SYSTEM BASE_DIR CONFIG_DIR MODULE_DIR BINARY_DIR BUILD_DIR UID
 995                         STARTSCRIPT DESTINATION SOCKETENGINE
 996                 )) {
 997                         s/\@$var\@/$config{$var}/g;
 998                 }
 999                 s/\@EXECUTABLE\@/$exe/ if defined $exe;
1000                 s/\@VERSION\@/$version/ if defined $version;
1001
1002                 if ($file eq 'main.mk') {
1003                         print "Writing \e[1;32mGNUmakefile\e[0m ...\n";
1004
1005                         my $mk_tmp = $_;
1006                         s/\@IFDEF (\S+)/ifdef $1/g;
1007                         s/\@IFNDEF (\S+)/ifndef $1/g;
1008                         s/\@IFEQ (\S+) (\S+)/ifeq ($1,$2)/g;
1009                         s/\@ELSIFEQ (\S+) (\S+)/else ifeq ($1,$2)/g;
1010                         s/\@ELSE/else/g;
1011                         s/\@ENDIF/endif/g;
1012                         s/ *\@BSD_ONLY .*\n//g;
1013                         s/\@GNU_ONLY //g;
1014                         s/\@DO_EXPORT (.*)/export $1/g;
1015                         open MKF, '>GNUmakefile' or die "Can't write to GNUmakefile: $!";
1016                         print MKF $_;
1017                         close MKF;
1018
1019                         print "Writing \e[1;32mBSDmakefile\e[0m ...\n";
1020                         $_ = $mk_tmp;
1021                         s/\@IFDEF (\S+)/.if defined($1)/g;
1022                         s/\@IFNDEF (\S+)/.if !defined($1)/g;
1023                         s/\@IFEQ (\S+) (\S+)/.if $1 == $2/g;
1024                         s/\@ELSIFEQ (\S+) (\S+)/.elif $1 == $2/g;
1025                         s/\@ELSE/.else/g;
1026                         s/\@ENDIF/.endif/g;
1027                         s/\@BSD_ONLY //g;
1028                         s/ *\@GNU_ONLY .*\n//g;
1029                         $mk_tmp = $_;
1030                         $mk_tmp =~ s#\@DO_EXPORT (.*)#"MAKEENV += ".join ' ', map "$_='\${$_}'", split /\s/, $1#eg;
1031                         open MKF, '>BSDmakefile' or die "Can't write to BSDmakefile: $!";
1032                         print MKF $mk_tmp;
1033                         close MKF;
1034                 } else {
1035                         print "Writing \e[1;32m$file\e[0m ...\n";
1036                         open(FILEHANDLE, ">$file") or die("Can't write to $file: $!\n");
1037                         print FILEHANDLE $_;
1038                         close(FILEHANDLE);
1039                 }
1040         }
1041
1042         chmod 0755, 'inspircd';
1043 }
1044
1045 sub depcheck
1046 {
1047         getmodules();
1048         for my $mod (@modlist) {
1049                 getcompilerflags("src/modules/m_$mod.cpp");
1050                 getlinkerflags("src/modules/m_$mod.cpp");
1051         }
1052 }
1053
1054 sub prepare_dynamic_makefile
1055 {
1056         my $i = 0;
1057
1058         if (!$has_epoll)
1059         {
1060                 $config{USE_EPOLL} = 0;
1061         }
1062         if (!$has_kqueue)
1063         {
1064                 $config{USE_KQUEUE} = 0;
1065         }
1066         if (!$has_ports)
1067         {
1068                 $config{USE_PORTS} = 0;
1069         }
1070 }
1071
1072 # Routine to list out the extra/ modules that have been enabled.
1073 # Note: when getting any filenames out and comparing, it's important to lc it if the
1074 # file system is not case-sensitive (== Epoc, MacOS, OS/2 (incl DOS/DJGPP), VMS, Win32
1075 # (incl NetWare, Symbian)). Cygwin may or may not be case-sensitive, depending on
1076 # configuration, however, File::Spec does not currently tell us (it assumes Unix behavior).
1077 sub list_extras () {
1078         use File::Spec;
1079         # @_ not used
1080         my $srcdir = File::Spec->catdir("src", "modules");
1081         my $abs_srcdir = File::Spec->rel2abs($srcdir);
1082         local $_;
1083         my $dd;
1084         opendir $dd, File::Spec->catdir($abs_srcdir, "extra") or die (File::Spec->catdir($abs_srcdir, "extra") . ": $!\n");
1085         my @extras = map { File::Spec->case_tolerant() ? lc($_) : $_ } (readdir($dd));
1086         closedir $dd;
1087         undef $dd;
1088         opendir $dd, $abs_srcdir or die "$abs_srcdir: $!\n";
1089         my @sources = map { File::Spec->case_tolerant() ? lc($_) : $_ } (readdir($dd));
1090         closedir $dd;
1091         undef $dd;
1092         my $maxlen = (sort { $b <=> $a } (map {length($_)} (@extras)))[0];
1093         my %extras = ();
1094 EXTRA:  for my $extra (@extras) {
1095                 next if (File::Spec->curdir() eq $extra || File::Spec->updir() eq $extra);
1096                 my $abs_extra = File::Spec->catfile($abs_srcdir, "extra", $extra);
1097                 my $abs_source = File::Spec->catfile($abs_srcdir, $extra);
1098                 next unless ($extra =~ m/\.(cpp|h)$/ || (-d $abs_extra)); # C++ Source/Header, or directory
1099                 if (-l $abs_source) {
1100                         # Symlink, is it in the right place?
1101                         my $targ = readlink($abs_source);
1102                         my $abs_targ = File::Spec->rel2abs($targ, $abs_srcdir);
1103                         if ($abs_targ eq $abs_extra) {
1104                                 $extras{$extra} = "\e[32;1menabled\e[0m";
1105                         } else {
1106                                 $extras{$extra} = sprintf("\e[31;1mwrong symlink target (%s)\e[0m", $abs_targ);
1107                         }
1108                 } elsif (-e $abs_source) {
1109                         my ($devext, $inoext) = stat($abs_extra);
1110                         my ($devsrc, $inosrc, undef, $lnksrc) = stat($abs_source);
1111                         if ($lnksrc > 1) {
1112                                 if ($devsrc == $devext && $inosrc == $inoext) {
1113                                         $extras{$extra} = "\e[32;1menabled\e[0m";
1114                                 } else {
1115                                         $extras{$extra} = sprintf("\e[31;1mwrong hardlink target (%d:%d)\e[0m", $devsrc, $inosrc);
1116                                 }
1117                         } else {
1118                                 open my $extfd, "<", $abs_extra;
1119                                 open my $srcfd, "<", $abs_source;
1120                                 local $/ = undef;
1121                                 if (scalar(<$extfd>) eq scalar(<$srcfd>)) {
1122                                         $extras{$extra} = "\e[32;1menabled\e[0m";
1123                                 } else {
1124                                         $extras{$extra} = sprintf("\e[31;1mout of synch (re-copy)\e[0m");
1125                                 }
1126                         }
1127                 } else {
1128                         $extras{$extra} = "\e[33;1mdisabled\e[0m";
1129                 }
1130         }
1131         # Now let's add dependency info
1132         for my $extra (keys(%extras)) {
1133                 next unless $extras{$extra} =~ m/enabled/; # only process enabled extras.
1134                 my $abs_extra = File::Spec->catfile($abs_srcdir, "extra", $extra);
1135                 my @deps = split / +/, getdependencies($abs_extra);
1136                 for my $dep (@deps) {
1137                         if (exists($extras{$dep})) {
1138                                 my $ref = \$extras{$dep}; # Take reference.
1139                                 if ($$ref !~ m/needed by/) {
1140                                         # First dependency found.
1141                                         if ($$ref =~ m/enabled/) {
1142                                                 $$ref .= " (needed by \e[32;1m$extra\e[0m";
1143                                         } else {
1144                                                 $$ref =~ s/\e\[.*?m//g; # Strip out previous coloring. Will be set in bold+red+blink later.
1145                                                 $$ref .= " (needed by \e[0;32;1;5m$extra\e[0;31;1;5m";
1146                                         }
1147                                 } else {
1148                                         if ($$ref =~ m/enabled/) {
1149                                                 $$ref .= ", \e[32;1m$extra\e[0m";
1150                                         } else {
1151                                                 $$ref .= ", \e[0;32;1;5m$extra\e[0;31;1;5m";
1152                                         }
1153                                 }
1154                         }
1155                 }
1156         }
1157         for my $extra (sort {$a cmp $b} keys(%extras)) {
1158                 my $text = $extras{$extra};
1159                 if ($text =~ m/needed by/ && $text !~ m/enabled/) {
1160                         printf "\e[31;1;5m%-*s = %s%s\e[0m\n", $maxlen, $extra, $text, ($text =~ m/needed by/ ? ")" : "");
1161                 } else {
1162                         printf "%-*s = %s%s\n", $maxlen, $extra, $text, ($text =~ m/needed by/ ? "\e[0m)" : "");
1163                 }
1164         }
1165         return keys(%extras) if wantarray; # Can be used by manage_extras.
1166 }
1167
1168 sub enable_extras (@) {
1169         my (@extras) = @_;
1170         for my $extra (@extras) {
1171                 my $extrapath = "src/modules/extra/$extra";
1172                 if (!-e $extrapath) {
1173                         print STDERR "Cannot enable \e[32;1m$extra\e[0m : No such file or directory in src/modules/extra\n";
1174                         next;
1175                 }
1176                 my $source = "src/modules/$extra";
1177                 if (-e $source) {
1178                         print STDERR "Cannot enable \e[32;1m$extra\e[0m : destination in src/modules exists (might already be enabled?)\n";
1179                         next;
1180                 }
1181                 # Get dependencies, and add them to be processed.
1182                 my @deps = split / +/, getdependencies($extrapath);
1183                 for my $dep (@deps) {
1184                         next if scalar(grep { $_ eq $dep } (@extras)) > 0; # Skip if we're going to be enabling it anyway.
1185                         if (!-e "src/modules/$dep") {
1186                                 if (-e "src/modules/extra/$dep") {
1187                                         print STDERR "Will also enable extra \e[32;1m$dep\e[0m (needed by \e[32;1m$extra\e[0m)\n";
1188                                         push @extras, $dep;
1189                                 } else {
1190                                         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";
1191                                 }
1192                         }
1193                 }
1194                 print "Enabling $extra ... \n";
1195                 symlink "extra/$extra", $source or print STDERR "$source: Cannot link to 'extra/$extra': $!\n";
1196         }
1197 }
1198
1199 sub disable_extras (@)
1200 {
1201         opendir my $dd, "src/modules/extra/";
1202         my @files = readdir($dd);
1203         closedir $dd;
1204         my (@extras) = @_;
1205 EXTRA:  for my $extra (@extras) {
1206                 my $extrapath = "src/modules/extra/$extra";
1207                 my $source = "src/modules/$extra";
1208                 if (!-e $extrapath) {
1209                         print STDERR "Cannot disable \e[32;1m$extra\e[0m : Is not an extra\n";
1210                         next;
1211                 }
1212                 if ((! -l $source) || readlink($source) ne "extra/$extra") {
1213                         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";
1214                         next;
1215                 }
1216                 # Check if anything needs this.
1217                 for my $file (@files) {
1218                         my @deps = split / +/, getdependencies("src/modules/extra/$file");
1219                         # File depends on this extra...
1220                         if (scalar(grep { $_ eq $extra } @deps) > 0) {
1221                                 # And is both enabled and not about to be disabled.
1222                                 if (-e "src/modules/$file" && scalar(grep { $_ eq $file } @extras) < 1) {
1223                                         print STDERR "Cannot disable \e[32;1m$extra\e[0m : is needed by \e[32;1m$file\e[0m\n";
1224                                         next EXTRA;
1225                                 }
1226                         }
1227                 }
1228                 # Now remove.
1229                 print "Disabling $extra ... \n";
1230                 unlink "src/modules/$extra" or print STDERR "Cannot disable \e[32;1m$extra\e[0m : $!\n";
1231         }
1232 }