#!/usr/bin/perl
#
# $Copyright$
#
# $TAHI: ct/mip6/CN_DeleteBindingZero.seq,v 1.8.4.6 2002/01/29 05:39:44 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 zero)',
	bindingacknowledgement		=> '    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, bindingacknowledgement, bindingacknowledgement_no_bce);
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, 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_no_bce') {
	vLogHTML('NUT sends back Binding Acknowledgement, directly.<BR>');
	vLogHTML('This packet may not reach MN.<BR>');
	vLogHTML('<FONT COLOR="#00FF00">WARN</FONT><BR>');
	exit $V6evalTool::exitWarn;
}

if($ret{recvFrame} ne 'bindingacknowledgement') {
	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_DeleteBindingZero - Lifetime is zero(care-of addr != home addr)

=head1 TARGET

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

=end html

=head1 SYNOPSIS

=begin html
<PRE>
<A HREF="./CN_DeleteBindingZero.seq">CN_DeleteBindingZero.seq</A> [-tooloption ...] -pkt <A HREF="./CN_DeleteBindingZero.def">CN_DeleteBindingZero.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:0004</TT></TD>
<TD><TT>home address</TT></TD>
</TR>
<TR>
<TD><TT>MN'</TT></TD>
<TD><TT>3ffe:501:ffff:103:200:ff:fe00:0004</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 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>
   If the care-of address for the binding (specified either in an
   Alternate Care-of Address sub-option in the Binding Update option, if
   present, or in the Source Address field in the packet's IPv6 header)
   is equal to the home address of the mobile node, the Binding Update
   option indicates that any existing binding for the mobile node MUST
   be deleted.  <B>Likewise, if the Lifetime field in the Binding Update</B>
   <B>option is equal to 0, the Binding Update option indicates that any</B>
   <B>existing binding for the mobile node <FONT COLOR="#FF0000">MUST</FONT> be deleted.  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