<?php
ini_set('log_errors', 1);
ini_set('error_log', __DIR__ . '/routine_debug.log');

function applyRoutine(&$excelData, $routineData)
{
    try {
        // Initial log
        error_log("Inizio esecuzione routine Moncler: " . date('Y-m-d H:i:s'));
        error_log("Dati routine: " . print_r($routineData, true));
        error_log("Dati excel_data: " . print_r($excelData, true));

        // Check if excelData is empty
        if (empty($excelData)) {
            throw new Exception("excelData è vuoto o non valido.");
        }

        // Extract routine settings with default values
        $action1 = trim($routineData['action1'] ?? 'K');
        $action2 = trim($routineData['action2'] ?? 'STYLE CODE + STYLE DESCRIPTION');
        $action3 = trim($routineData['action3'] ?? 'STYLE CODE');
        $action4 = trim($routineData['action4'] ?? 'STYLE DESCRIPTION');
        $headers = $routineData['xls_headers'] ?? [];

        // Package-related headers
        $package_header = 'PACKAGE';
        $other_test_header = 'Other test from Control Matrix';
        $only_colorfastness_header = 'Only Colorfastness package';
        $only_chemical_header = 'Only Chemical package';

        if (empty($headers)) {
            throw new Exception("Nessun header trovato per la routine Moncler.");
        }

        // If headers arrive as JSON string, decode them
        if (!is_array($headers) && is_string($headers)) {
            $decoded_headers = json_decode($headers, true);
            if (json_last_error() === JSON_ERROR_NONE && is_array($decoded_headers)) {
                $headers = $decoded_headers;
            }
        }

        if (!is_array($headers) || empty($headers)) {
            throw new Exception("Gli header della routine non sono validi.");
        }

        error_log("Header ricevuti: " . print_r($headers, true));

        // Normalize headers
        $normalized_headers = array_map(function ($header) {
            return trim((string)$header);
        }, $headers);

        error_log("Header normalizzati: " . print_r($normalized_headers, true));
        error_log("Action values - action1: '$action1', action2: '$action2', action3: '$action3', action4: '$action4'");

        // Find package-related column indexes
        $package_index = array_search($package_header, $normalized_headers, true);
        $other_test_index = array_search($other_test_header, $normalized_headers, true);
        $only_colorfastness_index = array_search($only_colorfastness_header, $normalized_headers, true);
        $only_chemical_index = array_search($only_chemical_header, $normalized_headers, true);

        if ($package_index === false) {
            throw new Exception("Colonna PACKAGE non trovata.");
        }

        error_log(
            "Indici package - PACKAGE: " . var_export($package_index, true) .
                ", Other test from Control Matrix: " . var_export($other_test_index, true) .
                ", Only Colorfastness package: " . var_export($only_colorfastness_index, true) .
                ", Only Chemical package: " . var_export($only_chemical_index, true)
        );

        /**
         * PART 1
         * Aggregate rows by action1 and split action2 into action3 + action4
         * If it fails, continue with PART 2 only
         */
        $part1_applied = false;

        $action1_index = array_search($action1, $normalized_headers, true);
        $action2_index = array_search($action2, $normalized_headers, true);
        $action3_index = array_search($action3, $normalized_headers, true);
        $action4_index = array_search($action4, $normalized_headers, true);

        if ($action1_index === false || $action2_index === false || $action3_index === false || $action4_index === false) {
            error_log(
                "Unable to apply routine part 1. Package merge logic has been applied only. " .
                    "Missing columns - action1: '$action1' (index: " . var_export($action1_index, true) . ")" .
                    ", action2: '$action2' (index: " . var_export($action2_index, true) . ")" .
                    ", action3: '$action3' (index: " . var_export($action3_index, true) . ")" .
                    ", action4: '$action4' (index: " . var_export($action4_index, true) . ")"
            );
        } else {
            error_log("Indici colonne part 1 - action1: $action1_index, action2: $action2_index, action3: $action3_index, action4: $action4_index");

            $grouped_data = [];

            foreach ($excelData as $row) {
                if (!isset($row['data']) || !is_array($row['data'])) {
                    error_log("Riga non valida, manca 'data' per excelrow " . ($row['excelrow'] ?? 'N/A'));
                    continue;
                }

                $key = $row['data'][$action1_index] ?? '';
                $key = trim((string)$key);
                $key = $key === '' ? '_empty_' : $key;

                if (!isset($grouped_data[$key])) {
                    $grouped_data[$key] = [
                        'data' => $row['data'],
                        'excelrow' => [($row['excelrow'] ?? '')],
                        'style_codes' => [],
                        'style_descriptions' => []
                    ];
                } else {
                    $grouped_data[$key]['excelrow'][] = ($row['excelrow'] ?? '');
                }

                // Split STYLE CODE + STYLE DESCRIPTION
                $action2_value = trim((string)($row['data'][$action2_index] ?? ''));

                if ($action2_value !== '') {
                    $parts = explode(' - ', $action2_value, 2);
                    $style_code = trim((string)($parts[0] ?? ''));
                    $style_description = trim((string)($parts[1] ?? ''));

                    if ($style_code !== '') {
                        $grouped_data[$key]['style_codes'][] = $style_code;
                    }
                    if ($style_description !== '') {
                        $grouped_data[$key]['style_descriptions'][] = $style_description;
                    }
                } else {
                    error_log("Valore vuoto in action2 per excelrow " . ($row['excelrow'] ?? 'N/A'));
                }
            }

            $new_excel_data = [];

            foreach ($grouped_data as $key => $group) {
                $row_data = $group['data'];

                // Update STYLE CODE and STYLE DESCRIPTION with aggregated unique values
                $row_data[$action3_index] = implode(' - ', array_unique($group['style_codes']));
                $row_data[$action4_index] = implode(' - ', array_unique($group['style_descriptions']));

                // Concatenate excelrow values with "+"
                $excelrow_clean = array_filter($group['excelrow'], function ($value) {
                    return $value !== null && $value !== '';
                });

                $excelrow_value = count($excelrow_clean) > 1
                    ? implode('+', $excelrow_clean)
                    : (reset($excelrow_clean) ?: '');

                $new_excel_data[] = [
                    'data' => $row_data,
                    'excelrow' => $excelrow_value
                ];
            }

            $excelData = $new_excel_data;
            $part1_applied = true;

            error_log("Routine part 1 completata - Righe aggregate: " . count($new_excel_data));
            error_log("Excelrow aggregati part 1: " . print_r(array_column($new_excel_data, 'excelrow'), true));
        }

        /**
         * PART 2
         * Merge package-related columns into PACKAGE
         * Always applied if PACKAGE exists
         */
        foreach ($excelData as $index => $row) {
            if (!isset($row['data']) || !is_array($row['data'])) {
                error_log("Riga non valida nella part 2, manca 'data' all'indice $index");
                continue;
            }

            $package_values = [];

            $value_package = trim((string)($row['data'][$package_index] ?? ''));
            $value_other_test = $other_test_index !== false ? trim((string)($row['data'][$other_test_index] ?? '')) : '';
            $value_only_colorfastness = $only_colorfastness_index !== false ? trim((string)($row['data'][$only_colorfastness_index] ?? '')) : '';
            $value_only_chemical = $only_chemical_index !== false ? trim((string)($row['data'][$only_chemical_index] ?? '')) : '';

            if ($value_package !== '') {
                $package_values[] = $value_package;
            }
            if ($value_other_test !== '') {
                $package_values[] = $value_other_test;
            }
            if ($value_only_colorfastness !== '') {
                $package_values[] = $value_only_colorfastness;
            }
            if ($value_only_chemical !== '') {
                $package_values[] = $value_only_chemical;
            }

            $package_values = array_unique($package_values);

            $excelData[$index]['data'][$package_index] = implode(' - ', $package_values);
        }

        error_log("Routine part 2 completata - Merge package applicato su " . count($excelData) . " righe");

        if (!$part1_applied) {
            error_log("Warning finale: routine part 1 non applicata, routine part 2 applicata correttamente");
        }

        error_log("Routine Moncler completata con successo");
    } catch (Exception $e) {
        error_log("Eccezione nella routine Moncler: " . $e->getMessage());
        throw $e;
    }
}