s4:kdc: Make use of smb_krb5_principal_is_tgs()

[Samba.git] / source3 / utils / testparm.c

/*
   Unix SMB/CIFS implementation.
   Test validity of smb.conf
   Copyright (C) Karl Auer 1993, 1994-1998

   Extensively modified by Andrew Tridgell, 1995
   Converted to popt by Jelmer Vernooij (jelmer@nl.linux.org), 2002

   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 <http://www.gnu.org/licenses/>.
*/

/*
 * Testbed for loadparm.c/params.c
 *
 * This module simply loads a specified configuration file and
 * if successful, dumps it's contents to stdout. Note that the
 * operation is performed with DEBUGLEVEL at 3.
 *
 * Useful for a quick 'syntax check' of a configuration file.
 *
 */

#include "includes.h"
#include "system/filesys.h"
#include "lib/cmdline/cmdline.h"
#include "lib/param/loadparm.h"
#include "lib/param/param.h"
#include "lib/crypto/gnutls_helpers.h"
#include "cmdline_contexts.h"

#include <regex.h>

/*******************************************************************
 Check if a directory exists.
********************************************************************/

static bool directory_exist_stat(const char *dname,SMB_STRUCT_STAT *st)
{
        SMB_STRUCT_STAT st2;
        bool ret;

        if (!st)
                st = &st2;

        if (sys_stat(dname, st, false) != 0)
                return(False);

        ret = S_ISDIR(st->st_ex_mode);
        if(!ret)
                errno = ENOTDIR;
        return ret;
}

struct idmap_config {
        const char *domain_name;
        const char *backend;
        uint32_t high;
        uint32_t low;
};

struct idmap_domains {
        struct idmap_config *c;
        uint32_t count;
        uint32_t size;
};

static bool lp_scan_idmap_found_domain(const char *string,
                                       regmatch_t matches[],
                                       void *private_data)
{
        bool ok = false;

        if (matches[1].rm_so == -1) {
                fprintf(stderr, "Found match, but no name - invalid idmap config");
                return false;
        }
        if (matches[1].rm_eo <= matches[1].rm_so) {
                fprintf(stderr, "Invalid match - invalid idmap config");
                return false;
        }

        {
                struct idmap_domains *d = private_data;
                struct idmap_config *c = &d->c[d->count];
                regoff_t len = matches[1].rm_eo - matches[1].rm_so;
                char domname[len + 1];

                if (d->count >= d->size) {
                        return false;
                }

                memcpy(domname, string + matches[1].rm_so, len);
                domname[len] = '\0';

                c->domain_name = talloc_strdup_upper(d->c, domname);
                if (c->domain_name == NULL) {
                        return false;
                }
                c->backend = talloc_strdup(d->c, lp_idmap_backend(domname));
                if (c->backend == NULL) {
                        return false;
                }

                if (lp_server_role() != ROLE_ACTIVE_DIRECTORY_DC) {
                        ok = lp_idmap_range(domname, &c->low, &c->high);
                        if (!ok) {
                                fprintf(stderr,
                                        "ERROR: Invalid idmap range for domain "
                                        "%s!\n\n",
                                        c->domain_name);
                                return false;
                        }
                }

                d->count++;
        }

        return false; /* Keep scanning */
}

static int idmap_config_int(const char *domname, const char *option, int def)
{
        int len = snprintf(NULL, 0, "idmap config %s", domname);

        if (len == -1) {
                return def;
        }
        {
                char config_option[len+1];
                snprintf(config_option, sizeof(config_option),
                         "idmap config %s", domname);
                return lp_parm_int(-1, config_option, option, def);
        }
}

