/*
 * Copyright 2019-present Open Networking Foundation
 *
 * 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.onosproject.provider.general.device.impl;

import com.google.common.collect.Maps;
import com.google.common.util.concurrent.Striped;
import org.onosproject.mastership.MastershipEvent;
import org.onosproject.mastership.MastershipListener;
import org.onosproject.mastership.MastershipService;
import org.onosproject.net.Device;
import org.onosproject.net.DeviceId;
import org.onosproject.net.device.DeviceEvent;
import org.onosproject.net.device.DeviceListener;
import org.onosproject.net.device.DeviceProviderService;
import org.onosproject.net.device.DeviceService;
import org.onosproject.net.device.PortStatistics;
import org.onosproject.net.device.PortStatisticsDiscovery;
import org.slf4j.Logger;

import java.security.SecureRandom;
import java.util.Collection;
import java.util.Map;
import java.util.Objects;
import java.util.concurrent.ScheduledExecutorService;
import java.util.concurrent.ScheduledFuture;
import java.util.concurrent.TimeUnit;
import java.util.concurrent.locks.Lock;

import static com.google.common.base.Preconditions.checkArgument;
import static java.util.concurrent.Executors.newScheduledThreadPool;
import static org.onlab.util.Tools.groupedThreads;
import static org.onosproject.provider.general.device.impl.GeneralDeviceProvider.myScheme;
import static org.slf4j.LoggerFactory.getLogger;

/**
 * Component devoted to polling stats from devices managed by the
 * GeneralDeviceProvider.
 */
public class StatsPoller {

    private static final int CORE_POOL_SIZE = 5;

    private final Logger log = getLogger(getClass());

    private final DeviceService deviceService;
    private final MastershipService mastershipService;
    private final DeviceProviderService providerService;

    private final InternalDeviceListener deviceListener = new InternalDeviceListener();
    private final MastershipListener mastershipListener = new InternalMastershipListener();
    private final Striped<Lock> deviceLocks = Striped.lock(30);

    private ScheduledExecutorService statsExecutor;
    private Map<DeviceId, ScheduledFuture<?>> statsPollingTasks;
    private Map<DeviceId, Integer> pollFrequencies;
    private int statsPollInterval;

    StatsPoller(DeviceService deviceService, MastershipService mastershipService,
                DeviceProviderService providerService) {
        this.deviceService = deviceService;
        this.mastershipService = mastershipService;
        this.providerService = providerService;
    }


    void activate(int statsPollInterval) {
        checkArgument(statsPollInterval > 0, "statsPollInterval must be greater than 0");
        this.statsPollInterval = statsPollInterval;
        statsExecutor = newScheduledThreadPool(CORE_POOL_SIZE, groupedThreads(
                "onos/gdp-stats", "%d", log));
        statsPollingTasks = Maps.newHashMap();
        pollFrequencies = Maps.newHashMap();
        deviceService.getDevices().forEach(d -> updatePollingTask(d.id()));
        deviceService.addListener(deviceListener);
        mastershipService.addListener(mastershipListener);
        log.info("Started");
    }

    void reschedule(int statsPollInterval) {
        checkArgument(statsPollInterval > 0, "statsPollInterval must be greater than 0");
        this.statsPollInterval = statsPollInterval;
        statsPollingTasks.keySet().forEach(this::updatePollingTask);
    }

    void deactivate() {
        deviceService.removeListener(deviceListener);
        mastershipService.removeListener(mastershipListener);

        statsPollingTasks.values().forEach(t -> t.cancel(false));
        statsPollingTasks.clear();
        pollFrequencies.clear();
        statsPollingTasks = null;
        pollFrequencies = null;

        statsExecutor.shutdownNow();
        try {
            statsExecutor.awaitTermination(5, TimeUnit.SECONDS);
        } catch (InterruptedException e) {
            log.warn("statsExecutor not terminated properly");
        }
        statsExecutor = null;

        log.info("Stopped");
    }


    private void updatePollingTask(DeviceId deviceId) {
        deviceLocks.get(deviceId).lock();
        try {
            final ScheduledFuture<?> existingTask = statsPollingTasks.get(deviceId);
            final boolean shouldHaveTask = deviceService.getDevice(deviceId) != null
                    && deviceService.isAvailable(deviceId)
                    && mastershipService.isLocalMaster(deviceId)
                    && deviceService.getDevice(deviceId).is(PortStatisticsDiscovery.class);
            final boolean pollFrequencyChanged = !Objects.equals(
                    pollFrequencies.get(deviceId), statsPollInterval);

            if (existingTask != null && (!shouldHaveTask || pollFrequencyChanged)) {
                existingTask.cancel(false);
                statsPollingTasks.remove(deviceId);
                pollFrequencies.remove(deviceId);
                log.info("Cancelled polling task for {}", deviceId);
            }

            if (shouldHaveTask) {
                final int delay = new SecureRandom().nextInt(statsPollInterval);
                statsPollingTasks.put(deviceId, statsExecutor.scheduleAtFixedRate(
                        exceptionSafe(() -> updatePortStatistics(deviceId)),
                        delay, statsPollInterval, TimeUnit.SECONDS));
                pollFrequencies.put(deviceId, statsPollInterval);
                log.info("Started polling task for {} with interval {} seconds",
                         deviceId, statsPollInterval);
            }
        } finally {
            deviceLocks.get(deviceId).unlock();
        }
    }

    private void updatePortStatistics(DeviceId deviceId) {
        final Device device = deviceService.getDevice(deviceId);
        final Collection<PortStatistics> statistics = device.as(
                PortStatisticsDiscovery.class).discoverPortStatistics();
        if (!statistics.isEmpty()) {
            providerService.updatePortStatistics(deviceId, statistics);
        }
    }

    private Runnable exceptionSafe(Runnable runnable) {
        return () -> {
            try {
                runnable.run();
            } catch (Exception e) {
                log.error("Unhandled exception in stats poller", e);
            }
        };
    }

    private class InternalMastershipListener implements MastershipListener {

        @Override
        public void event(MastershipEvent event) {
            updatePollingTask(event.subject());
        }

        @Override
        public boolean isRelevant(MastershipEvent event) {
            return event.type() == MastershipEvent.Type.MASTER_CHANGED
                    && myScheme(event.subject());
        }
    }

    /**
     * Listener for core device events.
     */
    private class InternalDeviceListener implements DeviceListener {
        @Override
        public void event(DeviceEvent event) {
            updatePollingTask(event.subject().id());
        }

        @Override
        public boolean isRelevant(DeviceEvent event) {
            switch (event.type()) {
                case DEVICE_ADDED:
                case DEVICE_UPDATED:
                case DEVICE_AVAILABILITY_CHANGED:
                case DEVICE_REMOVED:
                case DEVICE_SUSPENDED:
                    return myScheme(event.subject().id());
                default:
                    return false;
            }
        }
    }
}