X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=make%2Fconfigure.pm;h=41a116df0ffef67811f8406cc064f8e7642e59ad;hb=9e139f31b2e79cdfd7d468771176b736671a8b9d;hp=bc1be31cae259bad32d82757f11b57e8d7ffb201;hpb=ac8e7547b831090de3286a2037faf99755e37d39;p=user%2Fhenk%2Fcode%2Finspircd.git diff --git a/make/configure.pm b/make/configure.pm index bc1be31ca..41a116df0 100644 --- a/make/configure.pm +++ b/make/configure.pm @@ -1,15 +1,33 @@ +# +------------------------------------+ +# | Inspire Internet Relay Chat Daemon | +# +------------------------------------+ +# +# InspIRCd: (C) 2002-2007 InspIRCd Development Team +# See: http://www.inspircd.org/wiki/index.php/Credits +# +# This program is free but copyrighted software; see +# the file COPYING for details. +# +# --------------------------------------------------- + package make::configure; + +require 5.8.0; + +use strict; +use warnings FATAL => qw(all); + use Exporter 'import'; use POSIX; use make::utilities; -@EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies resolve_directory yesno showhelp); +our @EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies nopedantic resolve_directory yesno showhelp promptstring_s); my $no_svn = 0; sub yesno { my ($flag,$prompt) = @_; - print "$prompt [\033[1;32m$main::config{$flag}\033[0m] -> "; - chomp($tmp = ); + print "$prompt [\e[1;32m$main::config{$flag}\e[0m] -> "; + chomp(my $tmp = ); if ($tmp eq "") { $tmp = $main::config{$flag} } if (($tmp eq "") || ($tmp =~ /^y/i)) { @@ -42,7 +60,7 @@ sub getrevision { if ($data eq "") { $no_svn = 1; - $rev = "0"; + my $rev = "0"; return $rev; } $data =~ /Revision: (\d+)/; @@ -56,7 +74,7 @@ sub getrevision { sub getcompilerflags { my ($file) = @_; - open(FLAGS, $file); + open(FLAGS, $file) or return ""; while () { if ($_ =~ /^\/\* \$CompileFlags: (.+) \*\/$/) { close(FLAGS); @@ -64,7 +82,7 @@ sub getcompilerflags { } } close(FLAGS); - return undef; + return ""; } sub getlinkerflags { @@ -77,7 +95,7 @@ sub getlinkerflags { } } close(FLAGS); - return undef; + return ""; } sub getdependencies { @@ -90,25 +108,34 @@ sub getdependencies { } } close(FLAGS); - return undef; + return ""; } +sub nopedantic { + my ($file) = @_; + open(FLAGS, $file); + while () { + if ($_ =~ /^\/\* \$NoPedantic \*\/$/) { + close(FLAGS); + return 1; + } + } + close(FLAGS); + return 0; +} sub getmodules { my $i = 0; print "Detecting modules "; opendir(DIRHANDLE, "src/modules"); - foreach $name (sort readdir(DIRHANDLE)) + foreach my $name (sort readdir(DIRHANDLE)) { if ($name =~ /^m_(.+)\.cpp$/) { - $mod = $1; - if ($mod !~ /_static$/) - { - $main::modlist[$i++] = $mod; - print "."; - } + my $mod = $1; + $main::modlist[$i++] = $mod; + print "."; } } closedir(DIRHANDLE); @@ -122,8 +149,8 @@ sub promptnumeric($$) while (!$continue) { print "Please enter the maximum $prompt?\n"; - print "[\033[1;32m$main::config{$configitem}\033[0m] -> "; - chomp($var = ); + print "[\e[1;32m$main::config{$configitem}\e[0m] -> "; + chomp(my $var = ); if ($var eq "") { $var = $main::config{$configitem}; @@ -139,32 +166,41 @@ sub promptnumeric($$) } } +sub promptstring_s($$) +{ + my ($prompt,$default) = @_; + my $var; + print "$prompt\n"; + print "[\e[1;32m$default\e[0m] -> "; + chomp($var = ); + $var = $default if $var eq ""; + print "\n"; + return $var; +} + sub dumphash() { - print "\n\033[1;32mPre-build configuration is complete!\033[0m\n\n"; - print "\033[0mBase install path:\033[1;32m\t\t$main::config{BASE_DIR}\033[0m\n"; - print "\033[0mConfig path:\033[1;32m\t\t\t$main::config{CONFIG_DIR}\033[0m\n"; - print "\033[0mModule path:\033[1;32m\t\t\t$main::config{MODULE_DIR}\033[0m\n"; - print "\033[0mLibrary path:\033[1;32m\t\t\t$main::config{LIBRARY_DIR}\033[0m\n"; - print "\033[0mMax connections:\033[1;32m\t\t$main::config{MAX_CLIENT}\033[0m\n"; - print "\033[0mMax User Channels:\033[1;32m\t\t$main::config{MAX_CHANNE}\033[0m\n"; - print "\033[0mMax Oper Channels:\033[1;32m\t\t$main::config{MAX_OPERCH}\033[0m\n"; - print "\033[0mMax nickname length:\033[1;32m\t\t$main::config{NICK_LENGT}\033[0m\n"; - print "\033[0mMax channel length:\033[1;32m\t\t$main::config{CHAN_LENGT}\033[0m\n"; - print "\033[0mMax mode length:\033[1;32m\t\t$main::config{MAXI_MODES}\033[0m\n"; - print "\033[0mMax ident length:\033[1;32m\t\t$main::config{MAX_IDENT}\033[0m\n"; - print "\033[0mMax quit length:\033[1;32m\t\t$main::config{MAX_QUIT}\033[0m\n"; - print "\033[0mMax topic length:\033[1;32m\t\t$main::config{MAX_TOPIC}\033[0m\n"; - print "\033[0mMax kick length:\033[1;32m\t\t$main::config{MAX_KICK}\033[0m\n"; - print "\033[0mMax name length:\033[1;32m\t\t$main::config{MAX_GECOS}\033[0m\n"; - print "\033[0mMax away length:\033[1;32m\t\t$main::config{MAX_AWAY}\033[0m\n"; - print "\033[0mGCC Version Found:\033[1;32m\t\t$main::config{GCCVER}.x\033[0m\n"; - print "\033[0mCompiler program:\033[1;32m\t\t$main::config{CC}\033[0m\n"; - print "\033[0mStatic modules:\033[1;32m\t\t\t$main::config{STATIC_LINK}\033[0m\n"; - print "\033[0mIPv6 Support:\033[1;32m\t\t\t$main::config{IPV6}\033[0m\n"; - print "\033[0mIPv6 to IPv4 Links:\033[1;32m\t\t$main::config{SUPPORT_IP6LINKS}\033[0m\n"; - print "\033[0mGnuTLS Support:\033[1;32m\t\t\t$main::config{USE_GNUTLS}\033[0m\n"; - print "\033[0mOpenSSL Support:\033[1;32m\t\t$main::config{USE_OPENSSL}\033[0m\n\n"; + print "\n\e[1;32mPre-build configuration is complete!\e[0m\n\n"; + print "\e[0mBase install path:\e[1;32m\t\t$main::config{BASE_DIR}\e[0m\n"; + print "\e[0mConfig path:\e[1;32m\t\t\t$main::config{CONFIG_DIR}\e[0m\n"; + print "\e[0mModule path:\e[1;32m\t\t\t$main::config{MODULE_DIR}\e[0m\n"; + print "\e[0mLibrary path:\e[1;32m\t\t\t$main::config{LIBRARY_DIR}\e[0m\n"; + print "\e[0mMax connections:\e[1;32m\t\t$main::config{MAX_CLIENT}\e[0m\n"; + print "\e[0mMax nickname length:\e[1;32m\t\t$main::config{NICK_LENGT}\e[0m\n"; + print "\e[0mMax channel length:\e[1;32m\t\t$main::config{CHAN_LENGT}\e[0m\n"; + print "\e[0mMax mode length:\e[1;32m\t\t$main::config{MAXI_MODES}\e[0m\n"; + print "\e[0mMax ident length:\e[1;32m\t\t$main::config{MAX_IDENT}\e[0m\n"; + print "\e[0mMax quit length:\e[1;32m\t\t$main::config{MAX_QUIT}\e[0m\n"; + print "\e[0mMax topic length:\e[1;32m\t\t$main::config{MAX_TOPIC}\e[0m\n"; + print "\e[0mMax kick length:\e[1;32m\t\t$main::config{MAX_KICK}\e[0m\n"; + print "\e[0mMax name length:\e[1;32m\t\t$main::config{MAX_GECOS}\e[0m\n"; + print "\e[0mMax away length:\e[1;32m\t\t$main::config{MAX_AWAY}\e[0m\n"; + print "\e[0mGCC Version Found:\e[1;32m\t\t$main::config{GCCVER}.x\e[0m\n"; + print "\e[0mCompiler program:\e[1;32m\t\t$main::config{CC}\e[0m\n"; + print "\e[0mIPv6 Support:\e[1;32m\t\t\t$main::config{IPV6}\e[0m\n"; + print "\e[0mIPv6 to IPv4 Links:\e[1;32m\t\t$main::config{SUPPORT_IP6LINKS}\e[0m\n"; + print "\e[0mGnuTLS Support:\e[1;32m\t\t\t$main::config{USE_GNUTLS}\e[0m\n"; + print "\e[0mOpenSSL Support:\e[1;32m\t\t$main::config{USE_OPENSSL}\e[0m\n\n"; } sub is_dir @@ -185,7 +221,7 @@ sub is_dir sub showhelp { - chomp($PWD = `pwd`); + chomp(my $PWD = `pwd`); print "Usage: configure [options] *** NOTE: NON-INTERACTIVE CONFIGURE IS *NOT* SUPPORTED BY THE *** @@ -205,6 +241,8 @@ InspIRCd 1.0.x, are also allowed. --disable-interactive Sets no options intself, but will disable any interactive prompting. + --disable-rpath Disable runtime paths. DO NOT USE UNLESS + YOU KNOW WHAT YOU ARE DOING! --update Update makefiles and dependencies --modupdate Detect new modules and write makefiles --svnupdate {--rebuild} Update working copy via subversion @@ -215,10 +253,6 @@ InspIRCd 1.0.x, are also allowed. --enable-openssl Enable OpenSSL module [no] --with-nick-length=[n] Specify max. nick length [32] --with-channel-length=[n] Specify max. channel length [64] - --with-max-channels=[n] Specify max. number of channels - a normal user may join [20] - --with-max-oper-channels=[n] Specify max. number of channels - an irc operator may join [60] --with-max-clients=[n] Specify maximum number of users which may connect locally --enable-optimization=[n] Optimize using -O[n] gcc flag @@ -242,6 +276,9 @@ InspIRCd 1.0.x, are also allowed. --with-away-length=[n] Specify max length of away [150] --with-max-modes=[n] Specify max modes per line which have parameters [20] + --with-maxbuf=[n] Change the per message buffer size [512] + DO NOT ALTER THIS OPTION WITHOUT GOOD REASON + AS IT *WILL* BREAK CLIENTS!!! --prefix=[directory] Base directory to install into (if defined, can automatically define config, module, bin and library dirs as subdirectories of prefix) @@ -254,6 +291,9 @@ InspIRCd 1.0.x, are also allowed. [$PWD/bin] --library-dir=[directory] Library directory for core libraries [$PWD/lib] + --list-extras Show current status of extra modules + --enable-extras=[extras] Enable the specified list of extras + --disable-extras=[extras] Disable the specified list of extras --help Show this help text and exit ";