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