/*
 *  Copyright 2025 Anyware Services
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 */
package org.ametys.web.sitemap;

import java.lang.reflect.Array;
import java.util.ArrayList;
import java.util.Arrays;
import java.util.HashMap;
import java.util.List;
import java.util.Map;

import javax.jcr.Node;
import javax.jcr.Property;
import javax.jcr.RepositoryException;
import javax.jcr.Value;

import org.apache.avalon.framework.configuration.Configuration;
import org.apache.avalon.framework.configuration.ConfigurationException;
import org.apache.avalon.framework.context.Context;
import org.apache.avalon.framework.context.ContextException;
import org.apache.avalon.framework.context.Contextualizable;
import org.apache.avalon.framework.service.ServiceException;
import org.apache.avalon.framework.service.ServiceManager;
import org.apache.avalon.framework.service.Serviceable;
import org.apache.cocoon.components.ContextHelper;
import org.apache.cocoon.environment.Request;

import org.ametys.core.right.RightManager;
import org.ametys.core.util.SizeUtils.ExcludeFromSizeCalculation;
import org.ametys.plugins.repository.AmetysObjectResolver;
import org.ametys.plugins.repository.UnknownAmetysObjectException;
import org.ametys.plugins.repository.data.holder.ModelLessDataHolder;
import org.ametys.plugins.repository.data.holder.group.Composite;
import org.ametys.plugins.repository.data.holder.group.Repeater;
import org.ametys.plugins.repository.jcr.JCRAmetysObject;
import org.ametys.plugins.repository.provider.RequestAttributeWorkspaceSelector;
import org.ametys.runtime.model.type.ElementType;
import org.ametys.web.repository.page.MetadataAwareSitemapElement;
import org.ametys.web.repository.page.Page;
import org.ametys.web.repository.page.Page.PageType;
import org.ametys.web.repository.page.SitemapElement;
import org.ametys.web.repository.sitemap.Sitemap;

/**
 * Default implementation of {@link SitemapTreeIndicator}
 */
public class DefaultSitemapIndicator extends AbstractStaticSitemapIndicator implements Serviceable, Contextualizable
{
    /** The Ametys object resolver */
    @ExcludeFromSizeCalculation
    protected AmetysObjectResolver _resolver;
    /** The right manager */
    @ExcludeFromSizeCalculation
    protected RightManager _rightManager;
    
    /** The tag condition. */
    public enum Condition
    {
        /** Or condition */
        OR,
        /** And condition. */
        AND
    }
   
    private boolean _live;
    private boolean _restricted;
    private boolean _hidden;
    private List<String> _tags;
    private PageType _pageType;
    private Map<String, String> _metadata;
    private Map<String, String> _properties;
    private Condition _tagsCondition;
    private Condition _metadataCondition;
    private Condition _propertiesCondition;
    @ExcludeFromSizeCalculation
    private Context _context;
    
    @Override
    public void service(ServiceManager manager) throws ServiceException
    {
        _rightManager = (RightManager) manager.lookup(RightManager.ROLE);
        _resolver = (AmetysObjectResolver) manager.lookup(AmetysObjectResolver.ROLE);
    }
    
    public void contextualize(Context context) throws ContextException
    {
        _context = context;
    }
    
    /**
     * Create a new instance of {@link DefaultSitemapIndicator}
     * @param id the unique id
     * @param configuration the configuration
     * @param manager the service manager
     * @param context the avalon context
     * @param defaultI18nCatalog the default i18n catalogue
     * @param iconPathPrefix the prefix path for icon
     * @return the sitemap indicator
     * @throws ServiceException if an error occured while loading components
     * @throws ConfigurationException if configuraion failed
     * @throws ContextException if fail to initialize context
     */
    public static DefaultSitemapIndicator newInstance(String id, Configuration configuration, ServiceManager manager, Context context, String defaultI18nCatalog, String iconPathPrefix) throws ServiceException, ConfigurationException, ContextException
    {
        DefaultSitemapIndicator indicator = new DefaultSitemapIndicator();
        indicator.service(manager);
        indicator.contextualize(context);
        indicator.configure(id, configuration, defaultI18nCatalog, iconPathPrefix);
        return indicator;
    }
    
    @Override
    public void configure(String id, Configuration configuration, String defaultI18nCatalog, String iconPathPrefix) throws ConfigurationException
    {
        super.configure(id, configuration, defaultI18nCatalog, iconPathPrefix);
        Configuration conditionConf = configuration.getChild("conditions");
        this._tags = _configureTags(conditionConf.getChild("tags"));
        this._pageType = _configurePageType(conditionConf.getChild("type"));
        this._metadata = _configureMetadata(conditionConf.getChild("metadata"));
        this._properties = _configureProperties(conditionConf.getChild("properties"));
        this._live = conditionConf.getChild("live", false) != null;
        this._restricted = conditionConf.getChild("restricted", false) != null;
        this._hidden = conditionConf.getChild("hidden", false) != null;
    }

