#!/usr/local/bin/tt

:r ./disp_sockinfo

### PING CLIENT ###
# タイムアウト値の設定(オプション)
opt = opshift("*****")
if  ( opt=="-NULL" ) RAW_TIMEOUT = NULL;
elif( opt!="*****" ) RAW_TIMEOUT = -atof(opt);

if( argr!=1 && argr!=2 )
	dying("Usage[PingClient(RAW)]: %s [-TIMEOUT] [CL-IP] SV-IP\n",CMD);

# クライアント用アドレスの取得(オプション)
if( argr==2 ){
	c_ip = shift()						# (String) "127.0.0.1"|"localhost"
	sock = raw_socket(c_ip)				# ソケット作成
	if( sock==NULL )
		dying("Error: cannot make socket!!\n")
}

# サーバーアドレスの取得
s_ip = shift()							# (String) "127.0.0.1"|"localhost"

# メッセージの送信(デフォルトソケットを利用)
disp_sockinfo(RAW_SOCKET)
loop( i<5 ){
	ret = ping(s_ip)
	if( ret==NULL )
		print("From: IP=%s (%s!ERROR!%s)\n",ip2str(s_ip),C_RED,C_DEF)
	else
		print("From: IP=%s (%f[ms])\n"     ,ip2str(s_ip),ret*1000   )
	disp_sockinfo(RAW_SOCKET)
}
