DevBabu_174449
Jan 30, 2015Cirrus
How can i now get the value of pool member and port (iApps)
Presentation Section (Pool Member in Table)
presentation { include "/Common/f5.apl_common" section virtual_servers { row ip_port { string virtual_ip validator "IpAddress" string virtual_port validator "PortNumber" }
}
section pool_members {
table pool_members_list {
string pool_ip validator "IpAddress"
string pool_port validator "PortNumber"
}
}
text {
virtual_servers "Virtual Server"
virtual_servers.ip_port "Enter Destination and Port"
virtual_servers.ip_port.virtual_ip "Destination IP address:"
virtual_servers.ip_port.virtual_port "Port:"
pool_members "Pool Members"
pool_members.pool_members_list "Enter Pool Members:"
pool_members.pool_members_list.pool_ip "IP address:"
pool_members.pool_members_list.pool_port "Port:"
}
}
Implementation Section
implementation {
tmsh::log_dest file
tmsh::log_level crit
puts " "
puts " "
puts "Starting First template creation of virtual servers"
set virtual_ip $::virtual_servers__ip_port__virtual_ip
set virtual_port $::virtual_servers__ip_port__virtual_port
puts $virtual_ip
puts $virtual_port
set pool $::pool_members__pool_members_list
puts $pool
}
puts $pool gives me output as:
{{ pool_ip 10.10.1.2 pool_port 443 }} {{ pool_ip 10.10.1.3 pool_port 443 }} {{ pool_ip 10.10.1.4 pool_port 443 }}
Now how can i loop to get the individual pool_ip and pool_port. is $pool a list. Please help. I am new and learning iApp and tcl.