    @Override
    public boolean matches(SitemapElement sitemapElement)
    {
        if (sitemapElement instanceof Page page && !_matchesTags(page))
        {
            return false;
        }
        
        if (!_matchesMetadata((MetadataAwareSitemapElement) sitemapElement))
        {
            return false;
        }
        
        if (!_matchesProperties(sitemapElement))
        {
            return false;
        }
        
        if (!_matchesLive(sitemapElement))
        {
            return false;
        }
        
        PageType pageType = getPageType();
        if (pageType != null && (sitemapElement instanceof Sitemap || sitemapElement instanceof Page page && !page.getType().equals(pageType)))
        {
            return false;
        }
        
        if (isRestricted() && _rightManager.hasAnonymousReadAccess(sitemapElement))
        {
            return false;
        }
        
        if (!_matchesHidden(sitemapElement))
        {
            return false;
        }
        
        return true;
    }

    /**
     * Get the metadata condition
     * @return the metadata condition
     */
    public Condition getMetadataCondition ()
    {
        return _metadataCondition;
    }
    
    /**
     * The tags condition
     * @return The tags condition
     */
    public Condition getTagsCondition ()
    {
        return _tagsCondition;
    }
    
    /**
     * Get the metadata condition
     * @return the metadata condition
     */
    public Condition getPropertiesCondition ()
    {
        return _propertiesCondition;
    }
    
    /**
     * The tags
     * @return The tags
     */
    public List<String> getTags ()
    {
        return _tags;
    }
    
    /**
     * The page type
     * @return The page type
     */
    public PageType getPageType ()
    {
        return _pageType;
    }
    
    /**
     * Determines the live version
     * @return true if this icon is for live version
     */
    public boolean isLive ()
    {
        return _live;
    }
    
    /**
     * Determines the limited access
     * @return true if this icon is for page with limited access
     */
    public boolean isRestricted ()
    {
        return _restricted;
    }
    
    /**
     * Determines the hidden status
     * @return true if this icon is for page with hidden status
     */
    public boolean isHidden ()
    {
        return _hidden;
    }
    
    /**
     * Get metadata
     * @return the metadata
     */
    public Map<String, String> getMetadata ()
    {
        return this._metadata;
    }
    
    /**
     * Get properties
     * @return the properties
     */
    public Map<String, String> getProperties ()
    {
        return this._properties;
    }
    
    private List<String> _configureTags (Configuration tagsConf) throws ConfigurationException
    {
        List<String> tags = new ArrayList<>();
        
        this._tagsCondition = Condition.valueOf(tagsConf.getAttribute("type", "AND").toUpperCase());
        
        Configuration[] children = tagsConf.getChildren("tag");
        for (Configuration child : children)
        {
            tags.add(child.getValue());
        }
        return tags;
    }
    
    private PageType _configurePageType (Configuration child)
    {
        String value = child.getValue(null);
        return value != null ? PageType.valueOf(value.toUpperCase()) : null;
    }
    
    private Map<String, String> _configureMetadata (Configuration metadataConf) throws ConfigurationException
    {
        Map<String, String> metadata = new HashMap<>();
        
        this._metadataCondition = Condition.valueOf(metadataConf.getAttribute("type", "AND").toUpperCase());
        
        Configuration[] children = metadataConf.getChildren("metadata");
        for (Configuration child : children)
        {
            metadata.put(child.getAttribute("name"), child.getValue(""));
        }
        return metadata;
    }
    
    private Map<String, String> _configureProperties (Configuration propConf) throws ConfigurationException
    {
        Map<String, String> properties = new HashMap<>();
        
        this._propertiesCondition = Condition.valueOf(propConf.getAttribute("type", "AND").toUpperCase());
        
        Configuration[] children = propConf.getChildren("property");
        for (Configuration child : children)
        {
            properties.put(child.getAttribute("name"), child.getValue(""));
        }
        return properties;
    }
    
    private boolean _matchesTags (Page page)
    {
        List<String> tags = getTags();
        
        if (!tags.isEmpty())
        {
            Condition condition = getTagsCondition();
            if (condition == Condition.AND)
            {
                return page.getTags().containsAll(tags);
            }
            else if (condition == Condition.OR)
            {
                for (String tagName : tags)
                {
                    if (page.getTags().contains(tagName))
                    {
                        return true;
                    }
                }
                return false;
            }
        }
        return true;
    }

