#!/usr/bin/perl # # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 # Yokogawa Electric Corporation. # All rights reserved. # # Redistribution and use of this software in source and binary # forms, with or without modification, are permitted provided that # the following conditions and disclaimer are agreed and accepted # by the user: # # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in # the documentation and/or other materials provided with # the distribution. # # 3. Neither the names of the copyrighters, the name of the project # which is related to this software (hereinafter referred to as # "project") nor the names of the contributors may be used to # endorse or promote products derived from this software without # specific prior written permission. # # 4. No merchantable use may be permitted without prior written # notification to the copyrighters. # # 5. The copyrighters, the project and the contributors may prohibit # the use of this software at any time. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHTERS, THE PROJECT AND # CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING # BUT NOT LIMITED THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS # FOR A PARTICULAR PURPOSE, ARE DISCLAIMED. IN NO EVENT SHALL THE # COPYRIGHTERS, THE PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, # INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING # IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. # # $TAHI: dhcpv6.p2/rfc3736/S_RFC3736_5.2_SLDHCPInterID.seq,v 1.4 2008/08/01 09:49:39 ozoe Exp $ ######################################################################## BEGIN { $V6evalTool::TestVersion = '$Name: DHCPv6_Self_Test_P2_1_0_13 $'; } use strict; use V6evalTool; use lib '../.'; use DHCPv6_common; use Server_pktdesc; dhcpExitNS if ChkFuncSupport('STATELESSDHCP'); dhcpExitNS if ChkFuncSupport('INTERFACEID'); #--------------------------------------------------------------# # Initialization #--------------------------------------------------------------# vLogHTML('==== NUT Initialization ====
'); my $IF0 = "Link0"; #initial NUT config parameters, my %NUT_Server_Config = ( 'if_nut0'=> "$V6evalTool::NutDef{Link0_device}", 'init_opcode' => "vRemote(\"dhcp6s.rmt\", \"start\",\"dns=3ffe:501:ffff:100:200:ff:fe00:3f3e\",\"stateless\",\"link0=$V6evalTool::NutDef{Link0_device}\")" ); dhcpSvrInitS(\%NUT_Server_Config); vClear($IF0); # set Options # 1 send DHCPv6 Information-request Message $CID_OPTION = "opt_CID_LLT_client1"; $OptionRequest_OPTION = "opt_ORO_dns_servers"; $ElapsedTime_OPTION = "opt_ElapsedTime"; my($ret1, %rfsol1) = send_relay_forward($IF0,"relayforward_infomationrequest_client1_to_alldhcp_send_IID"); if (0 != $ret1){ dhcpExitFail(); } # Send the Relay-reply message(Reply) my ($ret2, %rrrep2) = wait_for_relay_reply_reply($IF0,5,"relay_reply_nut_relay"); dhcpExitFail if(0 != $ret2); if(0!= options_exist(\%rrrep2,$CMP_IID)){ dhcpExitError("The expected Interface-id option can not be found."); } my $option_length = $rrrep2{"Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_RelayReply.Opt_DHCPv6_IID.Length"}; if($option_length == 0){ vLogHTML('IID option length is zero.
'); dhcpExitFail; } dhcpExitError("NG: The interface ID is not correct in Relay-reply Message.
") if (0 !=compare_options(\%rrrep2,\%rfsol1,$CMP_IID)); #------------------------------------------------------------------- vLogHTML("The Message exchange is correct
"); #------------------------------------------------------------------- vClear($IF0); vStop($IF0); dhcpExitPass(); #NOTREACHED ######################################################################## __END__ =head1 NAME S_RFC3736_5.2_SLDHCPInterID.seq - Checking Interface-id option in Reply message =head1 TARGET Server =head1 SYNOPSIS =begin html 
 S_RFC3736_5.2_SLDHCPInterID.seq [-tooloption ...]
 -pkt S_RFC3736_5.2_SLDHCPInterID.def 
 -tooloption: v6eval tool option
See Also  DHCPv6.def
=head1 INITIALIZATION =begin html 
                TN(Client1)
                   |
Link1 -------------+-------+-------------- 3ffe:501:ffff:101::/64
                           |
                         TN (Relay1)
                           |
Link0 ---------------------+---------+--- 3ffe:501:ffff:100::/64
                                     |
                                 NUT(Server1)
=end html =head1 TEST PROCEDURE =begin html 
       NUT     TN
        |       | 
        |       | initialize NUT (as a DHCPv6 Server)
        |       | 
        | <---- | Relay-Forward(Information-request w/interface-id option)
        | ----> | Relay-Reply (w/Interface-id option) (*1)
        |       | 
        |       |
=end html =head1 JUDGEMENT 
(*1)PASS:  NUT returns the Relay-Reply message with Interface-id option.
=head1 TERMINATION N/A =head1 REFERENCE =begin html 
   see also RFC3315
   22.18. Interface-Id Option

   see also RFC3736
   5.2. Options Required for Stateless DHCP Service
=end html =head1 SEE ALSO perldoc V6evalTool =cut