#!/usr/bin/perl
#
# $Copyright$
#
# $TAHI: ct/natpt/initialize.seq,v 1.5 2001/10/11 01:41:46 akisada Exp $
#

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

checkNUT(router);

$IF0_device=$V6evalTool::NutDef{Link0_device};
$IF1_device=$V6evalTool::NutDef{Link1_device};

$ret=reboot();
if( $ret !=$V6evalTool::exitIgnore) {
        vLogHTML("<FONT COLOR=#FF0000>Can not reboot NUT !!</FONT>");
        goto error_fatal;
}else {
	vLogHTML("<H4>--- reboot NUT ---</H4>");
}

$ret=config_host_v4($IF1_device);
if( $ret !=0) {
        vLogHTML("<FONT COLOR=#FF0000>Can not configure IPv4 !!</FONT>");
}else {
	vLogHTML("<H4>--- TN can configure NUT IPv4 address ---</H4>");
}

$ret=config_natpt($IF0_device, "in", "0:0:0:0:ffff::", 96, 
		  $IF0_device, "out", "0.0.0.0", 0);
if( $ret !=0) {
        vLogHTML("<FONT COLOR=#FF0000>Can not configure NAT-PT !!</FONT>");
}else {
	vLogHTML("<H4>--- TN can configure NAT-PT between TN and NUT ---</H4>");
}

vLogHTML("<H3>OK</H3>");
exit $V6evalTool::exitIgnore;

error_fatal:

vLogHTML("<H3>NG</H3>");
vErrmsg(%ret);
exit $V6evalTool::exitFatal;



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

=head1 NAME

	initialize.seq - initialization siit environment test

=head1 TARGET

	Router

=head1 SYNOPSIS

	This script configures for SIIT.
	In First, reboot NUT.
	Configures,
		- assign IPv4 address 
		- set up SIIT IPv6/IPv4 Translator

=head1 SEE ALSO

	perldoc V6evalTool

=cut