static bool do_idmap_check(void)
{
        struct idmap_domains *d;
        uint32_t i;
        bool ok = false;
        int rc;

        d = talloc_zero(talloc_tos(), struct idmap_domains);
        if (d == NULL) {
                return false;
        }
        d->count = 0;
        d->size = 32;

        d->c = talloc_array(d, struct idmap_config, d->size);
        if (d->c == NULL) {
                goto done;
        }

        rc = lp_wi_scan_global_parametrics("idmapconfig\\(.*\\):backend",
                                           2,
                                           lp_scan_idmap_found_domain,
                                           d);
        if (rc != 0) {
                fprintf(stderr,
                        "FATAL: wi_scan_global_parametrics failed: %d",
                        rc);
        }

        /* Check autorid backend */
        if (strequal(lp_idmap_default_backend(), "autorid")) {
                struct idmap_config *c = NULL;
                bool found = false;

                for (i = 0; i < d->count; i++) {
                        c = &d->c[i];

                        if (strequal(c->backend, "autorid")) {
                                found = true;
                                break;
                        }
                }

                if (found) {
                        uint32_t rangesize =
                                idmap_config_int("*", "rangesize", 100000);
                        uint32_t maxranges =
                                (c->high - c->low  + 1) / rangesize;

                        if (((c->high - c->low  + 1) % rangesize) != 0) {
                                fprintf(stderr,
                                        "WARNING: The idmap autorid range "
                                        "[%u-%u] SHOULD be a multiple of "
                                        "the rangesize [%u]!"
                                        "\n\n",
                                        c->low,
                                        c->high,
                                        rangesize);
                        }

                        if (maxranges < 2) {
                                fprintf(stderr,
                                        "ERROR: The idmap autorid range "
                                        "[%u-%u] needs to be at least twice as "
                                        "big as the rangesize [%u]!"
                                        "\n\n",
                                        c->low,
                                        c->high,
                                        rangesize);
                                ok = false;
                                goto done;
                        }
                }
        }

        /* Check for overlapping idmap ranges */
        for (i = 0; i < d->count; i++) {
                struct idmap_config *c = &d->c[i];
                uint32_t j;

                for (j = 0; j < d->count && j != i; j++) {
                        struct idmap_config *x = &d->c[j];

                        if ((c->low >= x->low && c->low <= x->high) ||
                            (c->high >= x->low && c->high <= x->high)) {
                                /*
                                 * Allow overlapping ranges for idmap_ad
                                 * and idmap_nss
                                 */
                                ok = strequal(c->backend, x->backend);
                                if (ok) {
                                        ok = strequal(c->backend, "ad") ||
                                             strequal(c->backend, "nss");
                                        if (ok) {
                                                fprintf(stderr,
                                                        "NOTE: The idmap_%s "
                                                        "range for the domain "
                                                        "%s overlaps with the "
                                                        "range of %s.\n\n",
                                                        c->backend,
                                                        c->domain_name,
                                                        x->domain_name);
                                                continue;
                                        }
                                }

                                fprintf(stderr,
                                        "ERROR: The idmap range for the domain "
                                        "%s (%s) overlaps with the range of "
                                        "%s (%s)!\n\n",
                                        c->domain_name,
                                        c->backend,
                                        x->domain_name,
                                        x->backend);
                                ok = false;
                                goto done;
                        }
                }
        }

        ok = true;
done:
        TALLOC_FREE(d);
        return ok;
}

/***********************************************
 Here we do a set of 'hard coded' checks for bad
 configuration settings.
************************************************/

