- $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";
- }
- }
+ promptnumeric("length of nicknames", "NICK_LENGT");
+ promptnumeric("length of channel names", "CHAN_LENGT");
+ promptnumeric("number of channels a normal user may join at any one time", "MAX_CHANNE");
+ promptnumeric("number of channels an oper may join at any one time", "MAX_OPERCH");
+ promptnumeric("number of mode changes in one line", "MAXI_MODES");
+ promptnumeric("length of an ident (username)", "MAX_IDENT");
+ promptnumeric("length of a quit message", "MAX_QUIT");
+ promptnumeric("length of a channel topic", "MAX_TOPIC");
+ promptnumeric("length of a kick message", "MAX_KICK");
+ promptnumeric("length of a GECOS (real name)", "MAX_GECOS");
+ promptnumeric("length of an away message", "MAX_AWAY");
+}