#!/usr/bin/perl
#
# $Copyright$
#
# $TAHI: ct/mip6/CN_DeleteBindingEq.seq,v 1.7.4.8 2002/03/28 01:43:28 akisada Exp $
#

BEGIN { $V6evalTool::TestVersion = '$Name:  $'; }

use V6evalTool;

$IF0 = Link0;

%pktdesc = (
	echorequest			=> '    Send Echo Request from MN to NUT (no Home Address Option)',
	echoreply			=> '    Recv Echo Reply from NUT to MN (no Routing Header)',
	ra_r1				=> '    Send RA from R1',
	ns_r1_global			=> '    Recv NS from NUT to R1',
	na_r1_global			=> '    Send NA from R1 to NUT',
	na_r1_linklocal			=> '    Send NA from R1 to NUT',
	bindingupdate			=> '    Send Binding Update (A bit is not set)',
	delete_binding			=> '    Send Binding Update (Lifetime is not zero)',
	bindingacknowledgement		=> '    Recv Binding Acknowledgement (with Binding Cache entry)',
	bindingacknowledgement2		=> '    Recv Binding Acknowledgement (with Binding Cache entry)',
	bindingacknowledgement_no_bce	=> '    Recv Binding Acknowledgement (no Binding Cache entry)',
	param_problem			=> '    Recv Parameter Problem',
);

vLogHTML("<B>####  ping test  ###############################################</B><BR>");

vCapture($IF0);

if($V6evalTool::NutDef{Type} eq 'host') {
	%ret = vSend($IF0, ra_r1);
	vSleep(3);
}

%ret = vSend($IF0, echorequest);

if($V6evalTool::NutDef{Type} eq 'host') {
	vLogHTML("Wait Echo Reply<BR>");
	%ret = vRecv($IF0, 5, 0, 0, echoreply);
	if($ret{status} != 0) {
		vLogHTML('No response from NUT<BR>');
		vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
		exit $V6evalTool::exitFail;
	}
} else {
	vLogHTML("Wait Neighbor Solicitation or Echo Reply<BR>");
	%ret = vRecv($IF0, 5, 0, 0, ns_r1_global, echoreply);
	if($ret{status} != 0) {
		vLogHTML('No response from NUT<BR>');
		vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
		exit $V6evalTool::exitFail;
	}

	if($ret{recvFrame} eq 'ns_r1_global') {
		%ret = vSend($IF0, na_r1_global);

		vLogHTML("Wait Echo Reply<BR>");
		%ret = vRecv($IF0, 5, 0, 0, echoreply);
		if($ret{status} != 0) {
			vLogHTML('No response from NUT<BR>');
			vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
			exit $V6evalTool::exitFail;
		}
	}
}

if($ret{recvFrame} ne 'echoreply') {
	vLogHTML('Can not receive Echo Reply<BR>');   
	vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
	exit $V6evalTool::exitFail;
}

vLogHTML("<B>####  Binding Update test - Lifetime is zero  ##################</B><BR>");

if($V6evalTool::NutDef{Type} eq 'host') {
	%ret = vSend($IF0, na_r1_linklocal);
} else {
	%ret = vSend($IF0, na_r1_global);
}

vSleep(3);

vClear($IF0);

%ret = vSend($IF0, bindingupdate);

%ret = vRecv($IF0, 5, 0, 0, param_problem);
if($ret{recvFrame} eq 'param_problem') {
	vLogHTML('NUT does not support this function.<BR>');
	exit $V6evalTool::exitNS;
}

vClear($IF0);

%ret = vSend($IF0, delete_binding);

vLogHTML("Wait Binding Acknowledgement<BR>");
%ret = vRecv($IF0, 5, 0, 0, bindingacknowledgement, bindingacknowledgement2, bindingacknowledgement_no_bce);
if($ret{status} != 0) {
	vLogHTML('No response from NUT<BR>');
	vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
	exit $V6evalTool::exitFail;
}

if($ret{recvFrame} eq 'bindingacknowledgement') {
	vLogHTML('NUT sends back Binding Acknowledgement to old care-of address.<BR>');
	vLogHTML('This packet can not reach MN.<BR>');
	vLogHTML('<FONT COLOR="#00FF00">WARN</FONT><BR>');
	exit $V6evalTool::exitWarn;
}

if($ret{recvFrame} eq 'bindingacknowledgement_no_bce') {
	vLogHTML("NUT doesn't use RH.<BR>");
	vLogHTML('<FONT COLOR="#00FF00">WARN</FONT><BR>');
	exit $V6evalTool::exitWarn;
}

