<?php

/**
 * YamlDiscovery.php
 *
 * -Description-
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 *
 * @link       https://www.librenms.org
 *
 * @copyright  2017 Tony Murray
 * @author     Tony Murray <murraytony@gmail.com>
 */

namespace LibreNMS\Device;

use App\Facades\LibrenmsConfig;
use App\View\SimpleTemplate;
use Illuminate\Support\Arr;
use Illuminate\Support\Facades\Log;
use Illuminate\Support\Str;
use LibreNMS\Interfaces\Discovery\DiscoveryItem;
use LibreNMS\OS;
use LibreNMS\Util\Compare;
use LibreNMS\Util\IP;
use LibreNMS\Util\Oid;
use SnmpQuery;

class YamlDiscovery
{
    /**
     * @param  OS  $os
     * @param  DiscoveryItem|string  $class
     * @param  array  $yaml_data
     * @return array
     */
    public static function discover(OS $os, $class, $yaml_data)
    {
        $pre_cache = $os->preCache();
        $items = [];

        // convert to class name for static call below
        if (is_object($class)) {
            $class = $class::class;
        }

        d_echo('YAML Discovery Data: ');
        d_echo($yaml_data);

        foreach ($yaml_data as $first_key => $first_yaml) {
            if ($first_key == 'pre-cache' || $first_key == 'additional_oids') {
                continue;
            }

            $group_options = $first_yaml['options'] ?? [];

            // find the data array, we could already be at for simple modules
            if (isset($data['data'])) {
                $first_yaml = $first_yaml['data'];
            } elseif ($first_key !== 'data') {
                continue;
            }

            foreach ($first_yaml as $data) {
                $raw_data = (array) $pre_cache[$data['oid']];

                d_echo("Data {$data['oid']}: ");
                d_echo($raw_data);

                $count = 0;
                foreach ($raw_data as $index => $snmp_data) {
                    $count++;
                    $current_data = [];

                    // fall back to the fetched oid if value is not specified.  Useful for non-tabular data.
                    if (! isset($data['value'])) {
                        $data['value'] = $data['oid'];
                    }

                    // determine numeric oid automatically if not specified
                    if (! isset($data['num_oid'])) {
                        try {
                            $data['num_oid'] = static::computeNumericalOID($os, $data);
                        } catch (\Exception) {
                            d_echo('Error: We cannot find a numerical OID for ' . $data['value'] . '. Skipping this one...');
                            continue;
                        }
                    }

                    foreach ($data as $name => $value) {
                        if (! in_array($name, ['oid', 'skip_values', 'snmp_flags', 'rrd_type'])) {
                            $current_data[$name] = self::fillValues($name, $index, $data, $count, $pre_cache, $value);
                        } else {
                            $current_data[$name] = $value;
                        }
                    }

                    if (static::canSkipItem($current_data['value'], $index, $current_data, $group_options, $snmp_data)) {
                        continue;
                    }

                    $item = $class::fromYaml($os, $index, $current_data);

                    if ($item->isValid()) {
                        $items[] = $item;
                    }
                }
            }
        }

        return $items;
    }

    /**
     * @param  string  $name  The oid of the value we are searching for
     * @param  int|string  $index  The index of the current entity we are searching from
     * @param  array  $discovery_data  The yaml discovery data
     * @param  int  $count  The count of where we are in the discovery data
     * @param  array  $pre_cache  Data that has been previously fetched (should contain all snmp data)
     * @param  int|string|null  $value  The current value of the data that we might need to transform (or return as is)
     * @return mixed
     */
    public static function fillValues($name, $index, $discovery_data, $count, $pre_cache, $value): mixed
    {
        if (str_contains((string) $value, '{{')) {
            // replace embedded values
            return static::replaceValues($name, $index, $count, $discovery_data, $pre_cache);
        } elseif (! str_contains((string) $value, ' ')) {
            // replace references to data
            return static::getValueFromData($name, $index, $discovery_data, $pre_cache, $value);
        }

        return $value;
    }

