#!/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/rfc3315/S_RFC3315_17.2.2_Creation-TransmissionOfAdvertiseMsgWithaIAOP.seq,v 1.2 2007/02/20 10:39:19 hide 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('ADDRASSIGN') && ChkFuncSupport('DNS')); #--------------------------------------------------------------# # 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\",\"link0=$V6evalTool::NutDef{Link0_device}\",\"startaddr=3ffe:501:ffff:100::10\",\"endaddr=3ffe:501:ffff:100::11\")" ); dhcpSvrInit(\%NUT_Server_Config); vClear($IF0); #############################IA_NA######################################### # send DHCPv6 Solicit Message $CID_OPTION = "opt_CID_LLT_client1"; $IA_NA_OPTION = "opt_IA_NA"; $ElapsedTime_OPTION = "opt_ElapsedTime"; my ($ret1, %sol1) = send_solicit($IF0, "solicit_client1_to_alldhcp", ""); dhcpExitFail() if (0 != $ret1); # wait for DHCPv6 Advertise Message my ($ret2, %adv2) = wait_for_advertise($IF0, 5); dhcpExitFail() if (0 != $ret2); # check options in Advertise Message if (0 != options_exist(\%adv2, ($CMP_CID|$CMP_SID|$CMP_IA_NA))){ dhcpExitError("Required option does not exist"); } # compare CID dhcpExitFail() if (0 != compare_options(\%sol1, \%adv2, ($CMP_CID|$CMP_TRANS_ID))); # check unicast address if ( $adv2{"Frame_Ether.Packet_IPv6.Hdr_IPv6.DestinationAddress"} != $sol1{"Frame_Ether.Packet_IPv6.Hdr_IPv6.SourceAddress"}) { dhcpExitError("DHCPv6 Server not send Advertise message via unicast.") } #--------------------------------------------------------------# # check IAID in IA_NA option #--------------------------------------------------------------# my $option_base = "Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_Advertise.Opt_DHCPv6_IA_NA"; my $option_iaid = $option_base."."."Identifier"; if ( $adv2{"Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_Advertise.Opt_DHCPv6_IA_NA.Identifier"} != $sol1{"Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_Solicit.Opt_DHCPv6_IA_NA.Identifier"}) { dhcpExitError("IAID does not match.") } #--------------------------------------------------------------# # check IA Address option #--------------------------------------------------------------# if (0 != CheckIfExistOP(\%adv2,$CMP_IA_ADD)){ dhcpExitError("Not include expected IA_Address option"); } my $option_base = "Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_Advertise.Opt_DHCPv6_IA_NA.Opt_DHCPv6_IA_Address"; my $option_code = $option_base."."."Code"; my $option_len = $option_base."."."Length"; my $option_addr = $option_base."."."Address"; my $option_plife = $option_base."."."PreferredLifetime"; my $option_vlife = $option_base."."."ValidLifetime"; if(defined $adv2{$option_base}){ vLogHTML(" IA address option Code = $adv2{$option_code}
"); vLogHTML(" IA address option Length = $adv2{$option_len}
"); vLogHTML(" IA address option Address = $adv2{$option_addr}
"); vLogHTML(" IA address option preferredLifetime = $adv2{$option_plife}
"); vLogHTML(" IA address option ValidLifetime = $adv2{$option_vlife}
"); } else{ vLogHTML(" NO IA address option
"); dhcpExitFail; } #------------------------------------------------------------------- vLogHTML("The Messages Exchange is correct
"); #------------------------------------------------------------------- vClear($IF0); vStop($IF0); dhcpExitPass(); #NOTREACHED ######################################################################## __END__ =head1 NAME S_RFC3315_17.2.2_Creation-TransmissionOfAdvertiseMsgWithaIAOP.seq - Respond to the Solicit Message(w/ IA_NA option) =head1 TARGET Server =head1 SYNOPSIS =begin html 
 S_RFC3315_17.2.2_Creation-TransmissionOfAdvertiseMsgWithaIAOP.seq [-tooloption ...]
 -pkt S_RFC3315_17.2.2_Creation-TransmissionOfAdvertiseMsgWithaIAOP.def 
 -tooloption: v6eval tool option
See Also  DHCPv6.def
=head1 INITIALIZATION =begin html
  • Network Topology
          TN(Client1)  
             |
Link0 -------+----------+-------------- 3ffe:501:ffff:100::/64
                        |
                       NUT(Server1)
  • Verification Points
      • Advertise Message
	
    • msg-type
      • 
	ADVERTISE(2)
	
    • transaction-id
      • 
        Same as the Solicit Message
	
    • Server Identifier option
      • 
	Any
	
    • Client Identifier option
      • 
	Same as the Solicit Message
	
    • IA_NA option
      • 

        

      • option-code
        • 
OPTION_IA_NA (3)

      • option-len
        • 
12 + length of IA_NA-options field

      • IAID
        • 
Same as Solisit message

      • T1
        • 
number

      • T2
        • 
number

      • IA_NA-options
        • 
IA Address option
  • Configuration
    • Device Name Device Type I/F Assigned Prefix Link Local Addr MAC Addr
    Server1 NUT Link0 3ffe:501:ffff:100::/64 NUT's Linklocal address NUT's MAC address
    Client1 TN Link0 3ffe:501:ffff:100::/64 fe80::200:ff:fe00:a2a2 00:00:00:00:a2:a2
=end html =head1 TEST PROCEDURE =begin html 
       NUT     TN
        |       | 
        |       | initialize NUT (as a DHCPv6 Server)
        |       | 
        | <---- | Solicit   (w/ IA_NA option)
        | ----> | Advertise (w/ IA_NA option)(*1)
        |       |
=end html =head1 JUDGEMENT 
The Solicit message must exchanged correctly.
(*1) PASS:The Advertise message must include IA_NA option.
=head1 TERMINATION N/A =head1 REFERENCE =begin html 
   see also RFC3315
   17.2.2.  Creation and Transmission of Advertise Messages
=end html =head1 SEE ALSO perldoc V6evalTool =cut