tnsu-approval-route/backend/Tnsu.ApprovalRoute.Infrastructure/SharePoint/SharePointListProvisioner.cs

using Microsoft.Extensions.Logging;

namespace Tnsu.ApprovalRoute.Infrastructure.SharePoint;

/// <summary>
/// Создаёт следующую пару списков ДУБЛИРОВАНИЕМ текущей: берёт структуру живого
/// списка (его пользовательские колонки) и повторяет её в новом списке с
/// номером N+1. Манифесты provisioning.json request-portal при этом не читаются —
/// источник структуры сам SharePoint, поэтому дубль не может разойтись с тем, что
/// реально в списке.
///
/// Идемпотентен: список с целевым именем переиспользуется, уже существующие колонки
/// пропускаются. Повторный запуск после частичного сбоя дозаполняет недостающее, а
/// не создаёт второй список.
/// </summary>
public sealed class SharePointListProvisioner(
    ISharePointClient sharePoint,
    ILogger<SharePointListProvisioner> logger) : ISharePointListProvisioner
{
    public async Task<ProvisionedList> CreateNextListPairAsync(
        string siteUrl,
        string sourceDataListId,
        int number,
        CancellationToken cancellationToken)
    {
        var sourceData = await sharePoint.GetListByUrlAsync(siteUrl, sourceDataListId, cancellationToken)
            ?? throw new InvalidOperationException(
                $"Исходный список {sourceDataListId} не найден на {siteUrl} — дублировать нечего.");

        var newData = await CloneAsync(
            siteUrl,
            sourceData,
            ListTitleConvention.WithNumber(sourceData.Title, number),
            retarget: null,
            cancellationToken);

        await CloneApprovalPairAsync(siteUrl, sourceData, newData, number, cancellationToken);

        return new ProvisionedList(newData.ServerRelativeUrl, newData.Title);
    }

    /// <summary>
    /// Дублирует парный список согласования. Его не на что сослаться, кроме имени:
    /// в БД хранится ссылка только на список данных, а согласование ищется по
    /// конвенции — так же, как это делают портал и админка.
    /// </summary>
    private async Task CloneApprovalPairAsync(
        string siteUrl,
        SharePointListInfo sourceData,
        SharePointListInfo newData,
        int number,
        CancellationToken cancellationToken)
    {
        var sourceApprovalTitle = ListTitleConvention.ToApprovalTitle(sourceData.Title);
        if (sourceApprovalTitle is null)
        {
            logger.LogWarning(
                "Список «{Title}» не по конвенции «… — данные» — парный список согласования не дублируется.",
                sourceData.Title);
            return;
        }

        var sourceApproval = await sharePoint.GetListByTitleAsync(siteUrl, sourceApprovalTitle, cancellationToken);
        if (sourceApproval is null)
        {
            logger.LogWarning(
                "Список согласования «{Title}» не найден — дублируется только список данных.",
                sourceApprovalTitle);
            return;
        }

        await CloneAsync(
            siteUrl,
            sourceApproval,
            ListTitleConvention.WithNumber(sourceApproval.Title, number),
            // Ticket списка согласования смотрит на список данных — в дубле он должен
            // смотреть на НОВЫЙ список данных, иначе строки маршрута новых заявок
            // будут ссылаться в старый список.
            retarget: (sourceData.Id, newData.Id),
            cancellationToken);
    }

    private async Task<SharePointListInfo> CloneAsync(
        string siteUrl,
        SharePointListInfo source,
        string newTitle,
        (Guid From, Guid To)? retarget,
        CancellationToken cancellationToken)
    {
        var existing = await sharePoint.GetListByTitleAsync(siteUrl, newTitle, cancellationToken);
        var target = existing ?? await sharePoint.CreateListAsync(siteUrl, newTitle, cancellationToken);

        logger.LogInformation(
            existing is null ? "Создан список «{Title}»." : "Список «{Title}» уже существует — дозаполняю колонки.",
            newTitle);

        var sourceFields = await sharePoint.GetCustomFieldsAsync(siteUrl, source.ServerRelativeUrl, cancellationToken);
        var targetFields = await sharePoint.GetCustomFieldsAsync(siteUrl, target.ServerRelativeUrl, cancellationToken);
        var alreadyThere = targetFields.Select(x => x.InternalName).ToHashSet(StringComparer.OrdinalIgnoreCase);

        foreach (var field in sourceFields)
        {
            if (alreadyThere.Contains(field.InternalName)) continue;

            var schemaXml = retarget is null
                ? field.SchemaXml
                : RetargetLookup(field.SchemaXml, retarget.Value.From, retarget.Value.To);

            await sharePoint.AddFieldFromXmlAsync(siteUrl, target.Id, schemaXml, cancellationToken);
            logger.LogInformation("  колонка {InternalName} → «{Title}»", field.InternalName, newTitle);
        }

        return target;
    }

    /// <summary>
    /// Перенацеливает Lookup на новый список данных.
    ///
    /// Целевой список Lookup хранит в SchemaXml GUID'ом (атрибут List), поэтому
    /// подменяем именно GUID. Подменяем ТОЛЬКО ссылки на исходный список данных:
    /// кросс-формные lookup'ы (например, «организация рабочего места» ссылается на
    /// список «приема на работу») должны и дальше смотреть на список ЧУЖОЙ формы.
    /// </summary>
    private static string RetargetLookup(string schemaXml, Guid from, Guid to)
    {
        var fromText = from.ToString("D");
        return schemaXml.Contains(fromText, StringComparison.OrdinalIgnoreCase)
            ? schemaXml.Replace(fromText, to.ToString("D"), StringComparison.OrdinalIgnoreCase)
            : schemaXml;
    }
}