summaryrefslogtreecommitdiff
path: root/configure
blob: f02392c0de0949f33907cd8a2ecef19105867bbc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
#!/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 = resolve_directory($ENV{PWD});						# PWD, Regardless.
@modlist = ();                                                  		# Declare for Module List..
%config = ();                                                   		# Initiate Configuration Hash..
$config{ME}                 = resolve_directory($ENV{PWD});			# Present Working Directory
$config{CONFIG_DIR}         = resolve_directory($ENV{PWD}."/conf");		# Configuration Directory
$config{MODULE_DIR}         = resolve_directory($ENV{PWD}."/modules");		# Modules Directory
$config{BINARY_DIR}         = resolve_directory($ENV{PWD}."/bin");		# Binary Directory
$config{LIBRARY_DIR}        = resolve_directory($ENV{PWD}."/lib");		# Library 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.
$config{USE_KQUEUE}         = "n";						# kqueue enabled
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..
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";
    getosflags();
    writefiles();
    print "Complete.\n";
    exit;
  }
}


getcache();
getosflags();

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");
dir_check("are the IRCd libraries to be placed", "LIBRARY_DIR");

if ($config{OSNAME} =~ /BSD$/) {
	yesno(USE_KQUEUE,"You are running a BSD operating system.\nWould you like to enable kqueue support?\nPlease be aware that kqueue support is\nEXPERIMENTAL and not gauranteed to work properly.\nIf you are unsure, answer no.\n\nEnable kqueue?");
}

# 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;32m$config{OPTIMITEMP}\033[0m] -> ";
chomp($var = <STDIN>);
if ($var eq "") {
  $var = $config{OPTIMITEMP};
}

if ($var eq "1") {
  $config{OPTIMITEMP} = 1;
  $config{OPTIMISATI} = "-O";
} elsif ($var eq "2") {
  $config{OPTIMITEMP} = 2;
  $config{OPTIMISATI} = "-O2";
} elsif ($var eq "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 ($var =~ /^\~\/(.+)$/) {
	# Convert it to a full path..
	$var = resolve_directory($ENV{HOME} . "/" . $1);
    }
    if (substr($var,0,1) ne "/")
    {
        # Assume relative Path was given.. fill in the rest.
        $var = $this . "/$var";
    }
    $var = resolve_directory($var); 
    if (! -e $var) {
      print "$var does not exist. Create it?\n[\033[1;32my\033[0m] ";
      chomp($tmp = <STDIN>);
      if (($tmp eq "") || ($tmp =~ /^y/i)) {
        # 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 -Woverloaded-virtual $config{OPTIMISATI}";
    $config{MAKEPROG} = "gmake";
  } else {
    $config{LDLIBS} = "-ldl";
    $config{FLAGS}  = "-fPIC -frtti $OPTIMISATI -Woverloaded-virtual $config{OPTIMISATI}";
    $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";
    print FILEHANDLE "#define GCC34\n";
  }
  else
  {
    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";
  }
  if ($config{USE_KQUEUE} eq "y") {
    print FILEHANDLE "#define USE_KQUEUE\n";
  }
  close(FILEHANDLE);

  # Create a Modules List..
  my $modules = "";
  foreach $i (@modlist)
  {
    $modules .= "m_".$i.".so ";
  }
  chomp($modules);   # Remove Redundant whitespace..


  # Write all .in files.
  my $tmp = "";
  my $file = "";
  opendir(DIRHANDLE, $this);
  foreach $name (sort readdir(DIRHANDLE)) {
    if ($name =~ /^\.(.+)\.inc$/)
    {
      $file = $1;
      # All .name.inc files need parsing!
      $tmp = "";
      open(FILEHANDLE, ".$file.inc");
      while (<FILEHANDLE>) {
        $tmp .= $_;
      }
      close(FILEHANDLE);

      $tmp =~ s/\@MAKEPROG\@/$config{MAKEPROG}/;
      $tmp =~ s/\@FLAGS\@/$config{FLAGS}/;
      $tmp =~ s/\@LDLIBS\@/$config{LDLIBS}/;
      $tmp =~ s/\@CONFIG_DIR\@/$config{CONFIG_DIR}/;
      $tmp =~ s/\@MODULE_DIR\@/$config{MODULE_DIR}/;
      $tmp =~ s/\@BINARY_DIR\@/$config{BINARY_DIR}/;
      $tmp =~ s/\@LIBRARY_DIR\@/$config{LIBRARY_DIR}/;
      $tmp =~ s/\@MODULES\@/$modules/;

      print "Writing \033[1;32m$file\033[0m\n";
      open(FILEHANDLE, ">$file");
      print FILEHANDLE $tmp;
    }
  }
  closedir(DIRHANDLE);

  # Make inspircd executable!
  chmod 0744, 'inspircd';

  # 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;
m_$i.so: m_$i.cpp ../../include/modules.h ../../include/users.h ../../include/channels.h ../../include/servers.h ../../include/base.h
	\$(CC) -pipe -I../../include \$(FLAGS) $flags -export-dynamic -c m_$i.cpp
	\$(CC) \$(FLAGS) -shared $flags -o m_$i.so m_$i.o
	cp m_$i.so \$(MODPATH)/
	chmod 0700 \$(MODPATH)/m_$i.so

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";
}

sub resolve_directory {
	use File::Spec;
	return File::Spec->rel2abs($_[0]);
}

sub yesno {
	my ($flag,$prompt) = @_;
	print "$prompt [\033[1;32m$config{$flag}\033[0m] -> ";
	chomp($tmp = <STDIN>);
	if ($tmp eq "") { $tmp = $config{$flag} }

	if (($tmp eq "") || ($tmp =~ /^y/i)) {
		$config{$flag} = "y";
	} else {
		$config{$flag} = "n";
        }
	return;
}