#!/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_SLDHCPSID.seq,v 1.2 2007/02/20 05:20:38 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('STATELESSDHCP');
#--------------------------------------------------------------#
# 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);
# 1 send DHCPv6 Information-request Message
$CID_OPTION = "opt_CID_LLT_client1";
$OptionRequest_OPTION = "opt_ORO_dns_servers";
$ElapsedTime_OPTION = "opt_ElapsedTime";
my ($ret1, %ireq1) = send_information_request($IF0, "information_request_client1_to_alldhcp", undef, "");
if (0 != $ret1){
dhcpExitFail();
}
# wait for DHCPv6 Reply Message
my ($ret2, %rep2) = wait_for_reply($IF0, 5);
if (0 != $ret2){
dhcpExitFail();
}
# 2 check Options
if (0 != options_exist(\%rep2, ($CMP_SID))){
dhcpExitError("The expected option is not exist
");
}
# compare Options
#if (0 != compare_options(\%ireq1, \%rep2, ($CMP_CID|$CMP_TRANS_ID))){
# dhcpExitError("The value of option is different from expected value.
");
#}
# Check the format of SID option
my $length = $rep2{"Frame_Ether.Packet_IPv6.Upp_UDP.Udp_DHCPv6_Reply.Opt_DHCPv6_SID.Length"};
vLogHTML(" Length of DUID is $length
");
if($length == 0){
vLogHTML('DUID is not set.
');
dhcpExitFail;
}
#-------------------------------------------------------------------
vLogHTML("The Server ID Option in Reply Message is correct
");
#-------------------------------------------------------------------
vClear($IF0);
vStop($IF0);
dhcpExitPass();
#NOTREACHED
########################################################################
__END__
=head1 NAME
S_RFC3736_5.2_SLDHCPSID.seq - Checking Server ID option in Reply message
=head1 TARGET
Server
=head1 SYNOPSIS
=begin html
S_RFC3736_5.2_SLDHCPSID.seq [-tooloption ...]
-pkt S_RFC3736_5.2_SLDHCPSID.def
-tooloption: v6eval tool option
See Also DHCPv6.def
=head1 INITIALIZATION
=begin html
TN(Client1)
|
Link0 -------+-----------+--------------- 3ffe:501:ffff:100::/64
|
NUT(Server1)
The Server Identifier option is used to carry a DUID (see section 9)
identifying a server between a client and a server. The format of
the Server Identifier 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_SERVERID | option-len |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
. .
. DUID .
. (variable length) .
. .
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
option-code OPTION_SERVERID (2).
option-len Length of DUID in octets.
DUID The DUID for the server.
Option Request option in the Information-request message
option-code
OPTION_ORO(6)
option-len
Any
requested-option-code-1
OPTION_DNS_SERVERS(23)
| 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)
| |
| <---- | Information-request(w/ Option Request option)
| ----> | Reply (w/ Server ID option) (*1)
| |
| |
=end html
=head1 JUDGEMENT
(*1)PASS: NUT returns the Reply message with Server ID option.
=head1 TERMINATION
N/A
=head1 REFERENCE
=begin html
see also RFC3315
22.3. Server Identifier Option
see also RFC3736
5.2. Options Required for Stateless DHCP Service
=end html
=head1 SEE ALSO
perldoc V6evalTool
=cut