#!/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. # #$Id: C_RFC3315_22_6_IAAddrOpt.seq,v 1.4 2008/11/14 13:10:02 ozoe Exp $ ############################################################################### BEGIN{ $V6evalTool::TestVersion = '$Name: DHCPv6_Self_Test_P2_1_0_14 $'; } use strict; use V6evalTool; use lib '../.'; use DHCPv6_common; use Client_pktdesc; dhcpExitNS if(ChkFuncSupport('ADDRASSIGN') && ChkFuncSupport('DNS')); #--------------------------------------------------------------# # Initialization variables #--------------------------------------------------------------# my $IF0_NUT = $V6evalTool::NutDef{"Link0_device"}; my $IF0 = "Link0"; my ($plifetime, $vlifetime) = (100, 200); my ($time1, $time2) = (0.5*$plifetime, 0.8*$plifetime); my $timeout = $time1 + 5; vCapture($IF0); #--------------------------------------------------------------# # Initialize DHCPv6 Client #--------------------------------------------------------------# my $ret = initial_ra_w_ping($IF0,'ra_server2_to_all'); if($ret == 0){ vLogHTML('Global Address of NUT is assigned by RA!
'); dhcpExitFail; } $ret = vRemote("dhcp6c.rmt", "start", "iana", "iaid=111111", "link0=$IF0_NUT"); if($ret != 0) { vLogHTML('Cannot Initialize DHCPv6 Client program.
'); dhcpExitFail; }; #dhcpCltStart(); #--------------------------------------------------------------# #1. Wait until Solicit arrives #--------------------------------------------------------------# my ($retsol,%sol) = wait_for_solicit($IF0,30); if($retsol != 0){ dhcpExitFail; } #vClear($IF0); #--------------------------------------------------------------# #2. Send Advertise to reply to Solicit #--------------------------------------------------------------# $SID_OPTION = "opt_SID_LLT_server1"; $IA_NA_OPTION = "opt_IA_NA_Addr_woStatus"; my ($retadv, %adv) = send_advertise($IF0, "advertise_server1_to_nut", \%sol, ""); if($retadv != 0){ dhcpExitFail; } #--------------------------------------------------------------# #3. Wait until Request arrives #--------------------------------------------------------------# my ($retreq, %req) = wait_for_request($IF0,30); if($retreq != 0){ dhcpExitFail; } vClear($IF0); #--------------------------------------------------------------# #4. send Reply message #--------------------------------------------------------------# $IA_NA_OPTION = "opt_IA_NA_Addr"; $StatusCode_OPTION = "opt_StatusCode"; my ($retrep, %rep) = send_reply($IF0, "reply_server1_to_nut", \%req, "-DIA_NA_TIME1=$time1 -DIA_NA_TIME2=$time2 -DIA_ADDR_PLTIME=$plifetime -DIA_ADDR_VLTIME=$vlifetime "); if($retrep != 0){ dhcpExitFail; } # wait for DAD completion vRecv($IF0, 3, 0, 0, 'dadns_nutga'); vSleep(3); #this line should be deleted? my $ret = ping_test($IF0); if($ret != 0){ dhcpExitFail; } vClear($IF0); #--------------------------------------------------------------# #5. Wait until retransmitted Request arrives #--------------------------------------------------------------# my ($retren,%ren) = wait_for_renew($IF0, $timeout); if($retren != 0){ dhcpExitFail; } #--------------------------------------------------------------# # determine if the IA Address option exists #--------------------------------------------------------------# if (0 != suboptions_exist(\%ren,$CMP_IA_ADD)){ dhcpExitError("Not include expected IA_Address option"); } my $option_base = "Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_Renew.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 $ren{$option_base}){ vLogHTML(" IA address option Code = $ren{$option_code}
"); vLogHTML(" IA address option Length = $ren{$option_len}
"); vLogHTML(" IA address option Address = $ren{$option_addr}
"); vLogHTML(" IA address option preferredLifetime = $ren{$option_plife}
"); vLogHTML(" IA address option ValidLifetime = $ren{$option_vlife}
"); } else{ vLogHTML(" NO IA address option
"); dhcpExitFail; } vClear($IF0); vStop($IF0); dhcpExitPass; ##NEEDCHANGE ############################################################################### __END__ =head1 NAME C_RFC3315_22_6_IAAddrOpt.seq - Check the Format of IA Address option =head1 TARGET Client =head1 SYNOPSIS =begin html 
   C_RFC3315_22_6_IAAddrOpt.seq [-tooloption...] 
  -pkt  C_RFC3315_22_6_IAAddrOpt.def 
  -tooloption : v6eval tool option
  See Also  DHCPv6.def
=end html =head1 INITIALIZATION =begin html
  • Network Topology
    •           NUT(Client)
          |           
          |                        
Link0   --+--------+------------------------ 3ffe:501:ffff:100::/64
                   |
                   |          
                   TN(Server)
  • Verification Points

    •    The format of the IA Address option is:
    
       0                   1                   2                   3
       0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |          OPTION_IAADDR        |          option-len           |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                                                               |
      |                         IPv6 address                          |
      |                                                               |
      |                                                               |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                      preferred-lifetime                       |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                        valid-lifetime                         |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      .                                                               .
      .                        IAaddr-options                         .
      .                                                               .
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 
    
      option-code   OPTION_IAADDR (5). 
    
      option-len    24 + length of IAaddr-options field. 
    
      IPv6 address  An IPv6 address. 
    
      preferred-lifetime The preferred lifetime for the IPv6 address in
                    the option, expressed in units of seconds. 
    
      valid-lifetime The valid lifetime for the IPv6 address in the
                    option, expressed in units of seconds. 
    
      IAaddr-options Options associated with this address.
  • Configurations


    • Device Name Device Type Interface Assigned Prefix Link Local Addr MAC Addr
    Client NUT Link0 3ffe:501:ffff:100::/64 NUT's Linklocal address NUT's MAC address
    Server TN Link0 3ffe:501:ffff:100::/64 fe80::200:ff:fe00:a1a1 00:00:00:00:a1:a1
=end html =head1 TEST PROCEDURE =begin html 
  


       NUT      TN
        |       | 
        |       |Initialize NUT (as a DHCPv6 Client)
        |       | 
        | ----> |Solicit  
        | <---- |Advertise 
        | ----> |Request 
        | <---- |Reply w/IA_NA option
        | ----> |Renew w/IA_NA option/IAAddress option (5*)          
        |       |
=end html =head1 JUDGEMENT =begin html 
  (5*)PASS: NUT transmits Renew with IA_NA option which carries IAAddress option.
=end html =head1 TERMINATION =begin html 
  N/A
=end html =head1 REFERENCE =begin html 
  Also see RFC3315


  22.6. IA Address Option
=end html =head1 SEE ALSO =begin html 


  perldoc  V6evalTool
=end html