<#
.SYNOPSIS
    把按路径命名的旧归档重命名成软件名，并重建 manifest.json。

.DESCRIPTION
    重构前的归档名是 `<末级名>_from_<上级路径>`（如 FooClolor_from_C_+Programs.7z）。
    引入软件名录后，归档名默认就是软件名（FooClolor.7z）。这个脚本负责把存量归档搬过去。

    做法：
      1. 遍历清单条目，算出"旧名"（路径命名算法）与"新名"（当前规则）；
      2. 只在两者不同、且旧名归档确实存在时才处理；
      3. 重命名（不是复制，同卷上是元数据操作，不搬数据）；
      4. 重建 manifest.json，把旧记录的历史字段（成功次数、SHA256 等）迁过去；
      5. 比对重命名前后的文件大小做完整性自检。

    默认是**试运行**，只打印计划。确认无误后加 -Apply 才真正执行。

.EXAMPLE
    # 先看会发生什么（不改任何文件）
    .\tools\Rename-Archives.ps1

.EXAMPLE
    # 真正执行
    .\tools\Rename-Archives.ps1 -Apply
#>

[CmdletBinding()]
param(
    [string]$BackupListPath = (Join-Path (Split-Path -Parent $PSScriptRoot) 'BackupList.txt'),
    [string]$BackupDir,
    [string]$ConfigPath,
    [switch]$Apply
)

$ErrorActionPreference = 'Stop'

$projectRoot = Split-Path -Parent $PSScriptRoot
Import-Module (Join-Path $projectRoot 'Common.psm1') -Force

if (-not $ConfigPath) { $ConfigPath = Join-Path $projectRoot 'BackupConfig.psd1' }
$config = Get-BaknretConfig -Path $ConfigPath

if (-not $BackupDir) {
    $BackupDir = $config.BackupDir
    if (-not [System.IO.Path]::IsPathRooted($BackupDir)) { $BackupDir = Join-Path $projectRoot $BackupDir }
}

$catalogPath = Resolve-CatalogPath -Configured $config.SoftwareCatalog -Root $projectRoot
$manifestPath = Join-Path $BackupDir 'manifest.json'
$supportedFormats = @('.7z', '.rar', '.zip', '.tar')

if (-not (Test-Path -LiteralPath $BackupDir)) {
    Write-Host "备份目录不存在：$BackupDir" -ForegroundColor Red
    exit 1
}

Write-Host ''
Write-Host "备份目录 : $BackupDir"
Write-Host "软件名录 : $catalogPath"
Write-Host "清单     : $BackupListPath"
Write-Host "模式     : $(if ($Apply) { '执行（-Apply）' } else { '试运行（默认，不改任何文件）' })"
Write-Host ''

function Find-ArchiveByBaseName {
    param([string]$BaseName, [string]$Directory, [string[]]$Formats)
    return Get-ChildItem -LiteralPath $Directory -File -Force -ErrorAction SilentlyContinue |
        Where-Object { $_.BaseName -eq $BaseName -and $_.Extension.ToLower() -in $Formats } |
        Select-Object -First 1
}

# ---------------------------------------------------------------------------
# 阶段一：规划
# ---------------------------------------------------------------------------

$manifestOld = Read-BaknretManifest -Path $manifestPath

$plan = @()
$unchanged = 0
$missingOld = 0
$conflicts = @()
$seenNew = @{}
$entries = @()

foreach ($line in (Get-Content -LiteralPath $BackupListPath)) {
    $item = ConvertFrom-BackupListLine -Line $line
    if (-not $item) { continue }

    # 旧名 = 对"真实源路径"跑路径命名算法。
    # 注意：清单里现在写的是软件名，直接把它丢给 Get-BackupBaseName 会得到一个
    # 恰好和软件名一模一样的"旧名"（legendary -> legendary），于是永远算不出
    # 真正的旧名。必须先解析出真实路径。
    $resolved = Resolve-BackupEntry -Entry $item -CatalogPath $catalogPath -MaxDepth $config.CatalogMaxDepth
    $newName = $resolved.BaseName

    $oldNameSource = $item.Path
    if ($resolved.IsName -and $resolved.CatalogEntry) { $oldNameSource = $resolved.CatalogEntry.Path }
    if ([string]::IsNullOrWhiteSpace([string]$oldNameSource)) {
        # 数组形式的名录条目没有唯一的"原路径"，推不出旧归档名，跳过即可
        Write-Host ("  跳过 {0}：名录条目是数组形式，算不出旧归档名" -f $item.Path) -ForegroundColor DarkGray
        continue
    }
    $oldName = Get-BackupBaseName -RawPath $oldNameSource

    if (-not $oldName -or -not $newName) { continue }

    if ($seenNew.ContainsKey($newName)) {
        $conflicts += "归档名 '$newName' 被 '$($seenNew[$newName])' 和 '$($item.Path)' 同时使用"
        continue
    }
    $seenNew[$newName] = $item.Path

    $entries += [pscustomobject]@{ Item = $item; OldName = $oldName; NewName = $newName; Resolved = $resolved }

    if ($oldName -eq $newName) { $unchanged++; continue }

    $oldFile = Find-ArchiveByBaseName -BaseName $oldName -Directory $BackupDir -Formats $supportedFormats
    if (-not $oldFile) { $missingOld++; continue }

    $plan += [pscustomobject]@{
        Old      = $oldFile
        New      = ($newName + $oldFile.Extension)
        Item     = $item
        Resolved = $resolved
    }
}

Write-Host "待重命名 $($plan.Count) 个；命名未变 $unchanged 个；清单里有但归档不存在 $missingOld 个"

