' If $System.IsCloud
'  Exit
' EndIf
' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemLicense
'  $Command.System.SetWorkSpaceKey
'  Exit
' EndIf
<!--#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>
'  $LicensedCount = $Command.System.GetLicensedSystemCount
'  $AvailCount = $SystemMax - $LicensedCount
'  Init $AvailCount = 0
'  If $AvailCount < 0
'   $AvailCount = 0
'  EndIf
</p><p>メールスペースライセンス
(残り： <b>$AvailCount</b> ライセンス)
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="title"><th width="200" nowrap>メールスペース</th><th width="400" nowrap>ライセンス</th></tr>
'  For Each $ws in $mw.WorkSpaces
<tr><td nowrap>$ws.Name</td><td nowrap>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
'   $WSKey = $Command.System.IsWorkSpaceKey $ws.ID
'   If $WSKey
<td colspan="2" nowrap>
ライセンス登録済み
'   Else
<td nowrap>
'    $t = $Command.System.GetTrialEnd $ws.ID
'    If $t.Date >= $Date
<font color="#008800">試用中 ($t.Year/$t.Month/$t.Day まで)</font>
'    Else
<font color="#ff0000">試用有効期限が終了しています</font>
'    EndIf
'    If $AvailCount
</td><td align="right">
'     Call cmButton "ライセンス登録" "onSubmit( this.form, $ws.ID, '$ws.Name' );"
'    EndIf
'   EndIf
</td></tr></table>
</td></tr>
'  Next
</table>
</p>
</form>
<ul>
<li><a href="$Server?page=SystemLicenseHistory">ライセンスキーの登録状況</a></li>
</ul>
' Else
<p><img src="$IMG_PATH/item16.png">
'  Call cmLink "ライセンスキーを登録する" "" "$Server?page=SystemLicenseSet"
<blockquote>
<p>
'  $t = $Command.System.GetTrialEnd
サイボウズ<sup>(R)</sup> メールワイズ<sup>(R)</sup> の試用期間は $t.Year年$t.Month月$t.Day日($t.WDay)で終了します。<br>
試用期間が終了しても、登録されているデータは削除されません。<br>
ご利用を継続される場合は、新規ライセンスを購入し、ライセンスキーを登録してください。<br>
試用期間中に登録したデータは引き続き使用できます。<br>
</p>
<p>
ライセンスキーのご購入は、サイボウズ株式会社のホームページで承っております。<br>
登録ユーザー数以上のライセンスキーをご発注ください。（現在の登録ユーザー数は<b>$Users.Count</b>人です）<br>
<br>
サイボウズ株式会社へ直接お申し込みいただく場合の納期は、約1週間です。<br>
販売会社様へお申し込みいただく場合の納期は、各販売店のご担当者様にお問い合わせください。<br>
</p>
<ul>
<li><a href="http://cybozu.co.jp/mailwise/01.html">サイボウズ メールワイズ 価格・見積・発注ページへ</a></li>
<li><a href="$Server?page=SystemLicenseHistory">ライセンスキーの登録状況</a></li>
</ul>
</blockquote>
' EndIf
</p>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>