static int do_global_checks(void)
{
        int ret = 0;
        SMB_STRUCT_STAT st;
        const char *socket_options;
        const struct loadparm_substitution *lp_sub =
                loadparm_s3_global_substitution();

        fprintf(stderr, "\n");

        if (lp_security() >= SEC_DOMAIN && !lp_encrypt_passwords()) {
                fprintf(stderr, "ERROR: in 'security=domain' mode the "
                                "'encrypt passwords' parameter must always be "
                                "set to 'true'.\n\n");
                ret = 1;
        }

        if (lp_security() == SEC_ADS) {
                const char *workgroup = lp_workgroup();
                const char *realm = lp_realm();

                if (workgroup == NULL || strlen(workgroup) == 0) {
                        fprintf(stderr,
                                "ERROR: The 'security=ADS' mode requires "
                                "'workgroup' parameter to be set!\n\n ");
                        ret = 1;
                }

                if (realm == NULL || strlen(realm) == 0) {
                        fprintf(stderr,
                                "ERROR: The 'security=ADS' mode requires "
                                "'realm' parameter to be set!\n\n ");
                        ret = 1;
                }
        }


        if (lp_we_are_a_wins_server() && lp_wins_server_list()) {
                fprintf(stderr, "ERROR: both 'wins support = true' and "
                                "'wins server = <server list>' cannot be set in "
                                "the smb.conf file. nmbd will abort with this "
                                "setting.\n\n");
                ret = 1;
        }

        if (strequal(lp_workgroup(), lp_netbios_name())) {
                fprintf(stderr, "WARNING: 'workgroup' and 'netbios name' "
                                "must differ.\n\n");
        }

        if (lp_client_ipc_signing() == SMB_SIGNING_IF_REQUIRED
         || lp_client_ipc_signing() == SMB_SIGNING_OFF) {
                fprintf(stderr, "WARNING: The 'client ipc signing' value "
                        "%s SMB signing is not used when contacting a "
                        "domain controller or other server. "
                        "This setting is not recommended; please be "
                        "aware of the security implications when using "
                        "this configuration setting.\n\n",
                        lp_client_ipc_signing() == SMB_SIGNING_OFF ?
                        "ensures" : "may mean");
        }

        if (strlen(lp_netbios_name()) > 15) {
                fprintf(stderr, "WARNING: The 'netbios name' is too long "
                                "(max. 15 chars).\n\n");
        }

        if (!directory_exist_stat(lp_lock_directory(), &st)) {
                fprintf(stderr, "ERROR: lock directory %s does not exist\n\n",
                       lp_lock_directory());
                ret = 1;
        } else if ((st.st_ex_mode & 0777) != 0755) {
                fprintf(stderr, "WARNING: lock directory %s should have "
                                "permissions 0755 for browsing to work\n\n",
                       lp_lock_directory());
        }

        if (!directory_exist_stat(lp_state_directory(), &st)) {
                fprintf(stderr, "ERROR: state directory %s does not exist\n\n",
                       lp_state_directory());
                ret = 1;
        } else if ((st.st_ex_mode & 0777) != 0755) {
                fprintf(stderr, "WARNING: state directory %s should have "
                                "permissions 0755 for browsing to work\n\n",
                       lp_state_directory());
        }

        if (!directory_exist_stat(lp_cache_directory(), &st)) {
                fprintf(stderr, "ERROR: cache directory %s does not exist\n\n",
                       lp_cache_directory());
                ret = 1;
        } else if ((st.st_ex_mode & 0777) != 0755) {
                fprintf(stderr, "WARNING: cache directory %s should have "
                                "permissions 0755 for browsing to work\n\n",
                       lp_cache_directory());
        }

        if (!directory_exist_stat(lp_pid_directory(), &st)) {
                fprintf(stderr, "ERROR: pid directory %s does not exist\n\n",
                       lp_pid_directory());
                ret = 1;
        }

        if (lp_passdb_expand_explicit()) {
                fprintf(stderr, "WARNING: passdb expand explicit = yes is "
                                "deprecated\n\n");
        }

        /*
         * Socket options.
         */
        socket_options = lp_socket_options();
        if (socket_options != NULL &&
            (strstr(socket_options, "SO_SNDBUF") ||
             strstr(socket_options, "SO_RCVBUF") ||
             strstr(socket_options, "SO_SNDLOWAT") ||
             strstr(socket_options, "SO_RCVLOWAT")))
        {
                fprintf(stderr,
                        "WARNING: socket options = %s\n"
                        "This warning is printed because you set one of the\n"
                        "following options: SO_SNDBUF, SO_RCVBUF, SO_SNDLOWAT,\n"
                        "SO_RCVLOWAT\n"
                        "Modern server operating systems are tuned for\n"
                        "high network performance in the majority of situations;\n"
                        "when you set 'socket options' you are overriding those\n"
                        "settings.\n"
                        "Linux in particular has an auto-tuning mechanism for\n"
                        "buffer sizes (SO_SNDBUF, SO_RCVBUF) that will be\n"
                        "disabled if you specify a socket buffer size. This can\n"
                        "potentially cripple your TCP/IP stack.\n\n"
                        "Getting the 'socket options' correct can make a big\n"
                        "difference to your performance, but getting them wrong\n"
                        "can degrade it by just as much. As with any other low\n"
                        "level setting, if you must make changes to it, make\n "
                        "small changes and test the effect before making any\n"
                        "large changes.\n\n",
                        socket_options);
        }

        /*
         * Password server sanity checks.
         */

        if((lp_security() >= SEC_DOMAIN) && !*lp_password_server()) {
                const char *sec_setting;
                if(lp_security() == SEC_DOMAIN)
                        sec_setting = "domain";
                else if(lp_security() == SEC_ADS)
                        sec_setting = "ads";
                else
                        sec_setting = "";

                fprintf(stderr, "ERROR: The setting 'security=%s' requires the "
                                "'password server' parameter be set to the "
                                "default value * or a valid password server.\n\n",
                                sec_setting );
                ret = 1;
        }

        if((lp_security() >= SEC_DOMAIN) && (strcmp(lp_password_server(), "*") != 0)) {
                const char *sec_setting;
                if(lp_security() == SEC_DOMAIN)
                        sec_setting = "domain";
                else if(lp_security() == SEC_ADS)
                        sec_setting = "ads";
                else
                        sec_setting = "";

                fprintf(stderr, "WARNING: The setting 'security=%s' should NOT "
                                "be combined with the 'password server' "
                                "parameter.\n"
                                "(by default Samba will discover the correct DC "
                                "to contact automatically).\n\n",
                                sec_setting );
        }

        /*
         * Password chat sanity checks.
         */

        if(lp_security() == SEC_USER && lp_unix_password_sync()) {

                /*
                 * Check that we have a valid lp_passwd_program() if not using pam.
                 */

#ifdef WITH_PAM
                if (!lp_pam_password_change()) {
#endif

                        if((lp_passwd_program(talloc_tos(), lp_sub) == NULL) ||
                           (strlen(lp_passwd_program(talloc_tos(), lp_sub)) == 0))
                        {
                                fprintf(stderr,
                                        "ERROR: the 'unix password sync' "
                                        "parameter is set and there is no valid "
                                        "'passwd program' parameter.\n\n");
                                ret = 1;
                        } else {
                                const char *passwd_prog;
                                char *truncated_prog = NULL;
                                const char *p;

                                passwd_prog = lp_passwd_program(talloc_tos(), lp_sub);
                                p = passwd_prog;
                                next_token_talloc(talloc_tos(),
                                                &p,
                                                &truncated_prog, NULL);
                                if (truncated_prog && access(truncated_prog, F_OK) == -1) {
                                        fprintf(stderr,
                                                "ERROR: the 'unix password sync' "
                                                "parameter is set and the "
                                                "'passwd program' (%s) cannot be "
                                                "executed (error was %s).\n\n",
                                                truncated_prog,
                                                strerror(errno));
                                        ret = 1;
                                }
                        }

#ifdef WITH_PAM
                }
#endif

                if(lp_passwd_chat(talloc_tos(), lp_sub) == NULL) {
                        fprintf(stderr,
                                "ERROR: the 'unix password sync' parameter is "
                                "set and there is no valid 'passwd chat' "
                                "parameter.\n\n");
                        ret = 1;
                }

                if ((lp_passwd_program(talloc_tos(), lp_sub) != NULL) &&
                    (strlen(lp_passwd_program(talloc_tos(), lp_sub)) > 0))
                {
                        /* check if there's a %u parameter present */
                        if(strstr_m(lp_passwd_program(talloc_tos(), lp_sub), "%u") == NULL) {
                                fprintf(stderr,
                                        "ERROR: the 'passwd program' (%s) "
                                        "requires a '%%u' parameter.\n\n",
                                        lp_passwd_program(talloc_tos(), lp_sub));
                                ret = 1;
                        }
                }

                /*
                 * Check that we have a valid script and that it hasn't
                 * been written to expect the old password.
                 */

                if(lp_encrypt_passwords()) {
                        if(strstr_m( lp_passwd_chat(talloc_tos(), lp_sub), "%o")!=NULL) {
                                fprintf(stderr,
                                        "ERROR: the 'passwd chat' script [%s] "
                                        "expects to use the old plaintext "
                                        "password via the %%o substitution. With "
                                        "encrypted passwords this is not "
                                        "possible.\n\n",
                                        lp_passwd_chat(talloc_tos(), lp_sub) );
                                ret = 1;
                        }
                }
        }

        if (strlen(lp_winbind_separator()) != 1) {
                fprintf(stderr, "ERROR: the 'winbind separator' parameter must "
                                "be a single character.\n\n");
                ret = 1;
        }

        if (*lp_winbind_separator() == '+') {
                fprintf(stderr, "'winbind separator = +' might cause problems "
                                "with group membership.\n\n");
        }

        if (lp_algorithmic_rid_base() < BASE_RID) {
                /* Try to prevent admin foot-shooting, we can't put algorithmic
                   rids below 1000, that's the 'well known RIDs' on NT */
                fprintf(stderr, "'algorithmic rid base' must be equal to or "
                                "above %lu\n\n", BASE_RID);
        }

        if (lp_algorithmic_rid_base() & 1) {
                fprintf(stderr, "'algorithmic rid base' must be even.\n\n");
        }

        if (lp_server_role() != ROLE_STANDALONE) {
                const char *default_backends[] = {
                        "tdb", "tdb2", "ldap", "autorid", "hash"
                };
                const char *idmap_backend;
                bool valid_backend = false;
                uint32_t i;
                bool ok;

                idmap_backend = lp_idmap_default_backend();

                for (i = 0; i < ARRAY_SIZE(default_backends); i++) {
                        ok = strequal(idmap_backend, default_backends[i]);
                        if (ok) {
                                valid_backend = true;
                        }
                }

                if (!valid_backend) {
                        ret = 1;
                        fprintf(stderr, "ERROR: Do not use the '%s' backend "
                                        "as the default idmap backend!\n\n",
                                        idmap_backend);
                }

                ok = do_idmap_check();
                if (!ok) {
                        ret = 1;
                }
        }

#ifndef HAVE_DLOPEN
        if (lp_preload_modules()) {
                fprintf(stderr, "WARNING: 'preload modules = ' set while loading "
                                "plugins not supported.\n\n");
        }
#endif

        if (!lp_passdb_backend()) {
                fprintf(stderr, "ERROR: passdb backend must have a value or be "
                                "left out\n\n");
        }

        if (lp_os_level() > 255) {
                fprintf(stderr, "WARNING: Maximum value for 'os level' is "
                                "255!\n\n");
        }

        if (strequal(lp_dos_charset(), "UTF8") || strequal(lp_dos_charset(), "UTF-8")) {
                fprintf(stderr, "ERROR: 'dos charset' must not be UTF8\n\n");
                ret = 1;
        }

        if (lp_server_schannel() != true) { /* can be 'auto' */
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'server schannel = yes' (the default). "
                        "Your server is vulnerable to \"ZeroLogon\" "
                        "(CVE-2020-1472)\n"
                        "If required use individual "
                        "'server require schannel:COMPUTERACCOUNT$ = no' "
                        "options\n\n");
        }
        if (lp_allow_nt4_crypto()) {
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'allow nt4 crypto = no' (the default). "
                        "Your server is vulnerable to "
                        "CVE-2022-38023 and others!\n"
                        "If required use individual "
                        "'allow nt4 crypto:COMPUTERACCOUNT$ = yes' "
                        "options\n\n");
        }
        if (!lp_reject_md5_clients()) {
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'reject md5 clients = yes' (the default). "
                        "Your server is vulnerable to "
                        "CVE-2022-38023!\n"
                        "If required use individual "
                        "'server reject md5 schannel:COMPUTERACCOUNT$ = yes' "
                        "options\n\n");
        }
        if (!lp_server_schannel_require_seal()) {
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'server schannel require seal = yes' (the default). "
                        "Your server is vulnerable to "
                        "CVE-2022-38023!\n"
                        "If required use individual "
                        "'server schannel require seal:COMPUTERACCOUNT$ = no' "
                        "options\n\n");
        }

        if (lp_client_schannel() != true) { /* can be 'auto' */
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'client schannel = yes' (the default). "
                        "Your server is vulnerable to \"ZeroLogon\" "
                        "(CVE-2020-1472)\n"
                        "If required use individual "
                        "'client schannel:NETBIOSDOMAIN = no' "
                        "options\n\n");
        }
        if (!lp_reject_md5_servers()) {
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'reject md5 servers = yes' (the default). "
                        "Your server is vulnerable to "
                        "CVE-2022-38023\n"
                        "If required use individual "
                        "'reject md5 servers:NETBIOSDOMAIN = no' "
                        "options\n\n");
        }
        if (!lp_require_strong_key()) {
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'require strong key = yes' (the default). "
                        "Your server is vulnerable to "
                        "CVE-2022-38023\n"
                        "If required use individual "
                        "'require strong key:NETBIOSDOMAIN = no' "
                        "options\n\n");
        }
        if (!lp_winbind_sealed_pipes()) {
                fprintf(stderr,
                        "WARNING: You have not configured "
                        "'winbind sealed pipes = yes' (the default). "
                        "Your server is vulnerable to "
                        "CVE-2022-38023\n"
                        "If required use individual "
                        "'winbind sealed pipes:NETBIOSDOMAIN = no' "
                        "options\n\n");
        }

        if (lp_kerberos_encryption_types() == KERBEROS_ETYPES_LEGACY) {
                fprintf(stderr,
                        "WARNING: You have configured "
                        "'kerberos encryption types = legacy'. "
                        "Your server is vulnerable to "
                        "CVE-2022-37966\n\n");
        }

        return ret;
}

