/*

 * SPDX-License-Identifier: ISC

 *

 * Copyright (c) 2017 Todd C. Miller <Todd.Miller@sudo.ws>

 *

 * Permission to use, copy, modify, and distribute this software for any

 * purpose with or without fee is hereby granted, provided that the above

 * copyright notice and this permission notice appear in all copies.

 *

 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF

 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

 */

#include <config.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <sudoers.h>

/* extern for regress tests */

bool

matches_env_pattern(const char *pattern, const char *var, bool *full_match)

{

    size_t len, sep_pos;

    bool iswild = false, match = false;

    bool saw_sep = false;

    const char *cp;

    debug_decl(matches_env_pattern, SUDOERS_DEBUG_ENV);

    /* Locate position of the '=' separator in var=value. */

    sep_pos = strcspn(var, "=");

    /* Locate '*' wildcard and compute len. */

    for (cp = pattern; *cp != '\0'; cp++) {

  if (*cp == '*') {

      iswild = true;

      break;

  }

    }

    len = (size_t)(cp - pattern);

    if (iswild) {

  /* Match up to the '*' wildcard. */

  if (strncmp(pattern, var, len) == 0) {

      while (*cp != '\0') {

    if (*cp == '*') {

        /* Collapse sequential '*'s */

        do {

      cp++;

        } while (*cp == '*');

        /* A '*' at the end of a pattern matches anything. */

        if (*cp == '\0') {

      match = true;

      break;

        }

        /* Keep track of whether we matched an equal sign. */

        if (*cp == '=')

      saw_sep = true;

        /* Look for first match of text after the '*' */

        while ((saw_sep || len != sep_pos) &&

      var[len] != '\0' && var[len] != *cp)

      len++;

    }

    if (var[len] != *cp)

        break;

    cp++;

    len++;

      }

      if (*cp == '\0' && (len == sep_pos || var[len] == '\0'))

    match = true;

  }

    } else {

  if (strncmp(pattern, var, len) == 0 &&

      (len == sep_pos || var[len] == '\0')) {

      match = true;

  }

    }

    if (match)

  *full_match = len > sep_pos + 1;

    debug_return_bool(match);

}