    private boolean _matchesMetadata (MetadataAwareSitemapElement page)
    {
        Map<String, String> metadata = getMetadata();
        if (!metadata.isEmpty())
        {
            Condition condition = getMetadataCondition();
            if (condition == Condition.AND)
            {
                return _matchesAndData(metadata, page);
            }
            else if (condition == Condition.OR)
            {
                return _matchesOrData(metadata, page);
            }
        }
        return true;
    }
    
    private boolean _matchesProperties (SitemapElement page)
    {
        Map<String, String> properties = getProperties();
        if (!properties.isEmpty())
        {
            Condition condition = getMetadataCondition();
            if (condition == Condition.AND)
            {
                return _matchesAndProperties(properties, page);
            }
            else if (condition == Condition.OR)
            {
                return _matchesOrProperties(properties, page);
            }
        }
        return true;
    }
    
    private boolean _matchesAndProperties (Map<String, String> properties, SitemapElement page)
    {
        if (!(page instanceof JCRAmetysObject))
        {
            return properties.size() == 0;
        }
        
        JCRAmetysObject jcrPage = (JCRAmetysObject) page;
        Node node = jcrPage.getNode();
        
        try
        {
            for (String propertyName : properties.keySet())
            {
                String valueToTest = properties.get(propertyName);
                
                if (!node.hasProperty(propertyName))
                {
                    // property does not exits
                    return false;
                }
                
                Property property = node.getProperty(propertyName);
                if (property.getDefinition().isMultiple())
                {
                    Value[] values = property.getValues();
                    if (valueToTest.length() > 0 && values.length == 0)
                    {
                        // metadata exits but is empty
                        return false;
                    }
                    else if (valueToTest.length() > 0)
                    {
                        String[] results = new String[values.length];
                        for (int i = 0; i < values.length; i++)
                        {
                            Value value = values[i];
                            results[i] = value.getString();
                        }
                        
                        List<String> asList = Arrays.asList(results);
                        String[] valuesToTest = valueToTest.split(",");
                        for (String val : valuesToTest)
                        {
                            if (!asList.contains(val))
                            {
                                // values do not contain all test values
                                return false;
                            }
                        }
                    }
                }
                else
                {
                    String value = property.getValue().getString();
                    if (valueToTest.length() > 0 && !valueToTest.equals(value))
                    {
                        // value is not equals to test value
                        return false;
                    }
                }
            }
        }
        catch (RepositoryException e)
        {
            getLogger().error("An error occurred while testing properties", e);
            return false;
        }
        return true;
    }
    
    private boolean _matchesOrProperties (Map<String, String> properties, SitemapElement page)
    {
        if (!(page instanceof JCRAmetysObject))
        {
            return properties.size() == 0;
        }
        
        JCRAmetysObject jcrPage = (JCRAmetysObject) page;
        Node node = jcrPage.getNode();
        
        try
        {
            for (String propertyName : properties.keySet())
            {
                String valueToTest = properties.get(propertyName);
                
                if (node.hasProperty(propertyName))
                {
                    Property property = node.getProperty(propertyName);
                    if (property.getDefinition().isMultiple())
                    {
                        Value[] values = property.getValues();
                        if (valueToTest.length() == 0 && values.length > 0)
                        {
                            // multiple metadata exists and is not empty
                            return true;
                        }
                        else if (valueToTest.length() != 0)
                        {
                            String[] results = new String[values.length];
                            for (int i = 0; i < values.length; i++)
                            {
                                Value value = values[i];
                                results[i] = value.getString();
                            }
                            
                            List<String> asList = Arrays.asList(results);
                            String[] valuesToTest = valueToTest.split(",");
                            boolean findAll = true;
                            for (String val : valuesToTest)
                            {
                                if (!asList.contains(val))
                                {
                                    findAll = false;
                                }
                            }
                            if (findAll)
                            {
                                // values contain all test values
                                return true;
                            }
                        }
                    }
                    else
                    {
                        String value = property.getString();
                        if (valueToTest.length() == 0 || valueToTest.equals(value))
                        {
                            // value is equals to test value
                            return true;
                        }
                    }
                }
            }
        }
        catch (RepositoryException e)
        {
            getLogger().error("An error occurred while testing properties", e);
            return false;
        }
        
        return false;
    }
    
