' If $System.IsCloud
'  Exit
' EndIf
' $System.Access Admin
' If $CT
'  $System.CheckData
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' $CaptionTitle = "実行環境の診断"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onSubmit()
{
	return( confirm( 'データのチェックをおこないます。よろしいですか？' ) );
}
-->
</script>
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<form method="get" action="$Server/check.txt" onSubmit="return onSubmit();">
<input type="hidden" name="Page" value="SystemEnvironment">
<input type="hidden" name="CT" value="1">
<p>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
 <tr bgcolor="#cccccc"><th>パラメータ</th><th>値</th><th>説明</th></tr>
 <tr><td nowrap>GATEWAY_INTERFACE</td><td nowrap>$Env.GATEWAY_INTERFACE<br></td><td>Webサーバーが使用するCGIのバージョン</td></tr>
 <tr><td nowrap>SERVER_NAME      </td><td nowrap>$Env.SERVER_NAME<br>      </td><td>Webサーバーのホスト名またはIPアドレス</td></tr>
 <tr><td nowrap>SERVER_PORT      </td><td nowrap>$Env.SERVER_PORT<br>      </td><td>Webサーバーが使用しているTCP/IPのポート番号</td></tr>
 <tr><td nowrap>SERVER_PROTOCOL  </td><td nowrap>$Env.SERVER_PROTOCOL<br>  </td><td>Webサーバーが使用しているプロトコルの名前とバージョン</td></tr>
 <tr><td nowrap>SERVER_SOFTWARE  </td><td nowrap>$Env.SERVER_SOFTWARE<br>  </td><td>Webサーバーのソフトウェア名とバージョン：<br>
例）Microsoft-IIS/5.0 （マイクロソフト社の IIS のバージョン 5.0 が使用されている場合）</td></tr>
 <tr><td nowrap>HTTP_USER_AGENT  </td><td>$Env.HTTP_USER_AGENT<br>  </td><td>現在、このシステムをアクセスしているブラウザ</td></tr>
 <tr><td nowrap>ServerOS         </td><td nowrap>$ServerOS<br>             </td><td>サーバーマシンのOS</td></tr>
 <tr><td nowrap>DocumentRoot     </td><td nowrap>$Env.DocumentRoot<br>     </td><td>Webサーバーのドキュメントルート</td></tr>
 <tr><td nowrap>Dir              </td><td nowrap>$Env.Dir<br>              </td><td>サーバーマシン上での実行ディレクトリの絶対パス</td></tr>
 <tr><td nowrap>UserDir          </td><td nowrap>$Env.UserDir<br>          </td><td>サーバーマシン上でのデータディレクトリの絶対パス</td></tr>
' If $DiskFreeSpace = -1
 <tr><td nowrap>DiskFreeSpace</td><td nowrap>2GB以上</td><td>ディスクの空き容量</td></tr>
' Elif $DiskFreeSpace or ($DiskFreeSpace = 0)
 <tr><td nowrap>DiskFreeSpace</td><td nowrap>$DiskFreeSpace.Number (bytes)</td><td>ディスクの空き容量：<br>
  空き容量が 10MB を切ると、安全のため、動作を停止しますのでご注意下さい。</td></tr>
' EndIf
</table></p>
<p>
' Call cmImage "pin.png"
<b>データのチェック</b>
<blockquote>
メールワイズ内のデータチェックをおこない、結果をファイルに出力します。<br>
※データのチェックには数分程度、時間がかかる場合があります。
</blockquote>
'  Call formSubmit "Submit" "データのチェックを実行する"
</p>
' Call cmChildFooter $BackURL "システム設定へ"
</form>
</body>
</html>