    /**
     * @param  OS  $os  OS/device we are working on
     * @param  array  $data  Array derived from YAML
     * @return string
     *
     * @throws \LibreNMS\Exceptions\InvalidOidException
     */
    public static function computeNumericalOID(OS $os, array $data): string
    {
        d_echo('Info: Trying to find a numerical OID for ' . $data['value'] . '.');
        $search_mib = $os->getDiscovery()['mib'];
        $mib_prefix_data_oid = Str::before($data['oid'], '::');
        if (! empty($mib_prefix_data_oid) && empty(Str::before($data['value'], '::'))) {
            // We should search value in this mib first, as it is explicitely specified
            $search_mib = $mib_prefix_data_oid . ':' . $search_mib;
        }

        try {
            $num_oid = Oid::of($data['value'])->toNumeric($search_mib);
        } catch (\Exception $e) {
            throw $e;
        }

        d_echo('Info: We found numerical oid for ' . $data['value'] . ': ' . $num_oid);

        return $num_oid . '.{{ $index }}';
    }

    /**
     * @param  string  $name  Name of the field in yaml
     * @param  string  $index  index in the snmp table
     * @param  int  $count  current count of snmp table entries
     * @param  array  $def  yaml definition
     * @param  array  $pre_cache  snmp data fetched from device
     * @return mixed|string|string[]|null
     */
    public static function replaceValues($name, $index, $count, $def, $pre_cache = [])
    {
        $value = static::getValueFromData($name, $index, $def, $pre_cache);

        if (is_null($value)) {
            // basic replacements
            $variables = [
                'index' => $index,
                'count' => $count,
            ];
            foreach (explode('.', $index) as $pos => $subindex) {
                $variables['subindex' . $pos] = $subindex;
            }

            // try simple replacement first
            if (isset($def['oid']) && isset($pre_cache[$def['oid']][$index]) && is_array($pre_cache[$def['oid']][$index])) {
                $variables = array_merge($variables, $pre_cache[$def['oid']][$index]);
            }

//            if($pre_cache) dd($pre_cache, $def);
            $value = (string) (new SimpleTemplate($def[$name] ?? '', $variables))->keepEmptyTemplates();

            // search discovery data for values
            $template = new SimpleTemplate($value);
            $template->replaceWith(function ($matches) use ($index, $def, $pre_cache) {
                // convert the numeric index to a string
                if (str_starts_with((string) $matches[1], 'index_string')) {
                    $format = str_contains((string) $matches[1], ':') ? substr((string) $matches[1], 12) : 's';

                    return Oid::stringFromOid($index, $format);
                }

                $replace = static::getValueFromData($matches[1], $index, $def, $pre_cache);
                if (is_null($replace)) {
                    // allow parsing of InetAddress hex data representing ipv4 or ipv6
                    // using {{ $InetAddress_varNameContainingHexIpAddrOfTypeInetAddress }}
                    // -Ih flag screew up HEX string that contain only printable chars, use at minimum -Ox, and remove -Ih use for exemple:
                    // snmp_flags: '-OteQUsax'
                    // snmp_no_Ih_flag: ''
                    if (str_starts_with((string) $matches[1], 'InetAddress_')) {
                        $inetaddr = explode('_', (string) $matches[1]);
                        if (count($inetaddr) == 2) {
                            return IP::fromHexString(static::getValueFromData($inetaddr[1], $index, $def, $pre_cache), true);
                        }
                    }
                    Log::debug('YamlDiscovery: No variable available to replace ' . $matches[1] . ' index: ' . $index);

                    return ''; // remove the unavailable variable
                }

                return $replace;
            });

            return (string) $template;
        }

        return $value;
    }