if ($plan.Count -gt 0) {
    Write-Host ''
    foreach ($entry in $plan) {
        Write-Host ("  {0,10:N1} MB  {1}" -f ($entry.Old.Length / 1MB), $entry.Old.Name)
        Write-Host ("              -> {0}" -f $entry.New)
    }
}

if ($conflicts.Count -gt 0) {
    Write-Host ''
    Write-Host '存在归档名冲突，必须先解决（否则会互相覆盖）：' -ForegroundColor Red
    $conflicts | ForEach-Object { Write-Host "  - $_" -ForegroundColor Red }
    exit 1
}

Write-Host ''

if (-not $Apply) {
    Write-Host '试运行结束，未改动任何文件。确认无误后加 -Apply 执行。' -ForegroundColor Yellow
    exit 0
}

# ---------------------------------------------------------------------------
# 阶段二：重命名
# ---------------------------------------------------------------------------

$ok = 0
$failed = 0

foreach ($entry in $plan) {
    $target = Join-Path $BackupDir $entry.New
    try {
        if (Test-Path -LiteralPath $target) {
            Write-Host "跳过（目标已存在）: $($entry.New)" -ForegroundColor Yellow
            $failed++
            continue
        }

        $oldSize = $entry.Old.Length
        Rename-Item -LiteralPath $entry.Old.FullName -NewName $entry.New -ErrorAction Stop

        $newFile = Get-Item -LiteralPath $target -ErrorAction Stop
        if ($newFile.Length -ne $oldSize) {
            throw "重命名后大小不一致（$oldSize -> $($newFile.Length)）"
        }

        Write-Host "已重命名: $($entry.Old.Name) -> $($entry.New)" -ForegroundColor Green
        $ok++
    } catch {
        Write-Host "重命名失败: $($entry.Old.Name) —— $_" -ForegroundColor Red
        $failed++
    }
}

# ---------------------------------------------------------------------------
# 阶段三：重建 manifest
# ---------------------------------------------------------------------------

$rebuilt = [ordered]@{}
$now = (Get-Date).ToString('o')

foreach ($entry in $entries) {
    $file = Find-ArchiveByBaseName -BaseName $entry.NewName -Directory $BackupDir -Formats $supportedFormats

    # 历史字段优先从新键取，其次从旧键（路径命名）取
    $previous = $null
    if ($manifestOld.items.Contains($entry.NewName)) { $previous = $manifestOld.items[$entry.NewName] }
    elseif ($manifestOld.items.Contains($entry.OldName)) { $previous = $manifestOld.items[$entry.OldName] }

    $getPrevious = {
        param([string]$Field)
        if ($previous -and ($previous.PSObject.Properties.Name -contains $Field)) { return $previous.$Field }
        return $null
    }

    $record = [ordered]@{
        baseName        = $entry.NewName
        source          = $entry.Item.Path
        resolvedSource  = [Environment]::ExpandEnvironmentVariables($entry.Item.Path)
        roots           = @($entry.Resolved.Sources | ForEach-Object { $_.RootName })
        catalog         = $(if ($entry.Resolved.CatalogEntry) { $entry.Resolved.CatalogEntry.Path } else { $null })
        archive         = $(if ($file) { $file.Name } else { $entry.NewName + '.7z' })
        action          = $(if ($file) { 'backed-up' } else { 'missing-source' })
        reason          = '由 tools/Rename-Archives.ps1 迁移生成'
        phase           = 'migrate'
        attemptedAt     = $now
        finishedAt      = $now
        durationSec     = $null
        exitCode        = $null
        verified        = $false
        warnings        = $false
        attemptWarnings = $false
        encrypted       = ($entry.Item.Flags -contains 'encrypt')
        sourceFiles     = (& $getPrevious 'sourceFiles')
        sourceBytes     = (& $getPrevious 'sourceBytes')
        archiveBytes    = $(if ($file) { $file.Length } else { $null })
        sha256          = (& $getPrevious 'sha256')
        lastSuccessAt   = $(if ($file) { (& $getPrevious 'lastSuccessAt') } else { (& $getPrevious 'lastSuccessAt') })
        successCount    = $([int](& $getPrevious 'successCount'))
        failCount       = $([int](& $getPrevious 'failCount'))
    }
    $lastRestore = & $getPrevious 'lastRestoreAt'
    if ($lastRestore) { $record['lastRestoreAt'] = $lastRestore }

    if ($file) { $rebuilt[$entry.NewName] = $record }
}

$manifestNew = [pscustomobject]@{
    schemaVersion = 1
    tool          = 'BakNRet'
    updatedAt     = $null
    compressor    = $manifestOld.compressor
    items         = $rebuilt
}
Write-BaknretManifest -Path $manifestPath -Manifest $manifestNew | Out-Null

# ---------------------------------------------------------------------------
# 阶段四：报告
# ---------------------------------------------------------------------------

$referenced = @($rebuilt.Keys)
$orphans = @(Get-ChildItem -LiteralPath $BackupDir -File -Force -ErrorAction SilentlyContinue |
    Where-Object { $_.Extension.ToLower() -in $supportedFormats -and $_.BaseName -notin $referenced })

Write-Host ''
Write-Host "重命名完成：成功 $ok，失败 $failed；manifest 已重建，含 $($rebuilt.Count) 个条目" -ForegroundColor Green

if ($orphans.Count -gt 0) {
    Write-Host ''
    Write-Host '以下归档没有任何清单条目指向（恢复不到，注意别误删）：' -ForegroundColor Yellow
    foreach ($orphan in $orphans) {
        Write-Host ("  - {0}（{1:N1} MB）" -f $orphan.Name, ($orphan.Length / 1MB)) -ForegroundColor Yellow
    }
}

if ($failed -gt 0) { exit 1 }
exit 0