#!/usr/bin/perl
#
# $Copyright$
#
# $Id: Init.seq,v 1.1.1.1 2000/10/31 22:39:10 sekiya Exp $
#
######################################################################
BEGIN {
	$V6evalTool::TestVersion = '$Name:  $';
}

use V6evalTool;
sub updateTnDef();

$IF=Link0;

#----- get arguments
foreach (@ARGV) {
	if(/^initmac=(([0-9a-f]{1,2}:){5}[0-9a-f]{1,2})/) {
		$V6evalTool::TnDef{"$IF"}=
		    $V6evalTool::TnDef{$IF.'_device'}." $1";
		next;
	}
	print STDERR "Unknown option $_\n";
}

updateTnDef();
exit $V6evalTool::exitIgnore;
end;


sub updateTnDef()
{
	if(open(FILE, "> tn.def") == 0) {
		vLogHTML("update fail : can't open ./tn.def: $!<BR>");
		exit $V6evalTool::exitFatal;
	}
	foreach(keys(%V6evalTool::TnDef)) {
		next if(/^Link[0-9]+_device$/ || /^Link[0-9]+_addr$/);
		print FILE "$_ $V6evalTool::TnDef{$_}\n";
	}
	close(FILE);
}
######################################################################
__END__

=head1 NAME

B<init.seq> - write tn.def

=head1 TARGET

none

=head1 SYNOPSIS

B<init.seq>

=head1 INITIALIZATION

NONE

=head1 TEST PROCEDURE

This script write target node infomation to ./tn.def.
Original infomation read from tn.def that is in search path.

=cut