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