################################################################################
#                                                                              #
#    Copyright 1997 - 2020 by IXIA  Keysight                                   #
#    All Rights Reserved.                                                      #
#                                                                              #
################################################################################



################################################################################

#                                                                              #

#                                LEGAL  NOTICE:                                #

#                                ==============                                #

# The following code and documentation (hereinafter "the script") is an        #

# example script for demonstration purposes only.                              #

# The script is not a standard commercial product offered by Ixia and have     #

# been developed and is being provided for use only as indicated herein. The   #

# script [and all modifications enhancements and updates thereto (whether      #

# made by Ixia and/or by the user and/or by a third party)] shall at all times #

# remain the property of Ixia.                                                 #

#                                                                              #

# Ixia does not warrant (i) that the functions contained in the script will    #

# meet the users requirements or (ii) that the script will be without          #

# omissions or error-free.                                                     #

# THE SCRIPT IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND AND IXIA         #

# DISCLAIMS ALL WARRANTIES EXPRESS IMPLIED STATUTORY OR OTHERWISE              #

# INCLUDING BUT NOT LIMITED TO ANY WARRANTY OF MERCHANTABILITY AND FITNESS FOR #

# A PARTICULAR PURPOSE OR OF NON-INFRINGEMENT.                                 #

# THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SCRIPT  IS WITH THE #

# USER.                                                                        #

# IN NO EVENT SHALL IXIA BE LIABLE FOR ANY DAMAGES RESULTING FROM OR ARISING   #

# OUT OF THE USE OF OR THE INABILITY TO USE THE SCRIPT OR ANY PART THEREOF     #

# INCLUDING BUT NOT LIMITED TO ANY LOST PROFITS LOST BUSINESS LOST OR          #

# DAMAGED DATA OR SOFTWARE OR ANY INDIRECT INCIDENTAL PUNITIVE OR              #

# CONSEQUENTIAL DAMAGES EVEN IF IXIA HAS BEEN ADVISED OF THE POSSIBILITY OF    #

# SUCH DAMAGES IN ADVANCE.                                                     #

# Ixia will not be required to provide any software maintenance or support     #

# services of any kind (e.g. any error corrections) in connection with the     #

# script or any part thereof. The user acknowledges that although Ixia may     #

# from time to time and in its sole discretion provide maintenance or support  #

# services for the script any such services are subject to the warranty and    #

# damages limitations set forth herein and will not obligate Ixia to provide   #

# any additional maintenance or support services.                              #

#                                                                              #

################################################################################



################################################################################

#                                                                              #

# Description:                                                                 #

# The script creates and configures 2 DHCP stacks.							   #

# Set/Get multivalue parameters.							                   #

# Start/Stop protocols.                                                        #

# Module:                                                                      #

#    The sample was tested on an FlexAP10G16S module.                          #

################################################################################



             



$py_ixTclServer = "localhost";

$py_ixTclPort	= 8009;



#-----------------------------------------------------------------------------------------------------------------------------------#



#------------------------------------------------Import Lib and Other pl packages---------------------------------------------------# 

use IxNetwork;

#use Time::Seconds;

#use strict;

#-----------------------------------------------------------------------------------------------------------------------------------#





print "\n Create an instance of the IxNetwork class.";

$ixNet 	= new IxNetwork();





print "\n Connecting to the Client.\n";

$ixNet->connect($py_ixTclServer, '-port', $py_ixTclPort, '-version', '7.30');





print "\n Clear the configuration.";

$asyncHandle = $ixNet->setAsync()->execute('newConfig');

$ixNet->wait($asyncHandle);





print "\n\n Adding 2 virtual ports.";

$root 	= $ixNet->getRoot();

$vport1 	= $ixNet->add($root, 'vport', '-name', 'DHCP1');

$vport2 	= $ixNet->add($root, 'vport', '-name', 'DHCP2');

$ixNet->commit();



@vPorts = $ixNet->getList($root, 'vport');

print "\n\t\tvPorts: ",@vPorts,"\n";

$vportTx 	= @vPorts[0];

$vportRx 	= @vPorts[1];





print "\n Adding 2 topologies.";

$ixNet->add($root, 'topology');

$ixNet->add($root, 'topology');

$ixNet->commit();



@topologies = $ixNet->getList($root, 'topology');

print "\n\t\tTopology: ",@topologies,"\n";

$topo1 	= @topologies[0];

$topo2 	= @topologies[1];





print "\n Adding deviceGroups.";

$ixNet->add($topo1, 'deviceGroup');

$ixNet->add($topo2, 'deviceGroup');

$ixNet->commit();



@t1devices 	= $ixNet->getList($topo1, 'deviceGroup');

@t2devices 	= $ixNet->getList($topo2, 'deviceGroup');

print "\n\t\tDeviceGroup: ",@t1devices," for ",$topo1,"\n";

print "\n\t\tDeviceGroup: ",@t2devices," for ",$topo2,"\n";



$t1dev1 	= @t1devices[0];

$t2dev1 	= @t2devices[0];





print "\n Assign vports to topologies.";

$ixNet->setAttribute($topo1, '-vports', $vportTx);

