' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemWorkSpace
'  $Command.System.DeleteWorkSpace
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryDelete.html"-->
' $CaptionTitle = "メールスペースの削除"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemWorkSpace"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin" "システム設定" $BackURL "メールスペースの追加/変更/削除"
' Set $ws = $mw.WorkSpaces.$WID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemWorkSpaceDelete">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="WID" value="$WID">
' Call delConfirm "メールスペース" $ws.Name "メールスペースを削除するとメールスペース内のデータは全て削除されます。<br>データのバックアップを推奨します。"
' If $ws.Storages.Count
<hr size="1">
<p>退避したデータは削除されません。以下の退避ディレクトリを手動で削除してください。</p>
<p><table width="760" border="1" cellspacing="0" cellpadding="2">
<tr class="title"><th width="160" nowrap>期間</th><th width="600" nowrap>退避ディレクトリ</th></tr>
'  For Each $Vol in $ws.Storages
'   $vDate = $Vol.Date
<tr><td nowrap>～$vDate.Year/$vDate.Month/$vDate.Day</td><td nowrap>$Env.UserDir$mw/back$Vol.ID</td></tr>
'  Next
</table></p>
' EndIf
</form>
' Call cmChildFooter $BackURL "メールスペースの追加/変更/削除へ"
</body>
</html>