' If $System.IsCloud
'  Exit
' EndIf
' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemAdmin
'  If $Cancel
'   $System.ClearMaintenanceMode
'  Else
'   $System.SetMaintenanceMode
'  EndIf
'  Exit
' EndIf
' $Maint = $System.InitMaintenanceMode
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
' $CaptionTitle = "メンテナンスモードの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<form method=post action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type=hidden name=Page value=SystemMaintenanceSet>
<p>
メンテナンスモードの設定をおこなうと、サイボウズ<sup>(R)</sup> メールワイズ<sup>(R)</sup>へのアクセスを一時的に中止することができます。<br>
(メンテナンスモードは、バックアップ作業などをおこなう際にご利用ください。)
</p>
' If $Maint
<p><font color="#ff0000">現在、下記のようにメンテナンスモードが設定されています。</font></p>
' EndIf
<p>
<table>
 <tr><td valign="top" nowrap>時間</td><td nowrap colspan=2><select name=SetHour>
<option value="-1">--時
' Options $SetHour in 0 to 23 unit "時"
</select><select name=SetMinute>
<option value="00">--分
' Options $SetMinute in 0 to 59 unit "分" step 10
</select>～<select name=EndHour>
<option value="-1">--時
' Options $EndHour in 0 to 23 unit "時"
</select><select name=EndMinute>
<option value="00">--分
' Options $EndMinute in 0 to 59 unit "分" step 10
</select><br>
<font color="#008800" size="-1">時間を指定すると、毎日、指定された時間にメンテナンスモードになります。</font>
</td></tr>
 <tr>
  <td nowrap>メッセージ</td>
  <td>\\
' Call formTextBox "Text" "$Text" 100 "" "" 60
</td>
 </tr>
</table>
</p>
<p>\\
'  Call formSubmit "Submit" "設定する"
' If $Maint
'  Call formSubmit "Cancel" "解除する"
' EndIf
' Call cmButton "キャンセルする" "history.back();"
</p>
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>