    /**
     * Helper function for dynamic discovery to search for data from pre_cached snmp data
     *
     * @param  string  $name  The name of the field from the discovery data or just an oid
     * @param  string|int  $index  The index of the current sensor
     * @param  array  $discovery_data  The discovery data for the current sensor
     * @param  array  $pre_fetched  all pre-fetched snmp data
     * @param  mixed  $default  The default value to return if data is not found
     * @return mixed
     */
    public static function getValueFromData($name, $index, $discovery_data, $pre_fetched, $default = null)
    {
        if (isset($discovery_data[$name])) {
            $name = $discovery_data[$name];
        }

        if (isset($discovery_data['oid']) && ! is_array($discovery_data['oid']) && isset($pre_fetched[$discovery_data['oid']][$index]) && isset($pre_fetched[$discovery_data['oid']][$index][$name])) {
            $value = $pre_fetched[$discovery_data['oid']][$index][$name];
            Log::debug("Using $value from \$pre_cache[\$discovery_data['oid']][$index][$name] for $name");

            return $value;
        }

        // if index is 0 and this is a scalar value, remove the scalar .0
        if ($index == 0 && str_ends_with((string) $name, '.0') && ! Oid::of($name)->isNumeric()) {
            $name = substr((string) $name, 0, -2);
        }

        if (isset($pre_fetched[$index][$name])) {
            $value = $pre_fetched[$index][$name];
            Log::debug("Using $value from \$pre_cache[$index][$name] for $name");

            return $value;
        }

        // parse sub_index options name with trailing colon and index
        if (preg_match('/^(.+):(\d+)(?:-(\d+))?$/', (string) $name, $matches)) {
            // subindex found
            $name = $matches[1];

            //create the sub-index values in order to try to match them with precache
            $sub_indexes = explode('.', (string) $index);

            // if subindex is a range, get them all, otherwise just get the first
            $index = isset($matches[3])
                ? implode('.', array_slice($sub_indexes, (int) $matches[2], ((int) $matches[3]) - ((int) $matches[2]) + 1))
                : $sub_indexes[(int) $matches[2]];
        }

        // look for the data in pre_cache
        if (isset($pre_fetched[$name]) && ! is_numeric($name)) {
            if (is_array($pre_fetched[$name])) {
                if (isset($pre_fetched[$name][$index][$name])) {
                    $value = $pre_fetched[$name][$index][$name];
                    Log::debug("Using $value from \$pre_cache[$name][$index][$name] for $name");

                    return $value;
                } elseif (isset($pre_fetched[$name][$index])) {
                    $value = $pre_fetched[$name][$index];
                    Log::debug("Using $value from \$pre_cache[$name][$index] for $name");

                    return $value;
                } elseif (count($pre_fetched[$name]) === 1 && ! is_array(current($pre_fetched[$name]))) {
                    $value = current($pre_fetched[$name]);
                    Log::debug("Using sole entry $value from \$pre_cache[$name] array for $name");

                    return $value;
                }
            } else {
                $value = $pre_fetched[$name];
                Log::debug("Using $value from from \$pre_cache[$name] for $name");

                return $value;
            }
        }

        // search for name inside walked tables if oid is fully qualified
        if (str_contains((string) $name, '::')) {
            foreach ($pre_fetched as $table_name => $table) {
                if (is_array($table) && isset($table[$index][$name])) {
                    $value = $table[$index][$name];
                    Log::debug("Using $value from walked {$table_name}[$index][$name] for $name");

                    return $value;
                }
            }
        }

        return $default;
    }

