##############################################################
# Version subroutines
##############################################################
@@ -626,6 +664,32 @@
$agentMachineName=$cfg->{'adminMachineName'};
}
+ #ip addresses
+ my $agent_ip_addr = get_IP_address_from_FQDN($agentMachineName);
+ my $ee_ip_addr = get_IP_address_from_FQDN($eeMachineName);
+ my $ee_client_auth_ip_addr = get_IP_address_from_FQDN($eecaMachineName);
+ my $admin_ip_addr = get_IP_address_from_FQDN($adminMachineName);
+
+ # port configuration mode
+ my $port_configuration_mode = "";
+ if (exists $cfg->{'service.portConfigurationMode'} and \
+ defined $cfg->{'service.portConfigurationMode'}) {
+ $port_configuration_mode = $cfg->{'service.portConfigurationMode'};
+ } else {
+ if ($subsystem_type eq $RA) {
+ $port_configuration_mode = "RA Ports";
+ } elsif ($subsystem_type eq $TPS) {
+ $port_configuration_mode = "TPS Ports";
+ } elsif (($secure_port == $ee_secure_port) &&
+ ($secure_port == $ee_secure_client_auth_port) &&
+ ($secure_port == $admin_secure_port) &&
+ ($secure_port == $agent_secure_port)) {
+ $port_configuration_mode = "Shared Ports";
+ } else {
+ $port_configuration_mode = "Port Separation";
+ }
+ }
+