    private boolean _matchesLive(SitemapElement sitemapElement)
    {
        if (isLive())
        {
            if (sitemapElement instanceof Sitemap)
            {
                return true;
            }
            else if (sitemapElement instanceof Page page)
            {
                Request request = ContextHelper.getRequest(_context);
                String currentWp = RequestAttributeWorkspaceSelector.getForcedWorkspace(request);
                try
                {
                    RequestAttributeWorkspaceSelector.setForcedWorkspace(request, "live");
                    _resolver.resolveById(page.getId());
                }
                catch (UnknownAmetysObjectException e)
                {
                    return false;
                }
                finally
                {
                    RequestAttributeWorkspaceSelector.setForcedWorkspace(request, currentWp);
                }
                return true;
            }
        }
        
        return true;
    }
    
    @SuppressWarnings("unchecked")
    private boolean _matchesAndData (Map<String, String> data, ModelLessDataHolder dataHolder)
    {
        for (String dataPath : data.keySet())
        {
            if (!dataHolder.hasValueOrEmpty(dataPath))
            {
                // data does not exits
                return false;
            }
            
            Object value = dataHolder.getValue(dataPath);
            
            if (value instanceof Composite)
            {
                if (((Composite) value).getDataNames().isEmpty())
                {
                    // the composite data is empty
                    return false;
                }
            }
            else if (value instanceof Repeater)
            {
                if (((Repeater) value).getSize() <= 0)
                {
                    // the repeater is empty
                    return false;
                }
            }
            else
            {
                String valueToTest = data.get(dataPath);
                if (!valueToTest.isEmpty() && !dataHolder.hasValue(dataPath))
                {
                    // data exits but is empty
                    return false;
                }
                else if (!valueToTest.isEmpty())
                {
                    ElementType type = (ElementType) dataHolder.getType(dataPath);
                    if (dataHolder.isMultiple(dataPath))
                    {
                        if (!_findAllValuesInMultipleData(valueToTest, value, type))
                        {
                            // value does not contain all test values
                            return false;
                        }
                    }
                    else
                    {
                        if (!valueToTest.equals(type.toString(value)))
                        {
                            // value is not equals to test value
                            return false;
                        }
                    }
                }
            }
        }
        
        // All data have matched
        return true;
    }
    
    private boolean _matchesOrData (Map<String, String> data, ModelLessDataHolder dataHolder)
    {
        for (String dataPath : data.keySet())
        {
            if (_matchesOrData(dataPath, data, dataHolder))
            {
                return true;
            }
        }
        
        return false;
    }
    
    @SuppressWarnings("unchecked")
    private boolean _matchesOrData (String dataPath, Map<String, String> data, ModelLessDataHolder dataHolder)
    {
        if (!dataHolder.hasValueOrEmpty(dataPath))
        {
            // data does not exists
            return false;
        }
        
        Object value = dataHolder.getValue(dataPath);
        
        if (value instanceof Composite)
        {
            if (!((Composite) value).getDataNames().isEmpty())
            {
                // composite data is not empty, the condition matched
                return true;
            }
        }
        else if (value instanceof Repeater)
        {
            if (((Repeater) value).getSize() > 0)
            {
                // repeater data is not empty, the condition matched
                return true;
            }
        }
        else
        {
            String valueToTest = data.get(dataPath);
            if (valueToTest.isEmpty())
            {
                // No data to test
                return true;
            }
            else if (dataHolder.hasValue(dataPath))
            {
                ElementType type = (ElementType) dataHolder.getType(dataPath);
                if (dataHolder.isMultiple(dataPath))
                {
                    if (_findAllValuesInMultipleData(valueToTest, value, type))
                    {
                        // values contain all test values
                        return true;
                    }
                }
                else if (valueToTest.equals(type.toString(value)))
                {
                    // value is equals to test value
                    return true;
                }
            }
        }
        
        return false;
    }
    
    private boolean _matchesHidden(SitemapElement sitemapElement)
    {
        if (isHidden())
        {
            return sitemapElement instanceof Page page && !page.isVisible();
        }
        
        return true;
    }
    
    private boolean _findAllValuesInMultipleData(String valueToTest, Object valueFromDataHolder, ElementType type)
    {
        List<String> valuesFromDataHolderAsString = new ArrayList<>();
        for (int i = 0; i < Array.getLength(valueFromDataHolder); i++)
        {
            @SuppressWarnings("unchecked")
            String valueAsString = type.toString(Array.get(valueFromDataHolder, i));
            valuesFromDataHolderAsString.add(valueAsString);
        }
        
        String[] valuesToTest = valueToTest.split(",");
        for (String value : valuesToTest)
        {
            if (!valuesFromDataHolderAsString.contains(value))
            {
                return false;
            }
        }
        
        return true;
    }
}