' $System.Access Admin
' $CanAutoExec = 0
' If $System.IsCloud
'  If $System.IsStandardPlan
'   Exit
'  EndIf
'  $CanAutoExec = 1
' Else
'  Exit
' EndIf
' If $System.IsPost
'  If $CanAutoExec
'   $TaskID = $Command.System.AddMoveMailTask
'   $System.Redirect $Server?page=$Page&TaskId=$TaskID
'  EndIf
'  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 ! $WID or ! $mw.WorkSpaces.$WID.Mails.Count
'  For Each $localWS in $mw.WorkSpaces
'   $localWID = $localWS.ID
'   If $mw.WorkSpaces.$localWID.Mails.Count > 0
'    $WID = $localWID
'    Exit
'   EndIf
'  Next
' EndIf
' If $WID
'' $WIDがないということは移動できるメールアプリケーションが存在していない
<form name="SystemMoveMailApplication" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemMoveMailApplication">
<input type="hidden" name="rw" value="mw">
<input type="hidden" name="TaskID" value="">
'  If ! $CanAutoExec and $TaskID
<p>
<b>$Env.Dir</b>
</p><p>
以下にメールアプリケーションの移動実行ファイル「<b>$TaskFileName</b>」を生成しました。<br>
</p><p>
メールアプリケーションの移動を実行するには、
$Env.Dir に移動して、以下のコマンドを実行してください。<br>
'   If $Env.IsUnix
> ./$TaskFileName
'   Else
> $TaskFileName
'   EndIf
<hr>
</p>
<hr>
'  EndIf
<p>指定するメールアプリケーションを別のメールスペースに移動します。<br>
</p>
<p>
<font color="#ff0000">※ メールデータの量により、処理に時間がかかる場合があります。<br>
　 [移動処理を予約する]をクリックすると、処理が完了するまで指定したメールアプリケーションにアクセスできません。<br>
　 業務に支障がない時間に実行してください。</font>
</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr>
 <td nowrap>移動元のメールアプリケーション</td>
 <td>\\
<select name="WID" onchange="var i = WID.selectedIndex; location.href='$Server?page=$Page&wid=' + WID.options[i].value;">
'  For Each $localWS in $mw.WorkSpaces
'   $localWID = $localWS.ID
'   If ! $mw.WorkSpaces.$localWID.Mails.Count
'    Continue
'   EndIf
<option value="$localWID"\\
'   If $localWID = $WID
 selected\\
'   EndIf
>$localWS.Name</option>
'  Next
</select> :
<select name="AID">
'  Options $mw.WorkSpaces.$WID.Mails
</select>
 </td>
</tr>
<tr>
 <td nowrap>移動先のメールスペース</td>
 <td>\\
<select name="ToWID">
'  For Each $ToWS in $mw.WorkSpaces
'   If ( $ToWS.ID = $WID ) and $mw.WorkSpaces.$WID.Mails.Count
'    Continue
'   EndIf
<option value="$ToWS.ID">$ToWS.Name</option>
'  Next
</select>
 </td>
</tr>
<tr>
 <td nowrap>アドレスデータの登録</td>
 <td nowrap>
'   $desc = "メールに紐付いたアドレスデータを、移動先のメールスペース用のデータに変換する。"
'   Call formCheckBox "CreateCustomer" $desc 1 1 "CreateCustomer"
<br><font size="-1" color="#008800">データの変換に失敗した場合、アドレスデータのコピーを新規データとして移動先のメールスペースに登録します。</font>
 </td>
</tr>
</table>
</blockquote>
'  If ! $CanAutoExec and ! $TaskID
<p>
この環境は、自動タスク機能が無効のため、直接実行ファイルを起動する必要があります。
</p>
<p>
「移動を開始する」ボタンをクリックすると、データディレクトリ以下に作成される、<br>
「<b>$TaskFileName</b>」というメールアプリケーションの移動タスク実行ファイルを起動してください。<br>
</p>
'  EndIf
'  $escBackURL = $Command.String.JSEncode $BackURL
'  Call formCommit "移動処理を予約する" "" "" "location.href='$escBackURL';"
<hr size="1">
' EndIf
''
<div id="MoveMailTasks">
' $MonitorTaskID = 0
<!--#include file="PartsMoveMailApplicationTask.html"-->
</div>
<hr size="1">
'  Call cmImage "pin.png"
移動タスクログ
' If $mw.Task.MoveMail.Log
'  Call ShowMailLogs
' Else
<blockquote>
ログはありません。
</blockquote>
' EndIf
</form>
' If $MonitorTaskID > 0
<script language="JavaScript" type="text/javascript"><!--//
window.setTimeout( function(){
	var cf = function() {
		$(function(){
			$.ajax({
				url : "$Server?page=AjaxMoveMailApplicationTask&TaskId=$MonitorTaskID",
				type : "get",
				success : function(data){
					data = data.replace(/^\s+|\s+$/g, "");
					if( data == "1" )
					{
						location.href="$Server?page=$Page&wid=$WID";
					}
					else
					{
						document.getElementById( "MoveMailTasks" ).innerHTML = data;
					}
				},
				error : function(){}
			});
		});
	};
	window.setInterval( cf, 30 * 1000 );
}, 0 );
//--></script>
' EndIf
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>
''
'' タスクの一覧を表示
' Sub ShowMailLogs
<p>
<table width="760" border="1" cellspacing="0" cellpadding="2">
<tr class="title">
 <th nowrap>開始日時</th>
 <th nowrap>終了日時</th>
 <th nowrap>結果</th>
 <th nowrap>移動元メールスペース</th>
 <th nowrap>移動先メールスペース</th>
 <th nowrap>メールアプリケーション</th>
 <th nowrap>アドレスデータの登録</th>
</tr>
'  For Each $log in $mw.Task.MoveMail.Log
'   var $localSTime  = $log.STime
'   var $localResult = $log.Result
<tr>
 <td nowrap>
$localSTime.Year00/$localSTime.Month/$localSTime.Day00 $localSTime.Hour00:$localSTime.Minute00\\
</td>
 <td nowrap>\\
'   If $log.ETime
'    var $localETime  = $log.ETime
$localETime.Year/$localETime.Month/$localETime.Day $localETime.Hour:$localETime.Minute00\\
'   EndIf
</td>
 <td nowrap>\\
'   If $localResult = End
完了\\
'   Elif $localResult = Error
失敗（\\
'    $local
'    If $log.ErrorCode
エラー番号：$log.ErrorCode\\
'    Else
$log.Error\\
'    EndIf
）\\
'   EndIf
</td>
 <td nowrap>$log.FromWSName</td>
 <td nowrap>$log.ToWSName</td>
 <td nowrap>$log.ApplicationName</td>
 <td nowrap>\\
'   If $log.CreateCustomer
'    Call cmImage "check20.png" "登録する"
'   EndIf
</td>
</tr>
'  Next
</table>
</p>
' EndSub