sub setManagers() {

        my $getInputFlag = 1;
        my $writeFileFlag = 1;
        my $mCounter = 0;

        my $ans = &promptUser("Do you wish to configure SNMP Managers on $var? ", "yes");

        if ($ans =~ /^[n]o?/i) {
                $getInputFlag = 0;
                $writeFileFlag = 0;
        }

        while ($getInputFlag) {
                my $mNumber = $mCounter+1;
                my $address;

                my $valid = 0;
                my $firstAttempt = 1;

        while (!$valid) {
          if ($firstAttempt) {
            $address = &promptUser("Enter Manager $mNumber IP Address ", "127.0.0.1");
            $firstAttempt = 0;
          } else {
            $address = &promptUser("ERROR: $address Invalid: Re-enter Manager $mNumber IP Address ", "127.0.0.1");
          }

          if ($address =~ /^(([3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-5])\.){3}([3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-5])$/) {
            $valid = 1;
          }
        }
   
                my $port = &promptUser("Enter Manager $mNumber SNMP Port ", "162");
                my $version = &promptUser("Enter Manager $mNumber SNMP Version ", "2");
                my $community   = &promptUser("Enter Manager $mNumber SNMP Community String ", "public");
           
                $managers[$mCounter]{address} = $address;
                $managers[$mCounter]{port} = $port;
                $managers[$mCounter]{version} = $version;
                $managers[$mCounter]{community} = $community;
                $mCounter++;


                my $finish = &promptUser("Manager configuration complete [y/n]? ");

                if ($finish =~ /^y(es)?$/i) {
                        $getInputFlag = 0;
                }
        }

        # write manager.properties file $JBOSS_HOME/conf

        if ($writeFileFlag) {

               open(FILE, "> $var:$ENV{JBOSS_HOME}/conf/manager.properties");
                my $numOfManagers = scalar(@managers);

                print FILE "manager.total=$numOfManagers\n";

                for (my $i=0; $i<$numOfManagers; $i++) {
                        my $mNumber = $i+1;
                        print FILE "\n";
                        print FILE "# SNMP Manager $mNumber Settings\n";
                        print FILE "manager.$mNumber.address=$managers[$i]{address}\n";
                        print FILE "manager.$mNumber.port=$managers[$i]{port}\n";
                        print FILE "manager.$mNumber.version=$managers[$i]{version}\n";
                        print FILE "manager.$mNumber.community=$managers[$i]{community}\n";
                        print FILE "\n";
                }
                $writeFileFlag = 0;
                close(FILE);
        }

}