if($ret{recvFrame} ne 'bindingacknowledgement2') {
	vLogHTML('Can not receive Binding Acknowledgement<BR>');
	vLogHTML('<FONT COLOR="#FF0000">NG</FONT><BR>');
	exit $V6evalTool::exitFail;
}



my $lifetime = 0;
my $refresh = 0;

if((defined($ret{'Frame_Ether.Packet_IPv6.Hdr_Destination.Opt_MIPBindingAck.Lifetime'})) &&
	(defined($ret{'Frame_Ether.Packet_IPv6.Hdr_Destination.Opt_MIPBindingAck.Refresh'}))) {

	$lifetime = $ret{'Frame_Ether.Packet_IPv6.Hdr_Destination.Opt_MIPBindingAck.Lifetime'};
	$refresh = $ret{'Frame_Ether.Packet_IPv6.Hdr_Destination.Opt_MIPBindingAck.Refresh'};
} else {
	exit $V6evalTool::exitFatal;
}

vLogHTML("<B><FONT COLOR=\"\#00FF00\">Get Binding Acknowledgement !</FONT><B><BR>");
vLogHTML("<B>Lifetime = $lifetime<BR>");
vLogHTML("<B>Refresh  = $refresh<BR>");

if(($lifetime != 0) || ($refresh != 0)) {
	vLogHTML('<FONT COLOR="#00FF00">WARN</FONT><BR>');
	exit $V6evalTool::exitWarn;
}

#open(XXX, "> log.txt");
#
#while(($key, $value) = each %ret) {
#	print XXX "$key\t$value\n";
#}
#
#close(XXX);

vLogHTML(OK);
exit $V6evalTool::exitPass;

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

=head1 NAME

CN_DeleteBindingEq - Lifetime is nonzero(care-of addr == home addr)

=head1 TARGET

=begin html
<PRE>
Host and Router
</PRE>

=end html

=head1 SYNOPSIS

=begin html
<PRE>
<A HREF="./CN_DeleteBindingEq.seq">CN_DeleteBindingEq.seq</A> [-tooloption ...] -pkt <A HREF="./CN_DeleteBindingEq.def">CN_DeleteBindingEq.def</A>
</PRE>
<BLOCKQUOTE>
<PRE>
-tooloption: v6eval tool option
</PRE>
</BLOCKQUOTE>

=end html

=head1 TOPOLOGY

=begin html
<PRE>
                                                      MN'
                                                      |
                                      --------+-------+------- LinkY
                                              |
                                              R2      MN
                                              |       |
Link1 --------+-------        --------+-------+-------+------- LinkX
              |                       |
             NUT                      R1
              |                       |
Link0 --------+-----------------------+-----------------------
</PRE>
<BLOCKQUOTE>
<TABLE BORDER>
<TR>
<TD><TT>Link0</TT></TD>
<TD><TT>3ffe:501:ffff:100::/64</TT></TD>
<TD><TT>&nbsp;</TT></TD>
</TR>
<TR>
<TD><TT>Link1</TT></TD>
<TD><TT>3ffe:501:ffff:101::/64</TT></TD>
<TD><TT>&nbsp;</TT></TD>
</TR>
<TR>
<TD><TT>LinkX</TT></TD>
<TD><TT>3ffe:501:ffff:102::/64</TT></TD>
<TD><TT>home link</TT></TD>
</TR>
<TR>
<TD><TT>LinkY</TT></TD>
<TD><TT>3ffe:501:ffff:103::/64</TT></TD>
<TD><TT>foreign link</TT></TD>
</TR>
<TR>
<TD><TT>R1(Link0)</TT></TD>
<TD><TT>3ffe:501:ffff:100:200:ff:fe00:a0a0</TT></TD>
<TD><TT>&nbsp;</TT></TD>
</TR>
<TR>
<TD><TT>MN</TT></TD>
<TD><TT>3ffe:501:ffff:102:200:ff:fe00:0008</TT></TD>
<TD><TT>home address</TT></TD>
</TR>
<TR>
<TD><TT>MN'</TT></TD>
<TD><TT>3ffe:501:ffff:103:200:ff:fe00:0008</TT></TD>
<TD><TT>care-of address</TT></TD>
</TR>
</TABLE>
</BLOCKQUOTE>

=end html

=head1 TEST PROCEDURE

