#!/usr/bin/perl
#
# $Copyright$
# $TINY: confirmPing.seq,v 1.9 2002/03/05 02:59:11 masaxmasa Exp $
# 

########################################################################
BEGIN { $V6evalTool::TestVersion = '$Name:  $ '; }
use V6evalTool;
use PMTU;

$IF=Link0;
$WAIT_TO_FIN_DAD=5;

%pktdesc = (
    echo_request_64    => 'TN ---ICMP Echo Request (64Byte)----> NUT',
    echo_reply_64      => 'TN <--ICMP Echo Reply   (64Byte)----- NUT',
    echo_request_1280  => 'TN ---ICMP Echo Request (1280Byte)--> NUT',
    echo_reply_1280    => 'TN <--ICMP Echo Reply   (1280Byte)--- NUT',
    echo_request_1500  => 'TN ---ICMP Echo Request (1500Byte)--> NUT',
    echo_reply_1500    => 'TN <--ICMP Echo Reply   (1500Byte)--- NUT',
);


vLogHTML("Confirm if NUT can reply for variable size of ICMP Echo Request");

# Re-Initialize

vSend($IF,ra);
vLogHTML("Ignoring DAD packets");
vSleep($WAIT_TO_FIN_DAD);
vSend($IF,na);

$MaxPktSize=0;

vCapture($IF);
vClear($IF);

#
# Test for 64 Byte
#

vSend($IF, echo_request_64);
%ret=vRecv($IF,5,0,0, echo_reply_64,ns,ns_srcGlobal);

if( $ret != 0) {
    vLogHTML("NUT can not Reply for ICMP Echo Request (size=64)<BR>");
    vLogHTML('<FONT COLOR="#FF0000">NG</FONT>');
    vLogHTML("FAIL");
    exit $V6evalTool::exitFail;
}elsif( $ret{recvFrame} eq 'ns' || $ret{recvFrame} eq 'ns_srcGlobal') {
    if( $ret{recvFrame} eq 'ns' ) {
        PMTU::sendNA();
    }elsif( $ret{recvFrame} eq 'ns_srcGlobal' ) {
        PMTU::sendNA_srcGlobal();
    }

    %ret=vRecv($IF, 5,0,0,echo_reply_64);
    if( $ret{status} != 0) {
        vLogHTML("TN COULD NOT receive Echo Reply from NUT<BR>");
        vLogHTML('<FONT COLOR="#FF0000">NG</FONT>');
        vClear($IF);
        exit $V6evalTool::exitFail;
    }else {
# Correct Case
        vLogHTML("TN received Echo Reply from NUT<BR>");
        vLogHTML('OK');
        $MaxPktSize=64;
    }
}else {
# Correct Case
    vLogHTML("TN received Echo Reply from NUT<BR>");
    vLogHTML('OK');
    $MaxPktSize=64;
}

#
# Test for 1280 Byte
#

vSend($IF, echo_request_1280);
%ret=vRecv($IF,5,0,0, echo_reply_1280);

if( $ret{status} != 0) {
    vLogHTML("TN COULD NOT receive Echo Reply(size=1280) from NUT<BR>");
    vLogHTML('<FONT COLOR="#FF0000">NG</FONT>');
    vClear($IF);
    exit $V6evalTool::exitFail;
}else {
# Correct Case
    vLogHTML("TN received Echo Reply from NUT<BR>");
    vLogHTML('OK');
    $MaxPktSize=1280;
}

#
# Test for 1500 Byte
#

vSend($IF, echo_request_1500);
%ret=vRecv($IF,5,0,0, echo_reply_1500);

if( $ret{status} != 0) {
    vLogHTML("TN COULD NOT receive Echo Reply(size=1500) from NUT<BR>");
    vLogHTML('<FONT COLOR="#FF0000">NG</FONT>');
    vClear($IF);
}else {
# Correct Case
    vLogHTML("TN received Echo Reply from NUT<BR>");
    vLogHTML('OK');
    $MaxPktSize=1500;
}

#open FID, ">>$PMTU::LCNA_RESULTS";
#print FID "$datestr";
#print FID "\$MaxPktSize=$MaxPktSize";
#close FID;

exit $V6evalTool::exitPass;


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

=head1 NAME

	confirmPing - Confirm if NUT can reply to variable size of 
	ICMP Echo Request

=head1 TARGET

	Host

=head1 SYNOPSIS

	confirmPing.seq [-tooloption ...] -p confirmPing.def

=head1 NETWORK CONFIGURATION

        This test just confirms if NUT can reply to variable size of 
	ICMP Echo Request


	In this test, NUT is a HOST, TN plays as both of HOST and Router.
	
	Phisical Network configuration
	
	--------+---------------+--------------
		|		|
		NUT		TN


	Logical Network Configuration

				NUT
				|
	----------------+-----------------
			|
			Router
			|
	----------------+-----------------
		| 
		HOST-A

	NUT < --- Router --- > HOST A


=head1 INITIALIZATION

        The TN send a RA to assign global address prefix.

        TN              NUT

        -------------------

        ===multicast RA===>
        src=TN's link-local
        dst=LinkLocal-all-node                                                  
        M=0, O=0,
        Lifetime=3600, ReachableTime=60000, RetransTimer=1005
        Prefix:
           L=1, A=1,                       
           ValidLifetime=3600005, PreferredLifetime=3600005
           Prefix=3ffe:501:ffff:100::, PrefixLength=64                      
   
          Wait (5 sec.)
                 Ignoring DAD packets for global address.                 


=head1 TEST PROCEDURE

	"confirmPing" confirms the availability of NUT for variable size of
	PING.
	
         TN                     NUT
         |                       |
        -+-----------------------+-

        1.
	TN send Echo Request size=64.  
	
         === echo request(64) ===>

	2.
	NUT send Echo Reply size=64.
        << JUDGMENT 1 >>
        <=== echo reply(64) ===

        3.
	TN send Echo Request size=1280.  
	
         === echo request(1280) ===>

	4.
	NUT send Echo Reply size=1280.
        << JUDGMENT 2 >>
        <=== echo reply(1280) ===

        5.
	TN send Echo Request size=1500.  
	
         === echo request(1500) ===>

	6.
	NUT send Echo Reply size=1500.
        << JUDGMENT 3 >>
        <=== echo reply(1500) ===



=head1 JUDGMENT

	<< JUDGMENT 1 -PASS- >>
		"PASS" means that NUT received the ICMP Echo Request 
		size=64Byte, and NUT can send ICMP Echo Reply size=64Byte.

	<< JUDGMENT 2 -PASS- >>
		"PASS" means that NUT received the ICMP Echo Request 
		size=1280Byte, and NUT can send ICMP Echo Reply size=1280Byte.

	<< JUDGMENT 3 -PASS- >>
		"PASS" means that NUT received the ICMP Echo Request 
		size=1500Byte, and NUT can send ICMP Echo Reply size=1500Byte.

	perldoc V6evalTool
	perldoc V6evalRemote

=cut