' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemSaveExplain
'  $Command.System.MakeSaveCommand
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "過去データの退避"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
' If ! $System.IsCloud
<form name="SystemSave" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemSave">
<input type="hidden" name="rw" value="mw">
' Set $CreatedTasks = $mw.Task.Archive.Create
<p>指定された日以前のデータを切り離して、参照専用データとして保存します。<br>
データを退避させる対象のメールスペースと、日付を指定してください。
</p><p>
<font color="#ff0000">※ 退避したデータは現在の環境に戻すことができませんので、注意してください。</font>
</p>
' Set $CreatedTasks = $mw.Task.Archive.Create
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>メールスペース</td>
<td><select name="WID">
' Options $WID in $mw.WorkSpaces
</select>
</td></tr>
<tr><td nowrap>日付</td>
<td nowrap>
' Call formDate "SetDate" "SystemSave" 1 $Date
以前</td></tr>
</table>
</blockquote>
<p>
データの退避は、メールワイズのデータディレクトリ上から、実行ファイルを起動しておこないます。
</p>
<p>
「データ退避の実行ファイルを作成する」ボタンをクリックすると、データディレクトリ以下に<br>
「<b>$SaveFileName</b>」というデータ退避実行ファイルが作成されます。<br>
</p>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "データ退避の実行ファイルを作成する" "" "" "location.href='$escBackURL';"
' EndIf
<hr size="1">
' Call cmImage "pin.png"
退避したデータの一覧
' $Exist = 0
' For Each $ws in $mw.WorkSpaces
'  If ! $ws.Storages.Count
'   Continue
'  EndIf
'  $Exist = 1
<p>
<table width="760" border="0" cellspacing="0" cellpadding="2">
<tr class="active"><td nowrap>
'  Call cmImage "mailspace32.png"
$ws.Name
</td></tr>
</table>
<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>
'   If $System.IsCloud
  <td width="100" nowrap>\\
'    Call cmLink "削除する" "delete20.png" "$Server?page=SystemSaveDelete&wid=$ws.ID&RVID=$Vol.ID"
</td>
'   Else
  <td nowrap>$Env.UserDir$mw/back$Vol.ID</td>
'   EndIf
</tr>
'  Next
</table>
</p>
' Next
' If ! $Exist
<blockquote>
退避データは存在しません。
</blockquote>
' EndIf
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>