/**
 * per-share logic tests
 */
static void do_per_share_checks(int s)
{
        const struct loadparm_substitution *lp_sub =
                loadparm_s3_global_substitution();
        const char **deny_list = lp_hosts_deny(s);
        const char **allow_list = lp_hosts_allow(s);
        const char **vfs_objects = NULL;
        int i;
        static bool uses_fruit;
        static bool doesnt_use_fruit;
        static bool fruit_mix_warned;

        if(deny_list) {
                for (i=0; deny_list[i]; i++) {
                        char *hasstar = strchr_m(deny_list[i], '*');
                        char *hasquery = strchr_m(deny_list[i], '?');
                        if(hasstar || hasquery) {
                                fprintf(stderr,
                                        "Invalid character %c in hosts deny list "
                                        "(%s) for service %s.\n\n",
                                        hasstar ? *hasstar : *hasquery,
                                        deny_list[i],
                                        lp_servicename(talloc_tos(), lp_sub, s));
                        }
                }
        }

        if(allow_list) {
                for (i=0; allow_list[i]; i++) {
                        char *hasstar = strchr_m(allow_list[i], '*');
                        char *hasquery = strchr_m(allow_list[i], '?');
                        if(hasstar || hasquery) {
                                fprintf(stderr,
                                        "Invalid character %c in hosts allow "
                                        "list (%s) for service %s.\n\n",
                                        hasstar ? *hasstar : *hasquery,
                                        allow_list[i],
                                        lp_servicename(talloc_tos(), lp_sub, s));
                        }
                }
        }

        if(lp_level2_oplocks(s) && !lp_oplocks(s)) {
                fprintf(stderr, "Invalid combination of parameters for service "
                                "%s. Level II oplocks can only be set if oplocks "
                                "are also set.\n\n",
                                lp_servicename(talloc_tos(), lp_sub, s));
        }

        if (!lp_store_dos_attributes(s) && lp_map_hidden(s)
            && !(lp_create_mask(s) & S_IXOTH))
        {
                fprintf(stderr,
                        "Invalid combination of parameters for service %s. Map "
                        "hidden can only work if create mask includes octal "
                        "01 (S_IXOTH).\n\n",
                        lp_servicename(talloc_tos(), lp_sub, s));
        }
        if (!lp_store_dos_attributes(s) && lp_map_hidden(s)
            && (lp_force_create_mode(s) & S_IXOTH))
        {
                fprintf(stderr,
                        "Invalid combination of parameters for service "
                        "%s. Map hidden can only work if force create mode "
                        "excludes octal 01 (S_IXOTH).\n\n",
                        lp_servicename(talloc_tos(), lp_sub, s));
        }
        if (!lp_store_dos_attributes(s) && lp_map_system(s)
            && !(lp_create_mask(s) & S_IXGRP))
        {
                fprintf(stderr,
                        "Invalid combination of parameters for service "
                        "%s. Map system can only work if create mask includes "
                        "octal 010 (S_IXGRP).\n\n",
                        lp_servicename(talloc_tos(), lp_sub, s));
        }
        if (!lp_store_dos_attributes(s) && lp_map_system(s)
            && (lp_force_create_mode(s) & S_IXGRP))
        {
                fprintf(stderr,
                        "Invalid combination of parameters for service "
                        "%s. Map system can only work if force create mode "
                        "excludes octal 010 (S_IXGRP).\n\n",
                        lp_servicename(talloc_tos(), lp_sub, s));
        }
        if (lp_printing(s) == PRINT_CUPS && *(lp_print_command(s)) != '\0') {
                fprintf(stderr,
                        "Warning: Service %s defines a print command, but "
                        "parameter is ignored when using CUPS libraries.\n\n",
                        lp_servicename(talloc_tos(), lp_sub, s));
        }

        vfs_objects = lp_vfs_objects(s);
        if (vfs_objects && str_list_check(vfs_objects, "fruit")) {
                uses_fruit = true;
        } else {
                doesnt_use_fruit = true;
        }

        if (uses_fruit && doesnt_use_fruit && !fruit_mix_warned) {
                fruit_mix_warned = true;
                fprintf(stderr,
                        "WARNING: some services use vfs_fruit, others don't. Mounting them "
                        "in conjunction on OS X clients results in undefined behaviour.\n\n");
        }
}

 int main(int argc, const char *argv[])
{
        const char *config_file = NULL;
        const struct loadparm_substitution *lp_sub =
                loadparm_s3_global_substitution();
        int opt;
        int s;
        static int silent_mode = False;
        static int show_all_parameters = False;
        int ret = 0;
        poptContext pc;
        static char *parameter_name = NULL;
        static const char *section_name = NULL;
        const char *cname;
        const char *caddr;
        static int show_defaults;
        static int skip_logic_checks = 0;
        bool ok;

        struct poptOption long_options[] = {
                POPT_AUTOHELP
                {
                        .longName   = "suppress-prompt",
                        .shortName  = 's',
                        .argInfo    = POPT_ARG_VAL,
                        .arg        = &silent_mode,
                        .val        = 1,
                        .descrip    = "Suppress prompt for enter",
                },
                {
                        .longName   = "verbose",
                        .shortName  = 'v',
                        .argInfo    = POPT_ARG_NONE,
                        .arg        = &show_defaults,
                        .val        = 1,
                        .descrip    = "Show default options too",
                },
                {
                        .longName   = "skip-logic-checks",
                        .shortName  = 'l',
                        .argInfo    = POPT_ARG_NONE,
                        .arg        = &skip_logic_checks,
                        .val        = 1,
                        .descrip    = "Skip the global checks",
                },
                {
                        .longName   = "show-all-parameters",
                        .shortName  = '\0',
                        .argInfo    = POPT_ARG_VAL,
                        .arg        = &show_all_parameters,
                        .val        = True,
                        .descrip    = "Show the parameters, type, possible "
                                      "values",
                },
                {
                        .longName   = "parameter-name",
                        .shortName  = '\0',
                        .argInfo    = POPT_ARG_STRING,
                        .arg        = &parameter_name,
                        .val        = 0,
                        .descrip    = "Limit testparm to a named parameter",
                },
                {
                        .longName   = "section-name",
                        .shortName  = '\0',
                        .argInfo    = POPT_ARG_STRING,
                        .arg        = &section_name,
                        .val        = 0,
                        .descrip    = "Limit testparm to a named section",
                },
                POPT_COMMON_DEBUG_ONLY
                POPT_COMMON_OPTION_ONLY
                POPT_COMMON_VERSION
                POPT_TABLEEND
        };

        TALLOC_CTX *frame = talloc_stackframe();
        struct loadparm_context *lp_ctx = NULL;

        smb_init_locale();

        ok = samba_cmdline_init(frame,
                                SAMBA_CMDLINE_CONFIG_NONE,
                                true /* require_smbconf */);
        if (!ok) {
                DBG_ERR("Failed to init cmdline parser!\n");
                ret = 1;
                goto done;
        }
        lp_ctx = samba_cmdline_get_lp_ctx();

        /*
         * Set the default debug level to 1.
         * Allow it to be overridden by the command line,
         * not by smb.conf.
         */
        lpcfg_set_cmdline(lp_ctx, "log level", "1");

        pc = samba_popt_get_context(getprogname(),
                                    argc,
                                    argv,
                                    long_options,
                                    0);
        if (pc == NULL) {
                DBG_ERR("Failed to setup popt context!\n");
                ret = 1;
                goto done;
        }

        poptSetOtherOptionHelp(pc, "[OPTION...] <config-file> [host-name] [host-ip]");

        while ((opt = poptGetNextOpt(pc)) != -1) {
                switch (opt) {
                case POPT_ERROR_BADOPT:
                        fprintf(stderr, "\nInvalid option %s: %s\n\n",
                                poptBadOption(pc, 0), poptStrerror(opt));
                        poptPrintUsage(pc, stderr, 0);
                        exit(1);
                }
        }

        if (show_all_parameters) {
                show_parameter_list();
                exit(0);
        }

        if (poptPeekArg(pc)) {
                config_file = talloc_strdup(frame, poptGetArg(pc));
                if (config_file == NULL) {
                        DBG_ERR("out of memory\n");
                        TALLOC_FREE(frame);
                        exit(1);
                }
        } else {
                config_file = get_dyn_CONFIGFILE();
        }

        cname = talloc_strdup(frame, poptGetArg(pc));
        caddr = talloc_strdup(frame, poptGetArg(pc));

        poptFreeContext(pc);

        if ( cname && ! caddr ) {
                printf ( "ERROR: You must specify both a machine name and an IP address.\n" );
                ret = 1;
                goto done;
        }

        fprintf(stderr,"Load smb config files from %s\n",config_file);

        if (!lp_load_with_registry_shares(config_file)) {
                fprintf(stderr,"Error loading services.\n");
                ret = 1;
                goto done;
        }

        fprintf(stderr,"Loaded services file OK.\n");

        fprintf(stderr,
                "Weak crypto is %sallowed by GnuTLS "
                "(e.g. NTLM as a compatibility fallback)\n",
                samba_gnutls_weak_crypto_allowed() ? "" : "dis");

        if (skip_logic_checks == 0) {
                ret = do_global_checks();
        }

        for (s=0;s<1000;s++) {
                if (VALID_SNUM(s) && (skip_logic_checks == 0)) {
                        do_per_share_checks(s);
                }
        }


        if (!section_name && !parameter_name) {
                fprintf(stderr,
                        "Server role: %s\n\n",
                        server_role_str(lp_server_role()));
        }

        if (!cname) {
                if (!silent_mode) {
                        fprintf(stderr,"Press enter to see a dump of your service definitions\n");
                        fflush(stdout);
                        getc(stdin);
                }
                if (parameter_name || section_name) {
                        bool isGlobal = False;
                        s = GLOBAL_SECTION_SNUM;

                        if (!section_name) {
                                section_name = GLOBAL_NAME;
                                isGlobal = True;
                        } else if ((isGlobal=!strwicmp(section_name, GLOBAL_NAME)) == 0 &&
                                 (s=lp_servicenumber(section_name)) == -1) {
                                        fprintf(stderr,"Unknown section %s\n",
                                                section_name);
                                        ret = 1;
                                        goto done;
                        }
                        if (parameter_name) {
                                if (!dump_a_parameter( s, parameter_name, stdout, isGlobal)) {
                                        fprintf(stderr,"Parameter %s unknown for section %s\n",
                                                parameter_name, section_name);
                                        ret = 1;
                                        goto done;
                                }
                        } else {
                                if (isGlobal == True)
                                        lp_dump(stdout, show_defaults, 0);
                                else
                                        lp_dump_one(stdout, show_defaults, s);
                        }
                        goto done;
                }

                lp_dump(stdout, show_defaults, lp_numservices());
        }

        if(cname && caddr){
                /* this is totally ugly, a real `quick' hack */
                for (s=0;s<1000;s++) {
                        if (VALID_SNUM(s)) {
                                if (allow_access(lp_hosts_deny(-1), lp_hosts_allow(-1), cname, caddr)
                                    && allow_access(lp_hosts_deny(s), lp_hosts_allow(s), cname, caddr)) {
                                        fprintf(stderr,"Allow connection from %s (%s) to %s\n",
                                                   cname,caddr,lp_servicename(talloc_tos(), lp_sub, s));
                                } else {
                                        fprintf(stderr,"Deny connection from %s (%s) to %s\n",
                                                   cname,caddr,lp_servicename(talloc_tos(), lp_sub, s));
                                }
                        }
                }
        }

done:
        gfree_loadparm();
        TALLOC_FREE(frame);
        return ret;
}