make/configure.pm

   1 package make::configure;
   2 use Exporter 'import';
   3 use POSIX;
   4 @EXPORT = qw(promptnumeric dumphash);
   5
   6 sub promptnumeric($$)
   7 {
   8         my $continue = 0;
   9         my ($prompt, $configitem) = @_;
  10         while (!$continue)
  11         {
  12                 print "Please enter the maximum $prompt?\n";
  13                 print "[\033[1;32m$main::config{$configitem}\033[0m] -> ";
  14                 chomp($var = <STDIN>);
  15                 if ($var eq "")
  16                 {
  17                         $var = $main::config{$configitem};
  18                 }
  19                 if ($var =~ /^\d+$/) {
  20                         # We don't care what the number is, set it and be on our way.
  21                         $main::config{$configitem} = $var;
  22                         $continue = 1;
  23                         print "\n";
  24                 } else {
  25                         print "You must enter a number in this field. Please try again.\n\n";
  26                 }
  27         }
  28 }
  29
  30 sub dumphash()
  31 {
  32         print "\n\033[1;32mPre-build configuration is complete!\033[0m\n\n";
  33         print "\033[0mBase install path:\033[1;32m\t\t$main::config{BASE_DIR}\033[0m\n";
  34         print "\033[0mConfig path:\033[1;32m\t\t\t$main::config{CONFIG_DIR}\033[0m\n";
  35         print "\033[0mModule path:\033[1;32m\t\t\t$main::config{MODULE_DIR}\033[0m\n";
  36         print "\033[0mLibrary path:\033[1;32m\t\t\t$main::config{LIBRARY_DIR}\033[0m\n";
  37         print "\033[0mMax connections:\033[1;32m\t\t$main::config{MAX_CLIENT}\033[0m\n";
  38         print "\033[0mMax User Channels:\033[1;32m\t\t$main::config{MAX_CHANNE}\033[0m\n";
  39         print "\033[0mMax Oper Channels:\033[1;32m\t\t$main::config{MAX_OPERCH}\033[0m\n";
  40         print "\033[0mMax nickname length:\033[1;32m\t\t$main::config{NICK_LENGT}\033[0m\n";
  41         print "\033[0mMax channel length:\033[1;32m\t\t$main::config{CHAN_LENGT}\033[0m\n";
  42         print "\033[0mMax mode length:\033[1;32m\t\t$main::config{MAXI_MODES}\033[0m\n";
  43         print "\033[0mMax ident length:\033[1;32m\t\t$main::config{MAX_IDENT}\033[0m\n";
  44         print "\033[0mMax quit length:\033[1;32m\t\t$main::config{MAX_QUIT}\033[0m\n";
  45         print "\033[0mMax topic length:\033[1;32m\t\t$main::config{MAX_TOPIC}\033[0m\n";
  46         print "\033[0mMax kick length:\033[1;32m\t\t$main::config{MAX_KICK}\033[0m\n";
  47         print "\033[0mMax name length:\033[1;32m\t\t$main::config{MAX_GECOS}\033[0m\n";
  48         print "\033[0mMax away length:\033[1;32m\t\t$main::config{MAX_AWAY}\033[0m\n";
  49         print "\033[0mGCC Version Found:\033[1;32m\t\t$main::config{GCCVER}.x\033[0m\n";
  50         print "\033[0mCompiler program:\033[1;32m\t\t$main::config{CC}\033[0m\n";
  51         print "\033[0mStatic modules:\033[1;32m\t\t\t$main::config{STATIC_LINK}\033[0m\n";
  52         print "\033[0mIPv6 Support:\033[1;32m\t\t\t$main::config{IPV6}\033[0m\n";
  53         print "\033[0mIPv6 to IPv4 Links:\033[1;32m\t\t$main::config{SUPPORT_IP6LINKS}\033[0m\n";
  54         print "\033[0mGnuTLS Support:\033[1;32m\t\t\t$main::config{USE_GNUTLS}\033[0m\n";
  55         print "\033[0mOpenSSL Support:\033[1;32m\t\t$main::config{USE_OPENSSL}\033[0m\n\n";
  56 }
  57
  58 1;