<?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.");
        }
        error_log("Header ricevuti: " . print_r($headers, true));

        // Normalize headers
        $normalized_headers = array_map('trim', $headers);
        error_log("Header normalizzati: " . print_r($normalized_headers, true));
        error_log("Action values - action1: '$action1', action2: '$action2', action3: '$action3', action4: '$action4'");

        // Find column indexes
        $action1_index = array_search($action1, $normalized_headers);
        $action2_index = array_search($action2, $normalized_headers);
        $action3_index = array_search($action3, $normalized_headers);
        $action4_index = array_search($action4, $normalized_headers);

        $package_index = array_search($package_header, $normalized_headers);
        $other_test_index = array_search($other_test_header, $normalized_headers);
        $only_colorfastness_index = array_search($only_colorfastness_header, $normalized_headers);
        $only_chemical_index = array_search($only_chemical_header, $normalized_headers);

        if ($action1_index === false || $action2_index === false || $action3_index === false || $action4_index === false) {
            throw new Exception(
                "Colonne non trovate - 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) . ")"
            );
        }

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

        error_log("Indici colonne - action1: $action1_index, action2: $action2_index, action3: $action3_index, action4: $action4_index");
        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));

        // Group rows by action1 value
        $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']}");
                continue;
            }

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

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

            // Split STYLE CODE + STYLE DESCRIPTION
            $action2_value = $row['data'][$action2_index] ?? '';
            if (!empty($action2_value)) {
                $parts = explode(' - ', trim($action2_value), 2);
                $style_code = $parts[0] ?? '';
                $style_description = $parts[1] ?? '';

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

            // Collect values to merge into PACKAGE
            $package_values = [];

            if ($package_index !== false) {
                $package_values[] = trim((string)($row['data'][$package_index] ?? ''));
            }
            if ($other_test_index !== false) {
                $package_values[] = trim((string)($row['data'][$other_test_index] ?? ''));
            }
            if ($only_colorfastness_index !== false) {
                $package_values[] = trim((string)($row['data'][$only_colorfastness_index] ?? ''));
            }
            if ($only_chemical_index !== false) {
                $package_values[] = trim((string)($row['data'][$only_chemical_index] ?? ''));
            }

            foreach ($package_values as $package_value) {
                if ($package_value !== '') {
                    $grouped_data[$key]['packages'][] = $package_value;
                }
            }
        }

        // Build the new aggregated excel_data array
        $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']));

            // Merge PACKAGE-related columns into PACKAGE
            $row_data[$package_index] = implode(' - ', array_unique($group['packages']));

            // Concatenate excelrow values with "+"
            $excelrow_value = count($group['excelrow']) > 1 ? implode('+', $group['excelrow']) : $group['excelrow'][0];

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

        // Modify excelData in-place
        $excelData = $new_excel_data;

        error_log("Routine Moncler completata - Righe aggregate: " . count($new_excel_data));
        error_log("Excelrow aggregati: " . print_r(array_column($new_excel_data, 'excelrow'), true));
    } catch (Exception $e) {
        error_log("Eccezione nella routine Moncler: " . $e->getMessage());
        throw $e;
    }
}