IPについて（緊急）

# ホスト情報取得
sub get_host {
	#$host = $ENV{'REMOTE_HOST'};
	#$addr = $ENV{'REMOTE_ADDR'};
	#$agent = $ENV{'HTTP_USER_AGENT'};		
	$host = '';
	$addr = $ENV{'X-Cluster-Client-Ip'};