=begin html
<PRE>
       NUT      R1      MN      MN'
        |       |       |       |
        | <---- |       |       | RA
        |       |       |       |
        | <-------------------- | Echo Request
        | ----> |       |       | NS
        | <---- |       |       | NA
        | --------------------> | Echo Reply (*1)
        |       |       |       |
        | <---- |       |       | NA
        |       |       |       |
        | <-------------------- | Binding Update
        |       |       |       |
        | <------------ |       | Binding Update (Lifetime is not zero)
        | ------------> |       | Binding Acknowledgement (*2)
        |       |       |       |
</PRE>
<P>
<PRE>
1. check routing table - LinkY
        1.1. Host
                1.1.1. R1 sends RA
                1.1.2. MN' sends Echo Request
                1.2.3. Wait Echo Reply
                1.1.4. Receive Echo Reply
</PRE>
<PRE>
        1.2. Router
                1.2.1. MN' sends Echo Request
                1.2.2. Wait Echo Reply or NS
                1.2.3. If NS received then send NA, and wait Echo Reply again
                1.2.4. Receive Echo Reply
</PRE>
<PRE>
2. overwrite NCE on NUT
        2.1. R1 sends NA
</PRE>
<PRE>
3. check Binding Cache entry operation
	3.1. MN' sends Binding Update to Cache a Binding
	3.2. MN' sends Binding Update to Delete a Binding
        3.3. Wait Binding Acknowledgement
        3.4. Receive Binding Acknowledgement
</PRE>

=end html

=head1 JUDGEMENT

=begin html
<PRE>
(*1) PASS: MN' receives Echo Reply
</PRE>
<PRE>
(*2) PASS: MN receives Binding Acknowledgement
</PRE>
<PRE>
     WARN: MN' receives Binding Acknowledgement
</PRE>

=end html

=head1 REFERENCE

=begin html
<PRE>
&lt;draft-ietf-mobileip-ipv6-15.txt&gt;
</PRE>
<PRE>
5.1. Binding Update Option
</PRE>
<PRE>
   <B>If the care-of address for the binding (specified either in an</B>
   <B>Alternate Care-of Address sub-option in the Binding Update option, if</B>
   <B>present, or in the Source Address field in the packet's IPv6 header)</B>
   <B>is equal to the home address of the mobile node, the Binding Update</B>
   <B>option indicates that any existing binding for the mobile node <FONT COLOR="#FF0000">MUST</FONT></B>
   <B>be deleted.</B>  Likewise, if the Lifetime field in the Binding Update
   option is equal to 0, the Binding Update option indicates that any
   existing binding for the mobile node MUST be deleted.  <B>In each of</B>
   <B>these cases, a Binding Cache entry for the mobile node <FONT COLOR="#FF0000">MUST NOT</FONT> be</B>
   <B>created in response to receiving the Binding Update.</B>
</PRE>
<PRE>
8.2. Receiving Binding Updates
</PRE>
<PRE>
   If the Binding Update is valid according to the tests above, then the
   Binding Update is processed further as follows:
</PRE>
<PRE>
    -  If the Lifetime specified in the Binding Update is nonzero and
       the specified Care-of Address is not equal to the home address
       for the binding, then this is a request to cache a binding for
       the mobile node.  If the Home Registration (H) bit is set in the
       Binding Update, the Binding Update is processed according to the
       procedure specified in Section 9.1; otherwise, it is processed
       according to the procedure specified in Section 8.3.
</PRE>
<PRE>
    -  <B>If the Lifetime specified in the Binding Update is zero or the</B>
       <B>specified Care-of Address matches the home address for the</B>
       <B>binding, then this is a request to delete the mobile node's</B>
       <B>cached binding.</B>  If the Home Registration (H) bit is set in the
       Binding Update, the Binding Update is processed according to the
       procedure specified in Section 9.2; otherwise, it is processed
       according to the procedure specified in Section 8.4.
</PRE>
<PRE>
8.4. Requests to Delete a Binding
</PRE>
<PRE>
   When a node receives a Binding Update, it MUST validate it and
   determine the type of Binding Update according to the steps described
   in Section 8.2.  <B>This section describes the processing of a valid</B>
   <B>Binding Update that requests a node to delete a mobile node's binding</B>
   <B>from its Binding Cache, for which the Home Registration (H) bit is</B>
   <B>not set in the Binding Update.  In this case, the receiving node <FONT COLOR="#FF0000">MUST</FONT></B>
   <B>delete any existing entry in its Binding Cache for this mobile node.</B>
</PRE>

=end html

=head1 SEE ALSO

=begin html
<PRE>
<A HREF="./CN_Common.def">CN_Common.def</A>
</PRE>

=end html

=cut