# amatsukaze_watcher.ps1
# 録画TSファイルをリアルタイム監視して即時Amatsukaze投入する常駐スクリプト

# 共通設定読み込み
. "C:\FSW_32\script\amatsukaze_config.ps1"

function Write-Log($msg) {
    $line = "$(Get-Date -Format 'yyyy-MM-dd HH:mm:ss') : $msg"
    Add-Content "$LOG_DIR\$(Get-Date -Format yyyyMM)_watcher.log" $line
    Write-Host $line
}

function Process-File($filePath) {
    $file = Get-Item -LiteralPath $filePath -ErrorAction SilentlyContinue
    if (-not $file) { return }

    $baseName = $file.BaseName

    # 投入済みチェック
    if (Is-Done $baseName) { return }

    # スキップ判定（共通設定）
    $skipReason = Should-Skip $baseName
    if ($skipReason) {
        Write-Log "SKIP($skipReason): $baseName"
        Add-DoneLog $baseName
        return
    }

    # 録画終了確認（最終更新から5分以上経過）
    # ※ UNCパス越しのファイルロックチェックは信頼性が低いため時間経過で判定
    $age = (Get-Date) - $file.LastWriteTime
    if ($age.TotalMinutes -lt 5) {
        Write-Log "WAIT(録画中の可能性: $([int]$age.TotalMinutes)分): $baseName"
        return
    }

    # プロファイル判定（リネーム前のチャンネルタグで判定する必要があるため、ここで実施）
    $profile = Get-Profile $baseName

    # ファイル名整形（共通設定）
    $newName = Sanitize-Name $baseName
    $targetPath = $file.FullName

    if ($newName -ne $baseName) {
        $newPath = Join-Path $file.DirectoryName ($newName + $file.Extension)
        if (-not (Test-Path -LiteralPath $newPath)) {
            try {
                Rename-Item -LiteralPath $file.FullName -NewName ($newName + $file.Extension)
                Write-Log "RENAMED: $baseName -> $newName"
                $targetPath = $newPath
                Add-DoneLog $newName
            } catch {
                Write-Log "ERROR(rename): $baseName - $_"
                return
            }
        } else {
            Write-Log "SKIP(同名存在): $newName"
            Add-DoneLog $baseName
            return
        }
    }

    # --- WOWOWの前番組CM(約35秒)Trimは無効化中 ---
    # フォーマット切り替え(PMT更新)を含む長尺映画で
    # join_logo_scp.exeの出力AVSファイルが不正です エラーになるため。
    # CM解析無効化(プロファイル振り分け)のみ有効。
    # if ($baseName -match $WOWOW_PATTERN) {
    #     Write-WowowTrimAvs $targetPath
    #     Write-Log "TrimAvs作成: $([System.IO.Path]::GetFileName($targetPath)).trim.avs (先頭${WOWOW_TRIM_START_FRAMES}フレームをカット)"
    # }

    # AddTask投入
    Write-Log "AddTask: $targetPath (profile: $profile)"
    & $ADDTASK -r $AMATSUKAZE -f $targetPath -ip "localhost" -p 32768 `
        -o $OUTPUT_DIR -s $profile --priority 3 --no-move `
        2>&1 | ForEach-Object { Write-Log $_ }

    Add-DoneLog $baseName
    Write-Log "投入済み記録: $baseName"
}

# ===== 起動時：未投入ファイルを一括処理 =====
Write-Log "==== Watcher起動 ===="
Write-Log "起動時の未投入ファイルをチェック..."

if (Test-Path $TARGET_DIR) {
    $existing = Get-ChildItem -LiteralPath $TARGET_DIR -Filter "*.ts" -File -ErrorAction SilentlyContinue
    foreach ($f in $existing) {
        Process-File $f.FullName
        Start-Sleep -Seconds 2
    }
} else {
    Write-Log "WARNING: $TARGET_DIR にアクセスできません（ネットワーク未接続？）"
}

Write-Log "起動時チェック完了"

# ===== メインループ（ポーリング方式） =====
Write-Log "監視開始（ポーリング）: $TARGET_DIR"

while ($true) {
    Start-Sleep -Seconds 30

    # ネットワーク接続確認
    if (-not (Test-Path $TARGET_DIR)) {
        Write-Log "WARNING: ネットワーク未接続、次回チェックまで待機"
        continue
    }

    $files = Get-ChildItem -LiteralPath $TARGET_DIR -Filter "*.ts" -File -ErrorAction SilentlyContinue
    foreach ($f in $files) {
        Process-File $f.FullName
    }
}

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "powershell.exe -ExecutionPolicy Bypass -WindowStyle Hidden -File ""C:\FSW_32\script\amatsukaze_watcher.ps1""", 0, False
Set WshShell = Nothing