#!/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_RFC3736_5_3_InfWDnsSvrOptReply.seq,v 1.4 2008/08/29 06:26:00 ozoe Exp $ ############################################################################### BEGIN{ $V6evalTool::TestVersion = '$Name: DHCPv6_Self_Test_P2_1_0_13 $'; } use strict; use V6evalTool; use lib '../.'; use DHCPv6_common; use Client_pktdesc; dhcpExitNS if ChkFuncSupport('STATELESSDHCP'); #--------------------------------------------------------------# # Initialization variables #--------------------------------------------------------------# my $IF0_NUT = $V6evalTool::NutDef{"Link0_device"}; my $IF0 = "Link0"; my $timeout = 20; vCapture($IF0); #--------------------------------------------------------------# # manuallly address configuration #--------------------------------------------------------------# my $ret = initial_ra_w_ping($IF0,'ra_server2_to_all_addr_assign'); if($ret != 0){ vLogHTML('Global Address of NUT is not assigned by RA!
'); dhcpExitFail; } my $ret = vRemote("dhcp6c.rmt", "start", "inforeq", "dns", "link0=$IF0_NUT"); if($ret != 0) { vLogHTML('Cannot Initialize DHCPv6 Client program.
'); dhcpExitFail; }; #--------------------------------------------------------------# # 1. Capture Information-request #--------------------------------------------------------------# my ($retinf, %inf) = wait_for_information_request($IF0, $timeout); if($retinf != 0){ dhcpExitFail; } #--------------------------------------------------------------# # 2. send Reply to Information-request #--------------------------------------------------------------# $SID_OPTION = "opt_SID_LLT_server1"; $DNS_SVR_OPTION = "opt_DNS_Name_Server1"; #$DNS_LST_OPTION = "opt_DNS_ServerSearchList"; my ($retrep, %rep) = send_reply($IF0, "reply_server1_to_nut", \%inf, ""); if($retrep != 0){ dhcpExitFail; } #ping_test($IF0); my $system=$V6evalTool::NutDef{System}; #---------------------------------------------------------------# # NUT ping any DNS name #---------------------------------------------------------------# my $dns_name = "dhcpv6.test.example.com"; if($system eq 'manual'){ $ret = vRemote("ping6.rmt", "addr=$dns_name", "if=$IF0_NUT"); if($ret != 0){ vLogHTML('Ping6 DNS Name Fail!
'); dhcpExitFail; } #--------------------------------------------------------------# # 3. Capture NS from NUT to DNS Name Server option #--------------------------------------------------------------# my %retStatus = vRecv($IF0, 30, 0, 0, 'ns_nut_to_DNS','dns_squery'); if($retStatus{"status"} != 0 ){ vLogHTML('Cannot get DNS Query message!
'); dhcpExitFail; } if($retStatus{recvFrame} eq 'dns_squery'){ vLogHTML("DNS server received DNS query.
"); }elsif($retStatus{recvFrame} eq 'ns_nut_to_DNS'){ vSend($IF0, 'na_dns_to_nut'); my %ret = vRecv($IF0, 5, 0, 0, 'dns_squery'); if ( $ret{"status"} != 0 ) { vLogHTML('Cannot get DNS Query message!
'); dhcpExitFail; } } }else{ $ret = vRemoteAsync("ping6.rmt", "addr=$dns_name", "if=$IF0_NUT"); if($ret != 0){ vLogHTML('Ping6 DNS Name Fail!
'); vRemoteAsyncWait(); dhcpExitFail; } #--------------------------------------------------------------# # 3. Capture NS from NUT to DNS Name Server option #--------------------------------------------------------------# my %retStatus = vRecv($IF0, 30, 0, 0, 'ns_nut_to_DNS','dns_squery'); if($retStatus{"status"} != 0 ){ vLogHTML('Cannot get DNS Query message!
'); vRemoteAsyncWait(); dhcpExitFail; } if($retStatus{recvFrame} eq 'dns_squery'){ vLogHTML("DNS server received DNS query.
"); }elsif($retStatus{recvFrame} eq 'ns_nut_to_DNS'){ vSend($IF0, 'na_dns_to_nut'); my %ret = vRecv($IF0, 5, 0, 0, 'dns_squery'); if ( $ret{"status"} != 0 ) { vLogHTML('Cannot get DNS Query message!
'); vRemoteAsyncWait(); dhcpExitFail; } } vRemoteAsyncWait(); } vStop($IF0); vClear($IF0); dhcpExitPass; ############################################################################### __END__ =head1 NAME C_RFC3736_5_3_InfWDnsSvrOptReply.seq - Using DNS Recusive Name Server option =head1 TARGET Client =head1 SYNOPSIS =begin html

   C_RFC3736_5_3_InfWDnsSvrOptReply.seq [-tooloption...] 
  -pkt   C_RFC3736_5_3_InfWDnsSvrOptReply.def 
  -tooloption : v6eval tool option


  See Also  DHCPv6.def

=end html =head1 INITIALIZATION =begin html

Network Topology

          NUT(Client) 3ffe:501:ffff:100::abcd            
          |                       
          |                       
Link0   --+--------+------------+---------- 3ffe:501:ffff:100::/64
                   |            |
                   |            |
                   TN(Server)   TN(DNS Server)
		                3ffe:501:ffff:100:200:ff:fe00:3f3e

Verification Points

   The client will request DNS Recursive Name server address. After DHCPv6 
   server assigns the DNS Recursive Name server address to client, the 
   client will query DNS name to DNS Name server.

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
        |       |
        |       | NUT has been configured with IPv6 address,
        |       | and request stateless DHCPv6 service
        |       |
        | ----> |Information-request w/Option Request Option
        | <---- |Reply w/DNS Name Server Option/3ffe:501:ffff:100:200:ff:fe00:a1a1
        |       |
        |       | NUT Ping DHCPv6.TEST.EXAMPLE.COM
        |       |
        | ----> |DNS Standard Query (3*)
        |       |

=end html =head1 JUDGEMENT =begin html


  
  (3*)PASS: NUT transmits SQUERY message.

=end html =head1 TERMINATION =begin html

N/A

=end html =head1 REFERENCE =begin html

  Also see RFC3736


  5.3.  Options Used for Configuration Information

=end html =head1 SEE ALSO =begin html



  perldoc  V6evalTool

=end html