' If $System.IsCloud
'  Exit
' EndIf
' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "ライセンスキーの登録状況"
' $LicenseKey = $Command.System.IsLicenseKey
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form, wid, wsname )
{
	if( confirm( '「' + wsname + '」にメールスペースライセンスを登録します。\n登録したライセンスは元に戻すことができませんが、よろしいですか？' ) )
	{
		form.WID.value = wid;
		form.submit();
	}
}
-->
</script>
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<p>
' If $LicenseKey
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemLicense">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="WID" value="">
''  $UserNumber = $Command.System.GetUserNumber
''  $Company = $Command.System.GetCompany
''  $Section = $Command.System.GetSection
'  $PastMaxUser = $Command.System.GetPastMaxUser
'  $UserMax = $Command.System.GetUserMax
'  $SystemMax = $Command.System.GetSystemMax
'  $LimitDate = $Command.System.GetLimitDate
'  If $PastMaxUser = 0
'   $PastMaxUserString = "無制限"
'  Else
'   $System.SetParameter PastMaxUserString "$PastMaxUserユーザー"
'  EndIf
'  If $UserMax = 0
'   $UserMaxString = "無制限"
'  Else
'   $System.SetParameter UserMaxString "$UserMaxユーザー"
'  EndIf

'  Sub ViewLicenseRow $vlrCaption $vlrValue $vlrStyle
<tr>
'   If $vlrStyle
<td style="$vlrStyle" nowrap>\\
'   Else
<td class="title" nowrap>\\
'   EndIf
$vlrCaption</td>
'   If $vlrStyle
<td style="$vlrStyle">\\
'   Else
<td>\\
'   EndIf
$vlrValue<br></td></tr>
'  EndSub

''お客様情報
''  Call cmLink "変更する" "write20.png" "$Server?page=SystemLicenseModify"
''  Call cmLink "ライセンスキーを更新する" "license20.png" "$Server?page=SystemLicenseAdd"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
''  Call ViewLicenseRow "お客様番号" $UserNumber $StyleTable
''  Call ViewLicenseRow "会社名" $Company $StyleTable
''  Call ViewLicenseRow "部署名" $Section $StyleTable
''  Call ViewLicenseRow "プロダクトID" $ProductID $StyleTable
''  Call ViewLicenseRow "製品バージョン" "$Version$.$Build" $StyleTable
''  Call ViewLicenseRow "サーバーOS" $ServerOS $StyleTable
'  Call ViewLicenseRow "購入ユーザー数（上限）" "$PastMaxUserString" $StyleTable
'  Call ViewLicenseRow "現在の契約ユーザー数（上限）" "$UserMaxString" $StyleTable
'  Call ViewLicenseRow "購入メールスペース数（上限）" "$SystemMaxメールスペース" $StyleTable
'  Call ViewLicenseRow "ライセンス有効期限" "$LimitDate.Year年$LimitDate.Month月$LimitDate.Day日" $StyleTable
</table>
' EndIf
<p>【ライセンスの登録履歴】</p>
<div class="mw_menuRow">
<table width="100%">
 <tr>
  <td nowrap>
' $Command.System.ShowNavigator $Head
  </td>
 </tr>
</table>
</div>
<table class="mw_borderTable">
 <tr>
  <th nowrap>日時</th>
  <th nowrap>内容</th>
  <th nowrap>登録ライセンス</th>
  <th nowrap>証明書番号</th>
  <th nowrap>シリアル番号</th>
  <th nowrap>備考</th>
 </tr>
' $Command.System.ShowHistory "%d/%d/%d" "期限：%d/%d/%d"
</table>
<div class="mw_menuRow">
<table width="100%">
 <tr>
  <td nowrap>
' $Command.System.ShowNavigator $Head
  </td>
 </tr>
</table>
</div>
</p>
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>