    public static function preCache(OS $os): array
    {
        // Pre-cache data for later use
        $pre_cache = [];
        $device = $os->getDeviceArray();

        $pre_cache_file = 'includes/discovery/sensors/pre-cache/' . $device['os'] . '.inc.php';
        if (is_file($pre_cache_file)) {
            echo "Pre-cache {$device['os']}: ";
            include $pre_cache_file;
            echo PHP_EOL;
            d_echo($pre_cache);
        }

        // TODO change to exclude os with pre-cache php file, but just exclude them by hand for now (like avtech)
        if ($device['os'] == 'avtech') {
            return $pre_cache;
        }

        $discovery_yaml = $os->getDiscovery();
        if (! empty($discovery_yaml['modules'])) {
            echo 'Caching data: ';
            foreach ($discovery_yaml['modules'] as $module => $discovery_data) {
                echo "$module ";
                foreach ($discovery_data as $key => $data_array) {
                    // find the data array, we could already be at for simple modules
                    if (isset($data_array['data'])) {
                        $data_array = $data_array['data'];
                    } elseif ($key !== 'data') {
                        continue;
                    }

                    $saved_nobulk = LibrenmsConfig::getOsSetting($os->getName(), 'snmp_bulk', true);

                    foreach ($data_array as $data) {
                        foreach (Arr::wrap($data['oid'] ?? []) as $oid) {
                            if (! array_key_exists($oid, $pre_cache)) {
                                if (isset($data['snmp_flags'])) {
                                    $snmp_flag = Arr::wrap($data['snmp_flags']);
                                } elseif (str_contains((string) $oid, '::')) {
                                    $snmp_flag = ['-OteQUSab', '-Pu'];
                                } else {
                                    $snmp_flag = ['-OteQUsab', '-Pu'];
                                }

                                if (! isset($data['snmp_no_Ih_flag'])) {
                                    $snmp_flag[] = '-Ih';
                                }

                                // disable bulk request for specific data
                                if (isset($data['snmp_bulk'])) {
                                    LibrenmsConfig::set('os.' . $os->getName() . '.snmp_bulk', (bool) $data['snmp_bulk']);
                                }

                                $pre_cache[$oid] ??= [];
                                SnmpQuery::mibs(Arr::wrap($discovery_yaml['mib'] ?? []))
                                    ->numericIndex()->options($snmp_flag)
                                    ->walk($oid)->valuesByIndex($pre_cache[$oid]);

                                LibrenmsConfig::set('os.' . $os->getName() . '.snmp_bulk', $saved_nobulk);
                            }
                        }
                    }
                }
            }
            echo PHP_EOL;
        }

        return $pre_cache;
    }

    /**
     * Check to see if we should skip this discovery item
     *
     * @param  mixed  $value
     * @param  int|string  $index
     * @param  array  $yaml_item_data  The data key from this item
     * @param  array  $group_options  The options key from this group of items
     * @param  array  $pre_fetched  The pre-fetched data array
     * @return bool
     */
    public static function canSkipItem($value, $index, array $yaml_item_data, array $group_options, array $pre_fetched = []): bool
    {
        $skip_values = array_replace((array) ($group_options['skip_values'] ?? []), (array) ($yaml_item_data['skip_values'] ?? []));

        foreach ($skip_values as $skip_value) {
            if (is_array($skip_value) && $pre_fetched) {
                // Dynamic skipping of data
                $op = $skip_value['op'] ?? '!=';

                if (isset($skip_value['device'])) {
                    // field from device model
                    $tmp_value = \DeviceCache::getPrimary()[$skip_value['device']] ?? null;
                } elseif ($skip_value['oid'] == 'index') {
                    // matching the index of the table row
                    $tmp_value = $index;
                } else {
                    // oid previously fetched from the device
                    $tmp_value = static::getValueFromData($skip_value['oid'], $index, $yaml_item_data, $pre_fetched);
                    if (str_contains((string) $skip_value['oid'], '.')) {
                        [$skip_value['oid'], $targeted_index] = explode('.', (string) $skip_value['oid'], 2);
                        $tmp_value = static::getValueFromData($skip_value['oid'], $targeted_index, $yaml_item_data, $pre_fetched);
                    }
                }

                if (Compare::values($tmp_value, $skip_value['value'], $op)) {
                    return true;
                }
            }
            if ($value == $skip_value) {
                return true;
            }
        }

        $skip_value_lt = array_replace((array) ($group_options['skip_value_lt'] ?? []), (array) ($yaml_item_data['skip_value_lt'] ?? []));
        foreach ($skip_value_lt as $skip_value) {
            if ($value < $skip_value) {
                return true;
            }
        }

        $skip_value_gt = array_replace((array) ($group_options['skip_value_gt'] ?? []), (array) ($yaml_item_data['skip_value_gt'] ?? []));
        foreach ($skip_value_gt as $skip_value) {
            if ($value > $skip_value) {
                return true;
            }
        }

        return false;
    }
}
