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     # socket = bsd sockets api
 389     # nsl = dns stuff
 390     # rt = POSIX realtime extensions
 391     $config{LDLIBS} = $config{LDLIBS} . " -lsocket -lnsl -lrt";
 392   }
 393 }
 394
 395 sub is_dir {
 396   my ($path) = @_;
 397   if (chdir($path)) {
 398     chdir($this);
 399     return 1;
 400   } else {
 401     # Just in case..
 402     chdir($this);
 403     return 0;
 404   }
 405 }
 406
 407 sub getmodules {
 408   my $i = 0;
 409   opendir(DIRHANDLE, "src/modules");
 410   foreach $name (sort readdir(DIRHANDLE)) {
 411     if ($name =~ /^m_(.+)\.cpp$/)
 412     {
 413       $modlist[$i++] = $1;
 414     }
 415   }
 416   closedir(DIRHANDLE);
 417 }
 418
 419 sub writefiles {
 420
 421   print "Writing \033[1;32minspircd_config.h\033[0m\n";
 422   # First File.. inspircd_config.h
 423   chomp(my $incos = `uname -n -s -r`);
 424   chomp(my $version = `sh ./src/version.sh`);
 425   open(FILEHANDLE, ">include/inspircd_config.h");
 426   print FILEHANDLE <<EOF;
 427 /* Auto generated by configure, do not modify! */
 428 #define SYSLOG_FACILITY LOG_DAEMON
 429 #define SYSLOG_LEVEL LOG_NOTICE
 430 #define CONFIG_FILE "$config{CONFIG_DIR}/inspircd.conf"
 431 #define MOD_PATH "$config{MODULE_DIR}"
 432 #define VERSION "$version"
 433 #define MAXCLIENTS $config{MAX_CLIENT}
 434 #define NICKMAX $config{NICK_LENGT}
 435 #define CHANMAX $config{CHAN_LENGT}
 436 #define MAXCHANS $config{MAX_CHANNE}
 437 #define MAXMODES $config{MAXI_MODES}
 438 #define OPTIMISATION $config{OPTIMITEMP}
 439 #define SYSTEM "$incos"
 440 #define MAXBUF 514
 441 EOF
 442
 443   if ($config{OSNAME} =~ /SunOS/) {
 444     print FILEHANDLE "#define IS_SOLARIS\n";
 445   }
 446   if ($config{GCCVER} > 3) {
 447     print FILEHANDLE "#define GCC3\n";
 448     print FILEHANDLE "#define GCC34\n";
 449   }
 450   else
 451   {
 452     if ($config{GCCVER} == 3) {
 453       print FILEHANDLE "#define GCC3\n";
 454       if ($config{GCC34} > 3) {
 455         print FILEHANDLE "#define GCC34\n";
 456       }
 457     }
 458   }
 459   if ($config{HAS_STRLCPY} eq "true") {
 460     print FILEHANDLE "#define HAS_STRLCPY\n";
 461   }
 462   my $use_hiperf = 0;
 463   if (($has_kqueue) && ($config{USE_KQUEUE} eq "y")) {
 464     print FILEHANDLE "#define USE_KQUEUE\n";
 465     $use_hiperf = 1;
 466   }
 467   if (($has_epoll) && ($config{USE_EPOLL} eq "y")) {
 468     print FILEHANDLE "#define USE_EPOLL\n";
 469     $use_hiperf = 1;
 470   }
 471   # user didn't choose either epoll or select for their OS.
 472   # default them to USE_SELECT (ewwy puke puke)
 473   if (!$use_hiperf) {
 474     print FILEHANDLE "#define USE_SELECT\n";
 475   }
 476   close(FILEHANDLE);
 477
 478   # Create a Modules List..
 479   my $modules = "";
 480   foreach $i (@modlist)
 481   {
 482     $modules .= "m_".$i.".so ";
 483   }
 484   chomp($modules);   # Remove Redundant whitespace..
 485
 486
 487   # Write all .in files.
 488   my $tmp = "";
 489   my $file = "";
 490   opendir(DIRHANDLE, $this);
 491   foreach $name (sort readdir(DIRHANDLE)) {
 492     if ($name =~ /^\.(.+)\.inc$/)
 493     {
 494       $file = $1;
 495       # All .name.inc files need parsing!
 496       $tmp = "";
 497       open(FILEHANDLE, ".$file.inc");
 498       while (<FILEHANDLE>) {
 499         $tmp .= $_;
 500       }
 501       close(FILEHANDLE);
 502
 503       $tmp =~ s/\@MAKEPROG\@/$config{MAKEPROG}/;
 504       $tmp =~ s/\@FLAGS\@/$config{FLAGS}/;
 505       $tmp =~ s/\@LDLIBS\@/$config{LDLIBS}/;
 506       $tmp =~ s/\@CONFIG_DIR\@/$config{CONFIG_DIR}/;
 507       $tmp =~ s/\@MODULE_DIR\@/$config{MODULE_DIR}/;
 508       $tmp =~ s/\@BINARY_DIR\@/$config{BINARY_DIR}/;
 509       $tmp =~ s/\@LIBRARY_DIR\@/$config{LIBRARY_DIR}/;
 510       $tmp =~ s/\@MODULES\@/$modules/;
 511
 512       print "Writing \033[1;32m$file\033[0m\n";
 513       open(FILEHANDLE, ">$file");
 514       print FILEHANDLE $tmp;
 515     }
 516   }
 517   closedir(DIRHANDLE);
 518
 519   # Make inspircd executable!
 520   chmod 0744, 'inspircd';
 521
 522   # Modules Makefile..
 523   print "Writing \033[1;32msrc/modules/Makefile\033[0m\n";
 524   open(FILEHANDLE, ">src/modules/Makefile");
 525   print FILEHANDLE <<EOF;
 526 # (C) ChatSpike development team
 527 # Makefile by <Craig\@ChatSpike.net>
 528 # Many Thanks to Andrew Church <achurch\@achurch.org>
 529 #    for assisting with making this work right.
 530 #
 531 # Automatically Generated by ./configure to add a modules
 532 # please run ./configure --update
 533
 534 all: \$(MODULES)
 535
 536 EOF
 537
 538   # Create a Modules List..
 539   my $modules = "";
 540   my $flags = "";
 541   foreach $i (@modlist)
 542   {
 543     $flags = getcompilerflags("src/modules/m_".$i.".cpp");
 544     print FILEHANDLE <<EOCHEESE;
 545 m_$i.so: m_$i.cpp ../../include/modules.h ../../include/users.h ../../include/channels.h ../../include/servers.h ../../include/base.h
 546         \$(CC) -pipe -I../../include \$(FLAGS) $flags -export-dynamic -c m_$i.cpp
 547         \$(CC) \$(FLAGS) -shared $flags -o m_$i.so m_$i.o
 548         cp m_$i.so \$(MODPATH)/
 549         chmod 0700 \$(MODPATH)/m_$i.so
 550
 551 EOCHEESE
 552   }
 553 }
 554
 555 sub getcompilerflags {
 556   my ($file) = @_;
 557   open(FLAGS, $file);
 558   while (<FLAGS>) {
 559     if ($_ =~ /^\/\* \$CompileFlags: (.+) \*\/$/) {
 560       close(FLAGS);
 561       return $1;
 562     }
 563   }
 564   close(FLAGS);
 565   return undef;
 566 }
 567
 568 sub show_splash {
 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::\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... \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:\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:::: \033[1;33m##\033[0m:\n";
 573   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";
 574   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";
 575   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";
 576   print "\033[0m\033[0m....::..::::..:::......:::..:::::::::....::..:::::..:::......:::........:::\n\n";
 577 }
 578
 579 sub resolve_directory {
 580         use File::Spec;
 581         return File::Spec->rel2abs($_[0]);
 582 }
 583
 584 sub yesno {
 585         my ($flag,$prompt) = @_;
 586         print "$prompt [\033[1;32m$config{$flag}\033[0m] -> ";
 587         chomp($tmp = <STDIN>);
 588         if ($tmp eq "") { $tmp = $config{$flag} }
 589
 590         if (($tmp eq "") || ($tmp =~ /^y/i)) {
 591                 $config{$flag} = "y";
 592         } else {
 593                 $config{$flag} = "n";
 594         }
 595         return;
 596 }