Programmer's Guide (Supporting ADX v03.1.00) Manual

848 Brocade Virtual ADX XML API Programmer’s Guide
53-1003248-01
Example - Binding a real server port to a virtual server port and saving to the startup configuration file
B
##############################
# Build the SOAP Request Message with the XML Context and Header
my @slbsoap_body = (name('configurationInfo')->value([
name('RealServerConfigurationSequence')->value([
name('description')->value('Real Server 001'),
name('realServer')->value([ name('IP')->value('100.10.1.1'),
name('Name')->value('RealServer-001')])])]));
$xml_result =$slbsoap->call('urn:createRealServerWithConfiguration',
@slbsoap_body,$slbsoap_header);
print "\n $xml_result \n";
#### Create a Real Server Port ####
###################################
# Build the SOAP Request Message with the XML Context and Header
@slbsoap_body = (name('portConfig')->value([
name('RealServerPortConfigurationSequence')->value([
name('serverPort')->value([name('port')->value([
name('NameOrNumber')->value('http')]),
name('srvr')->value([name('IP')->value('100.10.1.1'),
name('Name')->value('RealServer-001')])])])]));
$xml_result =$slbsoap->call('urn:createRealServerPortWithConfiguration',
@slbsoap_body,$slbsoap_header);
print "\n $xml_result \n";
#### Create a Virtual Server ####
#################################
# Build the SOAP Request Message with the XML Context and Header
@slbsoap_body = (name('configurationInfo')->value([
name('VirtualServerConfigurationSequence')->value([
name('virtualServer')->value([name('IP')->value('222.22.2.1'),
name('Name')->value('VirtualServer-001')])])]));
$xml_result =$slbsoap->call('urn:createVirtualServerWithConfiguration',
@slbsoap_body,$slbsoap_header);
print "\n $xml_result \n";
#### Create a Virtual Server Port ####
######################################
# Build the SOAP Request Message with the XML Context and Header
@slbsoap_body = (name('configurationInfo')->value([
name('VirtualServerPortConfigurationSequence')->value([
name('port')->value([name('NameOrNumber')->value('http') ]),
name('virtualServer')->value([name('IP')->value('222.22.2.1'),
name('Name')->value('VirtualServer-001')])])]));
$xml_result =$slbsoap->call('urn:createVirtualServerPortWithConfiguration',
@slbsoap_body,$slbsoap_header);
print "\n $xml_result \n";
#### Bind the Real Server Port to the Virtual Server Port ####
##############################################################
# Build the SOAP Request Message with the XML Context and Header
@slbsoap_body = (name('realServerPort')->value([
name('ServerPortSequence')->value([
name('port')->value([ name('NameOrNumber')->value('http')]),
name('srvr')->value([ name('Name')->value('RealServer-001')
])])]),
name('virtualServerPort')->value([
name('port')->value([name('NameOrNumber')->value('http')]),
name('srvr')->value([name('Name')->value('VirtualServer-001')])]));
$xml_result =$slbsoap->call('urn:bindRealServerPortsToVipPort',
@slbsoap_body,$slbsoap_header);