configure

   1 #!/usr/bin/perl
   2 # InspIRCd Configuration Script
   3 #
   4 # Copyright 2003 The ChatSpike Development Team
   5 # <brain@chatspike.net>
   6 # <Craig@chatspike.net>
   7 #
   8 # [14:21] Brain: <matrix impression> i know perl-fu!
   9 #
  10 # $Id$
  11 #
  12 ########################################
  13
  14 chomp($topdir = `pwd`);
  15 $this = resolve_directory($topdir);                                             # PWD, Regardless.
  16 @modlist = ();                                                                  # Declare for Module List..
  17 %config = ();                                                                   # Initiate Configuration Hash..
  18 $config{ME}                 = resolve_directory($topdir);                       # Present Working Directory
  19 $config{CONFIG_DIR}         = resolve_directory($config{ME}."/conf");           # Configuration Directory
  20 $config{MODULE_DIR}         = resolve_directory($config{ME}."/modules");        # Modules Directory
  21 $config{BINARY_DIR}         = resolve_directory($config{ME}."/bin");            # Binary Directory
  22 $config{LIBRARY_DIR}        = resolve_directory($config{ME}."/lib");            # Library Directory
  23 $config{OPTIMITEMP}         = "0";                                              # Default Optimisation Value
  24 $config{OPTIMISATI}         = "-g";                                             # Optimisation Flag
  25 $config{NICK_LENGT}         = "32";                                             # Default Nick Length
  26 $config{CHAN_LENGT}         = "64";                                             # Default Channel Name Length
  27 $config{MAX_CHANNE}         = "20";                                             # Default Max. Channels per user..
  28 $config{MAXI_MODES}         = "20";                                             # Default Max. Number of Modes set at once.
  29 $config{HAS_STRLCPY}        = "false";                                          # strlcpy Check.
  30 $config{USE_KQUEUE}         = "y";                                              # kqueue enabled
  31 $config{USE_EPOLL}          = "y";                                              # epoll enabled
  32 chomp($config{MAX_CLIENT_T} = `sh -c \"ulimit -n\"`);                           # FD Limit
  33 chomp($config{GCCVER}       = `gcc -dumpversion | cut -c 1`);                   # Major GCC Version
  34 chomp($config{GCC34}        = `gcc -dumpversion | cut -c 3`);                   # Minor GCC Version
  35 chomp($config{OSNAME}       = `/bin/uname`);                                    # Operating System Name
  36 $config{CC}                 = "g++";                                            # C++ compiler
  37
  38 if ((!$config{OSNAME}) || ($config{OSNAME} eq "")) {
  39   chomp($config{OSNAME} = `/usr/bin/uname`);
  40   if ((!$config{OSNAME}) || ($config{OSNAME} eq "")){
  41         $config{OSNAME} = "Unknown";
  42   }
  43 }
  44
  45 if (!$config{MAX_CLIENT_T}) {
  46   $config{MAX_CLIENT_T} = 1024;                                 # Set a reasonable 'Default'
  47   $fd_scan_fail = "true";                                       # Used Later
  48 }
  49
  50 # Get and Set some important vars..
  51 getmodules();
  52
  53 my $arg = $ARGV[0];                                             # Do Some Argument Checks..
  54 if ($arg eq "-clean") { `rm -rf .config.cache`; }               # Remove the config.cache file.
  55
  56 if ($arg eq "-update") {
  57   # Does the cache file exist?
  58   if (!getcache()) {
  59     # No, No it doesn't.. *BASH*
  60     print "You have not run ./configure before. Please do this before trying to run the update script.\n";
  61     exit 0;
  62   } else {
  63     # We've Loaded the cache file and all our variables..
  64     print "Updating Files..\n";
  65     getosflags();
  66     writefiles();
  67     print "Complete.\n";
  68     exit;
  69   }
  70 }
  71
  72 print "Checking for cache from previous configure...\n";
  73 getcache();
  74 print "Checking operating system version...\n";
  75 getosflags();
  76
  77 if (!$config{MAX_CLIENT}) {
  78   # If the cache hasn't set the max clients, copy the variable of MAX_CLIENT_T, this
  79   # allows us to keep _T for testing purposes. (ie. "Are you sure you want to go
  80   # higher than the found value" :))
  81   $config{MAX_CLIENT} = $config{MAX_CLIENT_T};
  82 }
  83
  84 printf "Checking if strlcpy exists... ";
  85 # Perform the strlcpy() test..
  86 $config{HAS_STRLCPY} = "false";
  87 my $fail = 0;
  88 open(STRLCPY, "</usr/include/string.h") or $fail = 1;
  89 if (!$fail)
  90 {
  91         while (chomp($line = <STRLCPY>))
  92         {
  93                 # try and find the delcaration of:
  94                 # size_t strlcpy(...)
  95                 if (($line =~ /size_t(\0x9|\s)+strlcpy(\0x9|\s)+\(/) || ($line =~ /size_t(\0x9|\s)+strlcpy\(/))
  96                 {
  97                         $config{HAS_STRLCPY} = "true";
  98                 }
  99         }
 100         close(STRLCPY);
 101 }
 102 print "yes\n" if $config{HAS_STRLCPY} eq "true";
 103 print "no\n" if $config{HAS_STRLCPY} eq "false";
 104
 105 printf "Checking if kqueue exists... ";
 106 $has_kqueue = 0;
 107 $fail = 0;
 108 open(KQUEUE, "</usr/include/sys/event.h") or $fail = 1;
 109 if (!$fail)
 110 {
 111         while (chomp($line = <KQUEUE>))
 112         {
 113                 # try and find the delcaration of:
 114                 # int kqueue(void);
 115                 if (($line =~ /int(\0x9|\s)+kqueue(\0x9|\s)+\(/) || ($line =~ /int(\0x9|\s)+kqueue\(/))
 116                 {
 117                         $has_kqueue = 1;
 118                 }
 119         }
 120         close(KQUEUE);
 121 }
 122 print "yes\n" if $has_kqueue == 1;
 123 print "no\n" if $has_kqueue == 0;
 124
 125 printf "Checking if epoll exists... ";
 126 $has_epoll = 0;
 127 $fail = 0;
 128 open(EPOLL, "</usr/include/sys/epoll.h") or $fail = 1;
 129 if (!$fail)
 130 {
 131         while (chomp($line = <EPOLL>))
 132         {
 133                 # try and find the declaration of:
 134                 # extern int epoll_create (int __size) __THROW;
 135                 if (($line =~ /int(\0x9|\s)+epoll_create(\0x9|\s)+\(/) || ($line =~ /int(\0x9|\s)+epoll_create\(/))
 136                 {
 137                         $has_epoll = 1;
 138                 }
 139         }
 140         close(EPOLL);
 141 }
 142 print "yes\n" if $has_epoll == 1;
 143 print "no\n" if $has_epoll == 0;
 144
 145 ################################################################################
 146 #                          BEGIN INTERACTIVE PART                              #
 147 ################################################################################
 148
 149 # Clear the Screen..
 150 system("clear");
 151 # Display Splash Logo..
 152 show_splash();
 153 chomp($wholeos = `uname -mnr`);
 154
 155 # Display Introduction Message..
 156 print "
 157 Welcome to the InspIRCd Configuration program!
 158
 159 *** If you are unsure of any of these values, leave it blank for    ***
 160 *** standard settings that will work, and your server will run      ***
 161 *** using them. If you are running this server as part of a         ***
 162 *** larger network, you must consult with your network admins       ***
 163 *** for the proper values to use, or server links will be unstable! ***
 164
 165 Press \033[1m<RETURN>\033[0m to accept the default for any option, or enter
 166 a new value. Please note: You will \033[1mHAVE\033[0m to read the docs
 167 dir, otherwise you won't have a config file!
 168
 169 Your operating system is: \033[1;32m$config{OSNAME}\033[0m ($wholeos), fdmax: $config{MAX_CLIENT_T}\n\n";
 170
 171 # Directory Settings..
 172 dir_check("are the configuration files", "CONFIG_DIR");
 173 dir_check("are the modules to be compiled to", "MODULE_DIR");
 174 dir_check("is the IRCd binary to be placed", "BINARY_DIR");
 175 dir_check("are the IRCd libraries to be placed", "LIBRARY_DIR");
 176
 177 if ($has_kqueue) {
 178         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?");
 179 }
 180 if ($has_epoll) {
 181         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?");
 182 }
 183 $chose_hiperf = (($config{USE_EPOLL} eq "y") || ($config{USE_KQUEUE} eq "y"));
 184 if (!$chose_hiperf)
 185 {
 186         print "No high-performance socket engines are available, or you chose\n";
 187         print "not to enable one. Defaulting to select() engine.\n\n";
 188 }
 189
 190 # File Descriptor Settings..
 191 my $continue = 0;
 192 while (!$continue) {
 193   print "Maximum number of clients at any one time ($config{MAX_CLIENT_T})\n";
 194   print "[\033[1;32m$config{MAX_CLIENT}\033[0m] -> ";
 195   chomp($var = <STDIN>);
 196   if ($var eq "") { $var = $config{MAX_CLIENT}; }
 197   if ($var =~ /^\d+$/) {
 198     if (($var > $config{MAX_CLIENT_T}) && ($fd_scan_failed ne true)) {
 199       # Client has entered a larger number than the 'discovered' value
 200       # Confirm.
 201       print "WARNING: Our scans have indicated that you are attempting
 202 to use more sockets than there are avaliable. Are you sure
 203 you wish to do this? It may cause the IRCd to malfunction [y/n]
 204 [\033[1;32mn\033[0m] -> $c";
 205       chomp($tmp = <STDIN>);
 206       if ($tmp ne "y") {
 207         print "Please enter the correct value.\n\n";
 208         next;
 209       }
 210     }
 211   } else {
 212     print "You must enter a number in this field. Please try again.\n\n";
 213     next;
 214   }
 215   # If we get here, we should be good to go.
 216   $config{MAX_CLIENT} = $var;
 217   $continue = 1;
 218   print "\n";
 219 }
 220
 221 my $continue = 0;
 222 while (!$continue) {
 223   print "What is the Maximum length of nicknames?\n";
 224   print "[\033[1;32m$config{NICK_LENGT}\033[0m] -> ";
 225   chomp($var = <STDIN>);
 226   if ($var eq "") { $var = $config{NICK_LENGT}; }
 227   if ($var =~ /^\d+$/) {
 228     # We don't care what the number is, set it and be on our way.
 229     $config{NICK_LENGT} = $var;
 230     $continue = 1;
 231     print "\n";
 232   } else {
 233     print "You must enter a number in this field. Please try again.\n\n";
 234   }
 235 }
 236
 237 my $continue = 0;
 238 while (!$continue) {
 239   print "What is the Maximum number of mode changes in one line?\n";
 240   print "[\033[1;32m$config{MAXI_MODES}\033[0m] -> ";
 241   chomp($var = <STDIN>);
 242   if ($var eq "") { $var = $config{MAXI_MODES}; }
 243   if ($var =~ /^\d+$/) {
 244     # We don't care what the number is, set it and be on our way.
 245     $config{MAXI_MODES} = $var;
 246     $continue = 1;
 247     print "\n";
 248   } else {
 249     print "You must enter a number in this field. Please try again.\n\n";
 250   }
 251 }
 252
 253 # Code Optimisation
 254 print "Enter the Level Of Binary optimisation. This is a number between 0 and 3 (inclusive)
 255 The InspIRCd Team will _NOT_ support any bug reports above 0.
 256 Also note, the IRCd behaviour will be different depending on this value.
 257 Please read the documentation for more information.
 258
 259 The Higher the number, the more optimised your binary will be. This value will default to 0
 260 If you either a) Dont enter a number, or b) Enter a value outside the range.\n";
 261 print "[\033[1;32m$config{OPTIMITEMP}\033[0m] -> ";
 262 chomp($var = <STDIN>);
 263 if ($var eq "") {
 264   $var = $config{OPTIMITEMP};
 265 }
 266
 267 if ($var eq "1") {
 268   $config{OPTIMITEMP} = 1;
 269   $config{OPTIMISATI} = "-O";
 270 } elsif ($var eq "2") {
 271   $config{OPTIMITEMP} = 2;
 272   $config{OPTIMISATI} = "-O2";
 273 } elsif ($var eq "3") {
 274   $config{OPTIMITEMP} = 3;
 275   $config{OPTIMISATI} = "-O3";
 276 } else {
 277   $config{OPTIMITEMP} = 0;
 278   $config{OPTIMISATI} = "-g";
 279 }
 280
 281 print "\n\033[1;32mPre-build configuration is complete!\033[0m\n\n";
 282 print "\033[0mConfig path:\033[1;32m\t\t\t$config{CONFIG_DIR}\n";
 283 print "\033[0mModule path:\033[1;32m\t\t\t$config{MODULE_DIR}\n";
 284 print "\033[0mMax connections:\033[1;32m\t\t$config{MAX_CLIENT}\n";
 285 print "\033[0mMax User Channels\033[1;32m\t\t$config{MAX_CHANNE}\n";
 286 print "\033[0mMax nickname length:\033[1;32m\t\t$config{NICK_LENGT}\n";
 287 print "\033[0mMax channel length:\033[1;32m\t\t$config{CHAN_LENGT}\n";
 288 print "\033[0mMax mode length:\033[1;32m\t\t$config{MAXI_MODES}\n";
 289 print "\033[0mGCC Version Found:\033[1;32m\t\t$config{GCCVER}.$config{GCC34}\n";
 290 print "\033[0mOptimatizaton Flag:\033[1;32m\t\t$config{OPTIMISATI}\033[0m\n";
 291 print "\033[0mCompiler program:\033[1;32m\t\t$config{CC}\033[0m\n\n";
 292
 293 makecache();
 294 writefiles();
 295
 296 print "\n\n";
 297 print "To build your server with these settings, please type '\033[1;32m$config{MAKEPROG}\033[0m' now.\n";
 298 print "*** \033[1;32mRemember to edit your configuration files!!!\033[0m ***\n\n\n";
 299
 300 ################################################################################
 301 #                              HELPER FUNCTIONS                                #
 302 ################################################################################
 303 sub getcache {
 304   # Retrieves the .config.cache file, and loads values into the main config hash.
 305   open(CACHE, ".config.cache") or return undef;
 306   while (<CACHE>) {
 307     chomp;
 308
 309     # Ignore Blank lines, and comments..
 310     next if /^\s*$/;
 311     next if /^\s*#/;
 312
 313     my ($key, $value) = split("=", $_);
 314     $value =~ /^\"(.*)\"$/;
 315     # Do something with data here!
 316     $config{$key} = $1;
 317   }
 318   close(CONFIG);
 319   return "true";
 320 }
 321
 322 sub makecache {
 323   # Dump the contents of %config
 324   print "Writing \033[1;32mcache file\033[0m for future ./configures ...\n";
 325   open(FILEHANDLE, ">.config.cache");
 326   foreach $key (keys %config)
 327   {
 328     print FILEHANDLE "$key=\"$config{$key}\"\n";
 329   }
 330   close(FILEHANDLE);
 331 }
 332
 333 sub dir_check {
 334   my ($desc, $hash_key) = @_;
 335   my $complete = 0;
 336   while (!$complete) {
 337     print "In what directory $desc?\n";
 338     print "[\033[1;32m$config{$hash_key}\033[0m] -> ";
 339     chomp($var = <STDIN>);
 340     if ($var eq "") { $var = $config{$hash_key}; }
 341     if ($var =~ /^\~\/(.+)$/) {
 342         # Convert it to a full path..
 343         $var = resolve_directory($ENV{HOME} . "/" . $1);
 344     }
 345     if (substr($var,0,1) ne "/")
 346     {
 347         # Assume relative Path was given.. fill in the rest.
 348         $var = $this . "/$var";
 349     }
 350     $var = resolve_directory($var);
 351     if (! -e $var) {
 352       print "$var does not exist. Create it?\n[\033[1;32my\033[0m] ";
 353       chomp($tmp = <STDIN>);
 354       if (($tmp eq "") || ($tmp =~ /^y/i)) {
 355         # Attempt to Create the Dir..
 356         $chk = system("mkdir -p \"$var\" >> /dev/null 2>&1") / 256;
 357         if ($chk != 0) {
 358           print "Unable to create directory. ($var)\n\n";
 359           # Restart Loop..
 360           next;
 361         }
 362       } else {
 363         # They said they don't want to create, and we can't install there.
 364         print "\n\n";
 365         next;
 366       }
 367     } else {
 368       if (!is_dir($var)) {
 369         # Target exists, but is not a directory.
 370         print "File $var exists, but is not a directory.\n\n";
 371         next;
 372       }
 373     }
 374     # Either Dir Exists, or was created fine.
 375     $config{$hash_key} = $var;
 376     $complete = 1;
 377     print "\n";
 378   }
 379 }
 380
 381 sub getosflags {
 382   if ($config{OSNAME} =~ /BSD$/) {
 383     $config{LDLIBS} = "-Ldl";
 384     $config{FLAGS}  = "-fPIC -frtti $OPTIMISATI -Woverloaded-virtual $config{OPTIMISATI}";
 385     $config{MAKEPROG} = "gmake";
 386     if ($config{OSNAME} eq "OpenBSD") {
 387         $config{CC} = "eg++";
 388     }
 389   } else {
 390     $config{LDLIBS} = "-ldl";
 391     $config{FLAGS}  = "-fPIC -frtti $OPTIMISATI -Woverloaded-virtual $config{OPTIMISATI}";
 392     $config{MAKEPROG} = "make";
 393   }
 394   if ($config{OSNAME} =~ /SunOS/) {
 395     # solaris/sunos needs these
 396     # socket = bsd sockets api
 397     # nsl = dns stuff
 398     # rt = POSIX realtime extensions
 399     # resolv = inet_aton only (why isnt this in nsl?!)
 400     $config{LDLIBS} = $config{LDLIBS} . " -lsocket -lnsl -lrt -lresolv";
 401   }
 402 }
 403
 404 sub is_dir {
 405   my ($path) = @_;
 406   if (chdir($path)) {
 407     chdir($this);
 408     return 1;
 409   } else {
 410     # Just in case..
 411     chdir($this);
 412     return 0;
 413   }
 414 }
 415
 416 sub getmodules {
 417   my $i = 0;
 418   opendir(DIRHANDLE, "src/modules");
 419   foreach $name (sort readdir(DIRHANDLE)) {
 420     if ($name =~ /^m_(.+)\.cpp$/)
 421     {
 422       $modlist[$i++] = $1;
 423     }
 424   }
 425   closedir(DIRHANDLE);
 426 }
 427
 428 sub writefiles {
 429
 430   print "Writing \033[1;32minspircd_config.h\033[0m\n";
 431   # First File.. inspircd_config.h
 432   chomp(my $incos = `uname -n -s -r`);
 433   chomp(my $version = `sh ./src/version.sh`);
 434   open(FILEHANDLE, ">include/inspircd_config.h");
 435   print FILEHANDLE <<EOF;
 436 /* Auto generated by configure, do not modify! */
 437 #define SYSLOG_FACILITY LOG_DAEMON
 438 #define SYSLOG_LEVEL LOG_NOTICE
 439 #define CONFIG_FILE "$config{CONFIG_DIR}/inspircd.conf"
 440 #define MOD_PATH "$config{MODULE_DIR}"
 441 #define VERSION "$version"
 442 #define MAXCLIENTS $config{MAX_CLIENT}
 443 #define NICKMAX $config{NICK_LENGT}
 444 #define CHANMAX $config{CHAN_LENGT}
 445 #define MAXCHANS $config{MAX_CHANNE}
 446 #define MAXMODES $config{MAXI_MODES}
 447 #define OPTIMISATION $config{OPTIMITEMP}
 448 #define SYSTEM "$incos"
 449 #define MAXBUF 514
 450 EOF
 451
 452   if ($config{OSNAME} =~ /SunOS/) {
 453     print FILEHANDLE "#define IS_SOLARIS\n";
 454   }
 455   if ($config{GCCVER} > 3) {
 456     print FILEHANDLE "#define GCC3\n";
 457     print FILEHANDLE "#define GCC34\n";
 458   }
 459   else
 460   {
 461     if ($config{GCCVER} == 3) {
 462       print FILEHANDLE "#define GCC3\n";
 463       if ($config{GCC34} > 3) {
 464         print FILEHANDLE "#define GCC34\n";
 465       }
 466     }
 467   }
 468   if ($config{HAS_STRLCPY} eq "true") {
 469     print FILEHANDLE "#define HAS_STRLCPY\n";
 470   }
 471   my $use_hiperf = 0;
 472   if (($has_kqueue) && ($config{USE_KQUEUE} eq "y")) {
 473     print FILEHANDLE "#define USE_KQUEUE\n";
 474     $use_hiperf = 1;
 475   }
 476   if (($has_epoll) && ($config{USE_EPOLL} eq "y")) {
 477     print FILEHANDLE "#define USE_EPOLL\n";
 478     $use_hiperf = 1;
 479   }
 480   # user didn't choose either epoll or select for their OS.
 481   # default them to USE_SELECT (ewwy puke puke)
 482   if (!$use_hiperf) {
 483     print FILEHANDLE "#define USE_SELECT\n";
 484   }
 485   close(FILEHANDLE);
 486
 487   # Create a Modules List..
 488   my $modules = "";
 489   foreach $i (@modlist)
 490   {
 491     $modules .= "m_".$i.".so ";
 492   }
 493   chomp($modules);   # Remove Redundant whitespace..
 494
 495
 496   # Write all .in files.
 497   my $tmp = "";
 498   my $file = "";
 499   opendir(DIRHANDLE, $this);
 500   foreach $name (sort readdir(DIRHANDLE)) {
 501     if ($name =~ /^\.(.+)\.inc$/)
 502     {
 503       $file = $1;
 504       # All .name.inc files need parsing!
 505       $tmp = "";
 506       open(FILEHANDLE, ".$file.inc");
 507       while (<FILEHANDLE>) {
 508         $tmp .= $_;
 509       }
 510       close(FILEHANDLE);
 511
 512       $tmp =~ s/\@CC\@/$config{CC}/;
 513       $tmp =~ s/\@MAKEPROG\@/$config{MAKEPROG}/;
 514       $tmp =~ s/\@FLAGS\@/$config{FLAGS}/;
 515       $tmp =~ s/\@LDLIBS\@/$config{LDLIBS}/;
 516       $tmp =~ s/\@CONFIG_DIR\@/$config{CONFIG_DIR}/;
 517       $tmp =~ s/\@MODULE_DIR\@/$config{MODULE_DIR}/;
 518       $tmp =~ s/\@BINARY_DIR\@/$config{BINARY_DIR}/;
 519       $tmp =~ s/\@LIBRARY_DIR\@/$config{LIBRARY_DIR}/;
 520       $tmp =~ s/\@MODULES\@/$modules/;
 521
 522       print "Writing \033[1;32m$file\033[0m\n";
 523       open(FILEHANDLE, ">$file");
 524       print FILEHANDLE $tmp;
 525     }
 526   }
 527   closedir(DIRHANDLE);
 528
 529   # Make inspircd executable!
 530   chmod 0744, 'inspircd';
 531
 532   # Modules Makefile..
 533   print "Writing \033[1;32msrc/modules/Makefile\033[0m\n";
 534   open(FILEHANDLE, ">src/modules/Makefile");
 535   print FILEHANDLE <<EOF;
 536 # (C) ChatSpike development team
 537 # Makefile by <Craig\@ChatSpike.net>
 538 # Many Thanks to Andrew Church <achurch\@achurch.org>
 539 #    for assisting with making this work right.
 540 #
 541 # Automatically Generated by ./configure to add a modules
 542 # please run ./configure --update
 543
 544 all: \$(MODULES)
 545
 546 EOF
 547
 548   # Create a Modules List..
 549   my $modules = "";
 550   my $flags = "";
 551   foreach $i (@modlist)
 552   {
 553     $flags = getcompilerflags("src/modules/m_".$i.".cpp");
 554     print FILEHANDLE <<EOCHEESE;
 555 m_$i.so: m_$i.cpp ../../include/modules.h ../../include/users.h ../../include/channels.h ../../include/servers.h ../../include/base.h
 556         \$(CC) -pipe -I../../include \$(FLAGS) $flags -export-dynamic -c m_$i.cpp
 557         \$(CC) \$(FLAGS) -shared $flags -o m_$i.so m_$i.o
 558         cp m_$i.so \$(MODPATH)/
 559         chmod 0700 \$(MODPATH)/m_$i.so
 560
 561 EOCHEESE
 562   }
 563 }
 564
 565 sub getcompilerflags {
 566   my ($file) = @_;
 567   open(FLAGS, $file);
 568   while (<FLAGS>) {
 569     if ($_ =~ /^\/\* \$CompileFlags: (.+) \*\/$/) {
 570       close(FLAGS);
 571       return $1;
 572     }
 573   }
 574   close(FLAGS);
 575   return undef;
 576 }
 577
 578 sub show_splash {
 579   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";
 580   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";
 581   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";
 582   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";
 583   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";
 584   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";
 585   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";
 586   print "\033[0m\033[0m....::..::::..:::......:::..:::::::::....::..:::::..:::......:::........:::\n\n";
 587 }
 588
 589 sub resolve_directory {
 590         use File::Spec;
 591         return File::Spec->rel2abs($_[0]);
 592 }
 593
 594 sub yesno {
 595         my ($flag,$prompt) = @_;
 596         print "$prompt [\033[1;32m$config{$flag}\033[0m] -> ";
 597         chomp($tmp = <STDIN>);
 598         if ($tmp eq "") { $tmp = $config{$flag} }
 599
 600         if (($tmp eq "") || ($tmp =~ /^y/i)) {
 601                 $config{$flag} = "y";
 602         } else {
 603                 $config{$flag} = "n";
 604         }
 605         return;
 606 }