#!/usr/local/bin/gawk -f

BEGIN {flag_addr = 0}
{
#   まずIPアドレスを取得する
	if( $1 == "negotiated" )
	{
		ipaddress = $5;
		flag_addr = 1;
		exit;
	}
}
END {
#IPアドレスは取得できましたか?
	if( flag_addr == 0 )
	{
		exit;
	}
#前回のIPアドレスと同じですか?(Y/N)
	getline oldipaddress < "ipaddress";
	if( ipaddress != oldipaddress )
	{
		ORS="";
		print ipaddress > "ipaddress";
		ORS="\n";

#前回のIPアドレスと異なる場合はプロバイダーにMETAタグを送信しなくては。
#手始めに 転送するファイルを作成する。
#凝ってもいいけど解りやすい方が後々便利って事で system()を使いまくる。

		system("cat meta_head.txt ipaddress meta_index.txt > meta_index.html");
		system("cat meta_head.txt ipaddress meta_gekki.txt > meta_gekki.html");

#次に ftp で送信する為のファイルを作成する。
#実は毎回同じなので、毎回作成する必要はないけど、管理が面倒なので毎回作成する。

		print "cd WWW" > "ftp.command";
		print "mput meta_index.html meta_gekki.html" >> "ftp.command";
		print "quit" >> "ftp.command";
		system("ftp -i ftp.din.or.jp < ftp.command");
	}
}