- chomp($tmp = <STDIN>);
- if ($tmp ne "y") {
- print "Please enter the correct value.\n\n";
- next;
- }
- }
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- next;
- }
- # If we get here, we should be good to go.
- $config{MAX_CLIENT} = $var;
- $continue = 1;
- print "\n";
-}
-
-my $continue = 0;
-while (!$continue) {
- print "What is the maximum length of nicknames?\n";
- print "[\033[1;32m$config{NICK_LENGT}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{NICK_LENGT}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{NICK_LENGT} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum length of channel names?\n";
- print "[\033[1;32m$config{CHAN_LENGT}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{CHAN_LENGT}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{CHAN_LENGT} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum number of channels a normal user may join at any one time?\n";
- print "[\033[1;32m$config{MAX_CHANNE}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_CHANNE}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_CHANNE} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum number of channels an oper may join at any one time?\n";
- print "[\033[1;32m$config{MAX_OPERCH}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_OPERCH}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_OPERCH} = $var;
- $continue = 1;
- print "\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum number of mode changes in one line?\n";
- print "[\033[1;32m$config{MAXI_MODES}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAXI_MODES}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAXI_MODES} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum length of an ident (username)?\n";
- print "[\033[1;32m$config{MAX_IDENT}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_IDENT}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_IDENT} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum length of a quit message?\n";
- print "[\033[1;32m$config{MAX_QUIT}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_QUIT}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_QUIT} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum length of a channel topic?\n";
- print "[\033[1;32m$config{MAX_TOPIC}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_TOPIC}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_TOPIC} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum length of a kick message?\n";
- print "[\033[1;32m$config{MAX_KICK}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_KICK}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_KICK} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum length of a GECOS (real name) field?\n";
- print "[\033[1;32m$config{MAX_GECOS}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_GECOS}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_GECOS} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-$continue = 0;
-while (!$continue) {
- print "What is the maximum length of an away message?\n";
- print "[\033[1;32m$config{MAX_AWAY}\033[0m] -> ";
- chomp($var = <STDIN>);
- if ($var eq "") { $var = $config{MAX_AWAY}; }
- if ($var =~ /^\d+$/) {
- # We don't care what the number is, set it and be on our way.
- $config{MAX_AWAY} = $var;
- $continue = 1;
- print "\n";
- } else {
- print "You must enter a number in this field. Please try again.\n\n";
- }
-}
-
-# Code Optimisation
-print "Enter the Level Of Binary optimisation. This is a number between 0 and 3.
+ chomp($tmp = <STDIN>);
+ if ($tmp ne "y") {
+ print "Please enter the correct value.\n\n";
+ next;
+ }
+ }
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ next;
+ }
+ # If we get here, we should be good to go.
+ $config{MAX_CLIENT} = $var;
+ $continue = 1;
+ print "\n";
+ }
+
+ my $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of nicknames?\n";
+ print "[\033[1;32m$config{NICK_LENGT}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{NICK_LENGT};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{NICK_LENGT} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of channel names?\n";
+ print "[\033[1;32m$config{CHAN_LENGT}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{CHAN_LENGT};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{CHAN_LENGT} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum number of channels a normal user may join at any one time?\n";
+ print "[\033[1;32m$config{MAX_CHANNE}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_CHANNE};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_CHANNE} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum number of channels an oper may join at any one time?\n";
+ print "[\033[1;32m$config{MAX_OPERCH}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_OPERCH};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_OPERCH} = $var;
+ $continue = 1;
+ print "\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum number of mode changes in one line?\n";
+ print "[\033[1;32m$config{MAXI_MODES}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAXI_MODES};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAXI_MODES} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of an ident (username)?\n";
+ print "[\033[1;32m$config{MAX_IDENT}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_IDENT};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_IDENT} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of a quit message?\n";
+ print "[\033[1;32m$config{MAX_QUIT}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_QUIT};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_QUIT} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of a channel topic?\n";
+ print "[\033[1;32m$config{MAX_TOPIC}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_TOPIC};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_TOPIC} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of a kick message?\n";
+ print "[\033[1;32m$config{MAX_KICK}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_KICK};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_KICK} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of a GECOS (real name) field?\n";
+ print "[\033[1;32m$config{MAX_GECOS}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_GECOS};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_GECOS} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ $continue = 0;
+ while (!$continue) {
+ print "What is the maximum length of an away message?\n";
+ print "[\033[1;32m$config{MAX_AWAY}\033[0m] -> ";
+ chomp($var = <STDIN>);
+ if ($var eq "") {
+ $var = $config{MAX_AWAY};
+ }
+ if ($var =~ /^\d+$/) {
+ # We don't care what the number is, set it and be on our way.
+ $config{MAX_AWAY} = $var;
+ $continue = 1;
+ print "\n";
+ } else {
+ print "You must enter a number in this field. Please try again.\n\n";
+ }
+ }
+
+ # Code Optimisation
+ print "Enter the Level Of Binary optimisation. This is a number between 0 and 3.