#!/usr/bin/perl
#
#$Copyright$
#
#$Id: C_RFC3633_11_1_AdvWStatusCodeNoPrefixAvail.seq,v 1.10 2005/12/09 08:25:03 zhang Exp $
###############################################################################
BEGIN{
	$V6evalTool::TestVersion = '$Name:  $';
}
use V6evalTool;
use DHCPv6_common;
use Client_pktdesc;

dhcpExitNS  if ChkFuncSupport('PD');
#--------------------------------------------------------------#
# Initialization variables
#--------------------------------------------------------------#
$IF0_NUT = $V6evalTool::NutDef{Link0_device};
$IF0 = Link0;
#--------------------------------------------------------------#
# Initialize DHCPv6 Client
#--------------------------------------------------------------#
my $ret = vRemote("dhcp6c.rmt", "start", "prefix", "link0=$IF0_NUT");
if($ret != 0){
	vLogHTML('<FONT COLOR="#FF0000">Cannot Initialize DHCPv6 Client program.</FONT><BR>');
	dhcpExitFail;
};
vCapture($IF0);
#--------------------------------------------------------------#
#1.  Wait until Solicit arrives 
#--------------------------------------------------------------#
my ($retsol,%sol) = wait_for_solicit($IF0,30) ;
if($retsol != 0){
	dhcpExitFail;
}
vClear($IF0);
#--------------------------------------------------------------#
# 2. send Advertise message 
#--------------------------------------------------------------#
#$CID_OPTION = "opt_CID_LLT_nut";
$SID_OPTION = "opt_SID_LLT_server1";
#$IA_PD_OPTION = "opt_IA_PD_Status";
$IA_PD_OPTION = "opt_IA_PD_NoAvail";
#$StatusCode_OPTION = "opt_Prefix_StatusCode ";
my ($retadv, %adv) = send_advertise($IF0, "advertise_server1_to_nut", \%sol, "-DIA_PREFIX_STATUSCODE=6");
if($retadv != 0){
	dhcpExitFail;
}
#--------------------------------------------------------------#
# 3. wait for Request message 
#--------------------------------------------------------------#
#my ($retreq, %req) = wait_for_request($IF0,30);
#if($retreq !=0){
#	dhcpExitFail;
#}
#vClear($IF0);
#--------------------------------------------------------------#
# 4.send Reply  message with status of NoPrefixAvail
#--------------------------------------------------------------#
#$IA_PD_OPTION = "opt_IA_PD_Status";
#$IA_PD_OPTION = "opt_IA_PD_config";
#my ($retrep, %rep) = send_reply($IF0, "reply_server1_to_nut", \%req, "-DIA_PREFIX_STATUSCODE=6");
#if($retrep != 0){
#	dhcpExitFail;
#}
#--------------------------------------------------------------#
# 5. wait for retransmitted Solicit with IA_PD options
#--------------------------------------------------------------#
my ($retsol,%sol) = wait_for_solicit($IF0,30) ;
if($retsol != 0){
	dhcpExitFail;
}
dhcpExitpass;

###############################################################################
__END__

=head1 NAME 

  C_RFC3633_11_1_AdvWStatusCodeNoPrefixAvail.seq - Test when receiving Advertise with status code of NoPrefixAvail
  

=head1 TARGET

  Client

=head1 SYNOPSIS

=begin html
<PRE>
  <A HREF="./C_RFC3633_11_1_AdvWStatusCodeNoPrefixAvail.seq"> C_RFC3633_11_1_AdvWStatusCodeNoPrefixAvail.seq</A> [-tooloption...] -pkt  <A HREF="./C_RFC3633_11_1_AdvWStatusCodeNoPrefixAvail.def"> C_RFC3633_11_1_AdvWStatusCodeNoPrefixAvail.def</A> -tooloption : v6eval tool option
<BR>
  See Also <A HREF="./DHCPv6.def"> DHCPv6.def </A> 
</PRE>

=end html

=head1 INITIALIZATION

=begin html
    <ul>
    <li><STRONG>Network Topology</STRONG></li> 
    <PRE>
          NUT(Requesting router)
          |           fe80::20d:56ff:fe0e:10f7
          |                        
Link0   --+--------+------------------------ 3ffe:501:ffff:101::/64
                   |
                   |          fe80::211:9ff:feb0:eb6c
                   TN(Delegating router) 3ffe:501:ffff:101:211:9ff:feb0:eb6c/64
    </PRE>
    <li><STRONG>Verification Points</STRONG></li><br>
    <PRE>
    Retransmission <br>
    <ul>
    <li>msg-type</li>
    <B>SOLICIT(1)</B>
    <li>transaction-id</li>
    <B>Any non-zero number</B>
    </ul>
    </PRE>
    <li><STRONG>Configurations</STRONG></li><br>
    <PRE>
    <TABLE BORDER="1">
    <TR>
    <TD><TT>Device Name</TT></TD>
    <TD><TT>Device Type</TT></TD>
    <TD><TT>Interface</TT></TD>
    <TD><TT>Assigned Prefix</TT></TD>
    <TD><TT>Link Local Addr</TT></TD>
    <TD><TT>MAC Addr</TT></TD>
    <TD><TT>IA_PD Option</TT></TD>
    </TR>
    <TR>
    <TD><TT>Client</TT></TD>
    <TD><TT>NUT</TT></TD>
    <TD><TT>Link0</TT></TD>
    <TD><TT>3ffe:501:ffff:101::/64</TT></TD>
    <TD><TT>fe80::20d:56ff:fe0e:10f7/64</TT></TD>
    <TD><TT>00:0d:56:0e:10:f7</TT></TD>
    <TD><TT>Yes</TT></TD>
    </TR>
    <TR>
    <TD><TT>Server</TT></TD>
    <TD><TT>TN</TT></TD>
    <TD><TT>Link0</TT></TD>
    <TD><TT>3ffe:501:ffff:101::/64</TT></TD>
    <TD><TT>fe80::211:9ff:feb0:eb6c/64</TT></TD>
    <TD><TT>00:11:09:b0:eb:6c</TT></TD>
    <TD><TT>Yes</TT></TD>
    </TR>
    </TABLE>
    </PRE>
    </ul>

=end html

=head1 TEST PROCEDURE

=begin html
<PRE>
<BR>
       NUT      TN
        |       | 
        |       |Initialize NUT(as a Requesting router)
        | ----> |<B>Solicit</B>(W/IA_PD option) (1*)
        | <---- |<B>Advertise</B>(W/IA_PD option/Status code/NoPrefixAvail) (2*)
        | ----> |<B>Solicit</B> (3*)
        |       |
<BR>
  (1*)NUT sends Solicit with IA_PD option.
  (2*)As a Delegating router, TN transmits Advertise with status code of NoPrefxiAvail.
  (3*)NUT should retransmit Solicit.
<BR>  
</PRE>

=end html

=head1 JUDGEMENT

=begin html
<PRE>
  If content of retransmitted Solicit(1*) conforms to Verification Points, test will <B>PASS</B>.
  Or else, <B>FAIL</B>.
</PRE>

=end html

=head1 TERMINATION

=begin html
<PRE>
  N/A
</PRE>

=end html

=head1 REFERENCE

=begin html
<PRE>
  Also see RFC3633
<BR>
  11.1.  Requesting router behavior
<BR>
  From line 589 to line 590.
<BR>
</PRE>

=end html

=head1 SEE ALSO

=begin html
<PRE>
<BR>
  perldoc  V6evalTool
<BR>
</PRE>

=end html