diff options
| -rwxr-xr-x | configure | 457 |
1 files changed, 457 insertions, 0 deletions
diff --git a/configure b/configure new file mode 100755 index 000000000..ec8ad7f29 --- /dev/null +++ b/configure @@ -0,0 +1,457 @@ +#!/usr/bin/perl +# InspIRCd Configuration Script +# +# Copyright 2003 The ChatSpike Development Team +# <brain@chatspike.net> +# <Craig@chatspike.net> +# +# [14:21] Brain: <matrix impression> i know perl-fu! +# +# $Id$ +# +######################################## + + +$this = $ENV{PWD}; # PWD, Regardless. +@modlist = (); # Declare for Module List.. +%config = (); # Initiate Configuration Hash.. +$config{ME} = $ENV{PWD}; # Present Working Directory +$config{CONFIG_DIR} = $ENV{PWD}."/conf"; # Configuration Directory +$config{MODULE_DIR} = $ENV{PWD}."/modules"; # Modules Directory +$config{BINARY_DIR} = $ENV{PWD}."/bin"; # Binary Directory +$config{OPTIMITEMP} = "0"; # Default Optimisation Value +$config{OPTIMISATI} = "-g"; # Optimisation Flag +$config{NICK_LENGT} = "32"; # Default Nick Length +$config{CHAN_LENGT} = "64"; # Default Channel Name Length +$config{MAX_CHANNE} = "20"; # Default Max. Channels per user.. +$config{MAXI_MODES} = "20"; # Default Max. Number of Modes set at once. +$config{HAS_STRLCPY} = "false"; # strlcpy Check. +chomp($config{MAX_CLIENT_T} = `sh -c \"ulimit -n\"`); # FD Limit +chomp($config{GCCVER} = `gcc -dumpversion | cut -c 1`); # Major GCC Version +chomp($config{GCC34} = `gcc -dumpversion | cut -c 3`); # Minor GCC Version +chomp($config{OSNAME} = `uname -s`); # Operating System Name + +if (!$config{OSNAME}) { + $config{OSNAME} = "Unknown"; # For use when uname fails. +} + +if (!$config{MAX_CLIENT_T}) { + $config{MAX_CLIENT_T} = 1024; # Set a reasonable 'Default' + $fd_scan_fail = "true"; # Used Later +} + +# Get and Set some important vars.. +getosflags(); +getmodules(); + +my $arg = $ARGV[0]; # Do Some Argument Checks.. +if ($arg eq "-clean") { `rm -rf .config.cache`; } # Remove the config.cache file. + +if ($arg eq "-update") { + # Does the cache file exist? + if (!getcache()) { + # No, No it doesn't.. *BASH* + print "You have not run ./configure before. Please do this before trying to run the update script.\n"; + exit 0; + } else { + # We've Loaded the cache file and all our variables.. + print "Updating Files..\n"; + writefiles(); + print "Complete.\n"; + exit; + } +} + +getcache(); # Load the config.cache file. + +if (!$config{MAX_CLIENT}) { + # If the cache hasn't set the max clients, copy the variable of MAX_CLIENT_T, this + # allows us to keep _T for testing purposes. (ie. "Are you sure you want to go + # higher than the found value" :)) + $config{MAX_CLIENT} = $config{MAX_CLIENT_T}; +} + +# Perform the strlcpy() test.. +open(STRLCPY, ">.test.cpp"); +print STRLCPY "#include <string.h> +#include <stdio.h> +int main() { char a[10]; char b[10]; strlcpy(a,b,10); printf(\"%d\\n\",9); }\n"; +close(STRLCPY); + +# Build the Binary.. +system("g++ -o .test .test.cpp 2>&1"); + +# Was the build succesful? +if (-e ".test") { + $config{HAS_STRLCPY} = "true"; + system("rm -f .test .test.cpp"); +} + +################################################################################ +# BEGIN INTERACTIVE PART # +################################################################################ + +# Clear the Screen.. +system("clear"); +# Display Splash Logo.. +show_splash(); +chomp($wholeos = `uname -mnr`); + +# Display Introduction Message.. +print " +Welcome to the InspIRCd Configuration program! + +*** If you are unsure of any of these values, leave it blank for *** +*** standard settings that will work, and your server will run *** +*** using them. If you are running this server as part of a *** +*** larger network, you must consult with your network admins *** +*** for the proper values to use, or server links will be unstable! *** + +Press \033[1m<RETURN>\033[0m to accept the default for any option, or enter +a new value. Please note: You will \033[1mHAVE\033[0m to read the docs +dir, otherwise you won't have a config file! + +Your operating system is: \033[1;32m$config{OSNAME}\033[0m ($wholeos), fdmax: $config{MAX_CLIENT_T}\n\n"; + +# Directory Settings.. +dir_check("are the configuration files", "CONFIG_DIR"); +dir_check("are the modules to be compiled to", "MODULE_DIR"); +dir_check("is the IRCd binary to be placed", "BINARY_DIR"); + +# File Descriptor Settings.. +my $continue = 0; +while (!$continue) { + print "Maximum number of clients at any one time ($config{MAX_CLIENT_T})\n"; + print "[\033[1;32m$config{MAX_CLIENT}\033[0m] -> "; + chomp($var = <STDIN>); + if ($var eq "") { $var = $config{MAX_CLIENT}; } + if ($var =~ /^\d+$/) { + if (($var > $config{MAX_CLIENT_T}) && ($fd_scan_failed ne true)) { + # Client has entered a larger number than the 'discovered' value + # Confirm. + print "WARNING: Our scans have indicated that you are attempting +to use more sockets than there are avaliable. Are you sure +you wish to do this? It may cause the IRCd to malfunction [y/n] +[\033[1;32mn\033[0m] -> $c"; + chomp($tmp = <STDIN>); + if ($tmp ne "y") { + print "Please enter the correct value.\n\n"; + next; + } + } + } else { + print "You must enter a number in this field. Please try again.\n\n"; + next; + } + # If we get here, we should be good to go. + $config{MAX_CLIENT} = $var; + $continue = 1; + print "\n"; +} + +my $continue = 0; +while (!$continue) { + print "What is the Maximum length of nicknames?\n"; + print "[\033[1;32m$config{NICK_LENGT}\033[0m] -> "; + chomp($var = <STDIN>); + if ($var eq "") { $var = $config{NICK_LENGT}; } + if ($var =~ /^\d+$/) { + # We don't care what the number is, set it and be on our way. + $config{NICK_LENGT} = $var; + $continue = 1; + print "\n"; + } else { + print "You must enter a number in this field. Please try again.\n\n"; + } +} + +my $continue = 0; +while (!$continue) { + print "What is the Maximum number of mode changes in one line?\n"; + print "[\033[1;32m$config{MAXI_MODES}\033[0m] -> "; + chomp($var = <STDIN>); + if ($var eq "") { $var = $config{MAXI_MODES}; } + if ($var =~ /^\d+$/) { + # We don't care what the number is, set it and be on our way. + $config{MAXI_MODES} = $var; + $continue = 1; + print "\n"; + } else { + print "You must enter a number in this field. Please try again.\n\n"; + } +} + +# Code Optimisation +print "Enter the Level Of Binary optimisation. This is a number between 0 and 3 (inclusive) +The InspIRCd Team will _NOT_ support any bug reports above 0. +Also note, the IRCd behaviour will be different depending on this value. +Please read the documentation for more information. + +The Higher the number, the more optimised your binary will be. This value will default to 0 +If you either a) Dont enter a number, or b) Enter a value outside the range.\n"; +print "[\033[1;32m0\033[0m] -> "; +chomp($var = <STDIN>); +if ($var == 1) { + $config{OPTIMITEMP} = 1; + $config{OPTIMISATI} = "-O"; +} elsif ($var == 2) { + $config{OPTIMITEMP} = 2; + $config{OPTIMISATI} = "-O2"; +} elsif ($var == 3) { + $config{OPTIMITEMP} = 3; + $config{OPTIMISATI} = "-O3"; +} else { + $config{OPTIMITEMP} = 0; + $config{OPTIMISATI} = "-g"; +} + +print "\n\033[1;32mPre-build configuration is complete!\033[0m\n\n"; +print "\033[0mConfig path:\033[1;32m\t\t\t$config{CONFIG_DIR}\n"; +print "\033[0mModule path:\033[1;32m\t\t\t$config{MODULE_DIR}\n"; +print "\033[0mMax connections:\033[1;32m\t\t$config{MAX_CLIENT}\n"; +print "\033[0mMax User Channels\033[1;32m\t\t$config{MAX_CHANNE}\n"; +print "\033[0mMax nickname length:\033[1;32m\t\t$config{NICK_LENGT}\n"; +print "\033[0mMax channel length:\033[1;32m\t\t$config{CHAN_LENGT}\n"; +print "\033[0mMax mode length:\033[1;32m\t\t$config{MAXI_MODES}\n"; +print "\033[0mGCC Version Found:\033[1;32m\t\t$config{GCCVER}.$config{GCC34}\n"; +print "\033[0mOptimatizaton Flag:\033[1;32m\t\t$config{OPTIMISATI}\033[0m\n\n"; + +makecache(); +writefiles(); + +print "\n\n"; +print "To build your server with these settings, please type '\033[1;32m$config{MAKEPROG}\033[0m' now.\n"; +print "*** \033[1;32mRemember to edit your configuration files!!!\033[0m ***\n\n\n"; + +################################################################################ +# HELPER FUNCTIONS # +################################################################################ +sub getcache { + # Retrieves the .config.cache file, and loads values into the main config hash. + open(CACHE, ".config.cache") or return undef; + while (<CACHE>) { + chomp; + + # Ignore Blank lines, and comments.. + next if /^\s*$/; + next if /^\s*#/; + + my ($key, $value) = split("=", $_); + $value =~ /^\"(.*)\"$/; + # Do something with data here! + $config{$key} = $1; + } + close(CONFIG); + return "true"; +} + +sub makecache { + # Dump the contents of %config + print "Writing \033[1;32mcache file\033[0m for future ./configures ...\n"; + open(FILEHANDLE, ">.config.cache"); + foreach $key (keys %config) + { + print FILEHANDLE "$key=\"$config{$key}\"\n"; + } + close(FILEHANDLE); +} + +sub dir_check { + my ($desc, $hash_key) = @_; + my $complete = 0; + while (!$complete) { + print "In what directory $desc?\n"; + print "[\033[1;32m$config{$hash_key}\033[0m] -> "; + chomp($var = <STDIN>); + if ($var eq "") { $var = $config{$hash_key}; } + if (substr($var,0,1) ne "/") + { + # Assume relative Path was given.. fill in the rest. + $var = $this . "/$var"; + } + if (substr($var, 0, 1) eq "~") { + # Convert it to a full path.. + + $var = $this . substr(1,0); + } + if (! -e $var) { + print "$var does not exist. Create it?\n[\033[1;32my\033[0m] "; + chomp($tmp = <STDIN>); + if (($tmp eq "") || ($tmp = "y")) { + # Attempt to Create the Dir.. + $chk = system("mkdir -p \"$var\" >> /dev/null 2>&1") / 256; + if ($chk != 0) { + print "Unable to create directory. ($var)\n\n"; + # Restart Loop.. + next; + } + } else { + # They said they don't want to create, and we can't install there. + print "\n\n"; + next; + } + } else { + if (!is_dir($var)) { + # Target exists, but is not a directory. + print "File $var exists, but is not a directory.\n\n"; + next; + } + } + # Either Dir Exists, or was created fine. + $config{$hash_key} = $var; + $complete = 1; + print "\n"; + } +} + +sub getosflags { + if ($config{OSNAME} eq "FreeBSD") { + $config{LDLIBS} = "-Ldl"; + $config{FLAGS} = "-fPIC -frtti $OPTIMISATI -Wcomment -Wformat -Wunused -Wshadow -Werror -Wswitch -Wchar-subscripts -Wparentheses -Woverloaded-virtual"; + $config{MAKEPROG} = "gmake"; + } else { + $config{LDLIBS} = "-ldl"; + $config{FLAGS} = "-fPIC -frtti $OPTIMISATI -Wcomment -Wformat -Wunused -Wshadow -Werror -Wswitch -Wchar-subscripts -Wparentheses -Woverloaded-virtual"; + $config{MAKEPROG} = "make"; + } +} + +sub is_dir { + my ($path) = @_; + if (chdir($path)) { + chdir($this); + return 1; + } else { + # Just in case.. + chdir($this); + return 0; + } +} + +sub getmodules { + my $i = 0; + opendir(DIRHANDLE, "src/modules"); + foreach $name (sort readdir(DIRHANDLE)) { + if ($name =~ /^m_(.+)\.cpp$/) + { + $modlist[$i++] = $1; + } + } + closedir(DIRHANDLE); +} + +sub writefiles { + + print "Writing \033[1;32minspircd_config.h\033[0m\n"; + # First File.. inspircd_config.h + chomp(my $incos = `uname -n -s -r`); + chomp(my $version = `sh ./src/version.sh`); + open(FILEHANDLE, "> include/inspircd_config.h"); + print FILEHANDLE <<EOF; +/* Auto generated by configure, do not modify! */ +#define SYSLOG_FACILITY LOG_DAEMON +#define SYSLOG_LEVEL LOG_NOTICE +#define CONFIG_FILE "$config{CONFIG_DIR}/inspircd.conf" +#define MOD_PATH "$config{MODULE_DIR}" +#define VERSION "$version" +#define MAXCLIENTS $config{MAX_CLIENT} +#define NICKMAX $config{NICK_LENGT} +#define CHANMAX $config{CHAN_LENGT} +#define MAXCHANS $config{MAX_CHANNE} +#define MAXMODES $config{MAXI_MODES} +#define OPTIMISATION $config{OPTIMITEMP} +#define SYSTEM "$incos" +#define MAXBUF 514 +EOF + + if ($config{GCCVER} == 3) { + print FILEHANDLE "#define GCC3\n"; + if ($config{GCC34} > 3) { + print FILEHANDLE "#define GCC34\n"; + } + } + if ($config{HAS_STRLCPY} eq "true") { + print FILEHANDLE "#define HAS_STRLCPY\n"; + } + close(FILEHANDLE); + + # Now the Makefile.. + print "Writing \033[1;32mMakefile\033[0m\n"; + my $makefile = ""; + open(FILEHANDLE, ".Makefile.inc"); + while (<FILEHANDLE>) { + $makefile .= $_; + } + # Create a Modules List.. + my $modules = ""; + foreach $i (@modlist) + { + $modules .= "m_".$i.".so "; + } + chomp($modules); # Remove Redundant whitespace.. + $makefile =~ s/\@MAKEPROG\@/$config{MAKEPROG}/; + $makefile =~ s/\@FLAGS\@/$config{FLAGS}/; + $makefile =~ s/\@LDLIBS\@/$config{LDLIBS}/; + $makefile =~ s/\@CONFIG_DIR\@/$config{CONFIG_DIR}/; + $makefile =~ s/\@MODULE_DIR\@/$config{MODULE_DIR}/; + $makefile =~ s/\@BINARY_DIR\@/$config{BINARY_DIR}/; + $makefile =~ s/\@MODULES\@/$modules/; + + open(FILEHANDLE, ">Makefile"); + print FILEHANDLE $makefile; + close(FILEHANDLE); + + # Modules Makefile.. + print "Writing \033[1;32msrc/modules/Makefile\033[0m\n"; + open(FILEHANDLE, ">src/modules/Makefile"); + print FILEHANDLE <<EOF; +# (C) ChatSpike development team +# Makefile by <Craig@ChatSpike.net> +# Many Thanks to Andrew Church <achurch@achurch.org> +# for assisting with making this work right. +# +# Automatically Generated by ./configure to add a modules +# please run ./configure --update + +all: \$(MODULES) + +EOF + + # Create a Modules List.. + my $modules = ""; + my $flags = ""; + foreach $i (@modlist) + { + $flags = getcompilerflags("src/modules/m_".$i.".cpp"); + print FILEHANDLE <<EOCHEESE; +$i.so: $i.cpp ../../include/modules.h ../../include/users.h ../../include/channels.h ../../include/servers.h ../../include/base.h + \$(CC) -I../../include \$(FLAGS) -shared $flags -o $i.so $i.cpp + \@cp $i.so \$(MODPATH)/ + +EOCHEESE + } +} + +sub getcompilerflags { + my ($file) = @_; + open(FLAGS, $file); + while (<FLAGS>) { + if ($_ =~ /^\/\* \$CompileFlags: (.+) \*\/$/) { + close(FLAGS); + return $1; + } + } + close(FLAGS); + return undef; +} + +sub show_splash { + print "'\033[1;33m####\033[0m:'\033[1;33m##\033[0m::: \033[1;33m##\033[0m::'\033[1;33m######\033[0m::'\033[1;33m########\033[0m::'\033[1;33m####\033[0m:'\033[1;33m########\033[0m:::'\033[1;33m######\033[0m::'\033[1;33m########\033[0m::\n"; + print ". \033[1;33m##\033[0m:: \033[1;33m###\033[0m:: \033[1;33m##\033[0m:'\033[1;33m##\033[0m... \033[1;33m##\033[0m: \033[1;33m##\033[0m.... \033[1;33m##\033[0m:. \033[1;33m##\033[0m:: \033[1;33m##\033[0m.... \033[1;33m##\033[0m:'\033[1;33m##\033[0m... \033[1;33m##\033[0m: \033[1;33m##\033[0m.... \033[1;33m##\033[0m:\n"; + print ": \033[1;33m##\033[0m:: \033[1;33m####\033[0m: \033[1;33m##\033[0m: \033[1;33m##\033[0m:::..:: \033[1;33m##\033[0m:::: \033[1;33m##\033[0m:: \033[1;33m##\033[0m:: \033[1;33m##\033[0m:::: \033[1;33m##\033[0m: \033[1;33m##\033[0m:::..:: \033[1;33m##\033[0m:::: \033[1;33m##\033[0m:\n"; + print ": \033[1;33m##\033[0m:: \033[1;33m##\033[0m \033[1;33m##\033[0m \033[1;33m##\033[0m:. \033[1;33m######\033[0m:: \033[1;33m########\033[0m::: \033[1;33m##\033[0m:: \033[1;33m########\033[0m:: \033[1;33m##\033[0m::::::: \033[1;33m##\033[0m:::: \033[1;33m##\033[0m:\n"; + print ": \033[1;33m##\033[0m:: \033[1;33m##\033[0m. \033[1;33m####\033[0m::..... \033[1;33m##\033[0m: \033[1;33m##\033[0m.....:::: \033[1;33m##\033[0m:: \033[1;33m##\033[0m.. \033[1;33m##\033[0m::: \033[1;33m##\033[0m::::::: \033[1;33m##\033[0m:::: \033[1;33m##\033[0m:\n"; + print ": \033[1;33m##\033[0m:: \033[1;33m##\033[0m:. \033[1;33m###\033[0m:'\033[1;33m##\033[0m::: \033[1;33m##\033[0m: \033[1;33m##\033[0m::::::::: \033[1;33m##\033[0m:: \033[1;33m##\033[0m::. \033[1;33m##\033[0m:: \033[1;33m##\033[0m::: \033[1;33m##\033[0m: \033[1;33m##\033[0m:::: \033[1;33m##\033[0m:\n"; + print "'\033[1;33m####\033[0m: \033[1;33m##\033[0m::. \033[1;33m##\033[0m:. \033[1;33m######\033[0m:: \033[1;33m##\033[0m::::::::'\033[1;33m####\033[0m: \033[1;33m##\033[0m:::. \033[1;33m##\033[0m:. \033[1;33m######\033[0m:: \033[1;33m########\033[0m::\n"; + print "\033[0m\033[0m....::..::::..:::......:::..:::::::::....::..:::::..:::......:::........:::\n\n"; +} |