$ixNet->setAttribute($topo2, '-vports', $vportRx);

$ixNet->commit();





print "\n Change topologies and and device group names.";

$ixNet->setAttribute($topo1, '-name',  'Client Topology');

$ixNet->setAttribute($topo2, '-name',  'Server Topology');

$ixNet->setAttribute($t1dev1, '-name', 'Client Device Group');

$ixNet->setAttribute($t2dev1, '-name', 'Server Device Group');





print "\n Set Device Groups multipliers.";

$ixNet->setAttribute($t1dev1, '-multiplier', 1);

$ixNet->setAttribute($t2dev1, '-multiplier', 10);

$ixNet->commit();





print "\n Adding ethernet layer.";

$ixNet->add($t1dev1, 'ethernet');

$ixNet->add($t2dev1, 'ethernet');

$ixNet->commit();



@mac1 	= $ixNet->getList($t1dev1, 'ethernet');

@mac2 	= $ixNet->getList($t2dev1, 'ethernet');





print "\n Adding DHCPv4 server and DHCPv4 client layers. DHCPv4 server goes over IPv4 layer.";

$ixNet->add($mac1[0], 'ipv4');

$ixNet->commit();



@ipv4T		= $ixNet->getList($mac1[0], 'ipv4');

$ipv4	 	= $ipv4T[0];



$ixNet->add($ipv4, 'dhcpv4server');

$ixNet->commit();



@serverv4T 	= $ixNet->getList($ipv4, 'dhcpv4server');

$serverv4	= $serverv4T[0];



$ixNet->add($mac2[0], 'dhcpv4client');

$ixNet->commit();



@clientv4T 	= $ixNet->getList($mac2[0], 'dhcpv4client');

$clientv4 	= $clientv4T[0];





print "\n Set the IP address of the DHCPv4 Server.";

$multivalue_ipAddress	= $ixNet->getAttribute($ipv4, '-address');

@temp2					= $ixNet->setAttribute($multivalue_ipAddress, '-pattern', 'counter');

$ixNet->commit();



@multivalue_ipAddress_counter	= $ixNet->getList($multivalue_ipAddress, 'counter');

$multivalue_ipAddress_start 	= $ixNet->setAttribute($multivalue_ipAddress_counter[0], '-start', '22.1.1.1');

$ixNet->commit();





print "\n Set IP layer to not resolve gateway IP.";

$multivalue_gateway		= $ixNet->getAttribute($ipv4, '-resolveGateway');



@multivalue_gateway_sv			= $ixNet->getList($multivalue_gateway, 'singleValue');

$multivalue_gateway_sv_value 	= $ixNet->setAttribute($multivalue_gateway_sv[0], '-value', 'false');

$ixNet->commit();





print "\n Set start IP address to be leased by the DHCPv4 Server.";

@serverSess 			= $ixNet->getList($serverv4, 'dhcp4ServerSessions');

$multivalue_poolAddress	= $ixNet->getAttribute($serverSess[0], '-ipAddress');



@multivalue_poolAddress_counter	= $ixNet->getList($multivalue_poolAddress, 'counter');

$multivalue_poolAddress_start 	= $ixNet->setAttribute($multivalue_poolAddress_counter[0], '-start', '22.1.1.100');

$ixNet->commit();





print "\n Set pool size.";

$multivalue_poolSize	= $ixNet->getAttribute($serverSess[0], '-poolSize');



@multivalue_poolSize_sv			= $ixNet->getList($multivalue_poolSize, 'singleValue');

$multivalue_poolSize_sv_value	= $ixNet->setAttribute($multivalue_poolSize_sv[0], '-value', '10');

$ixNet->commit();





$chassis1  = '10.205.15.62';

$card1     = '2';

$port1     = '9';



$card2     = '2';

$port2     = '10';



$chassis = $ixNet->add($ixNet->getRoot().'availableHardware', 'chassis', '-hostname', $chassis1);

$ixNet->commit();

@chassisItems = $ixNet->remapIds($chassis);

$chassis = $chassisItems[0];





print "\n\n Assign hardware ports to virtual ports.";

$ixNet->setAttribute($vport1, '-connectedTo', $chassis.'/card:'.$card1.'/port:'.$port1);

$ixNet->setAttribute($vport2, '-connectedTo', $chassis.'/card:'.$card2.'/port:'.$port2);

$ixNet->commit();





print "\n\n Start All Protocols.";

$ixNet->execute('startAllProtocols');

sleep(10);





print "\n\n DHCPv4 Client Learned Information: \n";

@addresses	= $ixNet->getAttribute($clientv4, '-discoveredAddresses');

print join("\n ", @addresses);





print "\n\n Stop the DHCP Server.";

$ixNet->execute('stop', $mac1[0]);

sleep(10);





print "\n\n Stop the DHCP Client.";

$ixNet->execute('stop', $mac2[0]);

sleep(10);





print "\n\n Clear the configuration.";

$asyncHandle = $ixNet->setAsync()->execute('newConfig');

$ixNet->wait($asyncHandle);





print "\n\n Disconnect from the IxNetwork Client.\n";

$ixNet->disconnect();