#include <config.h>
#include <sys/types.h>
#include <sys/param.h>
#include <sys/socket.h>
#include <sys/stat.h>
#include <stdio.h>
#ifdef STDC_HEADERS
# include <stdlib.h>
# include <stddef.h>
#else
# ifdef HAVE_STDLIB_H
# include <stdlib.h>
# endif
#endif
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#ifdef HAVE_FNMATCH
# include <fnmatch.h>
#endif
#ifdef HAVE_GLOB
# include <glob.h>
#endif
#ifdef HAVE_NETGROUP_H
# include <netgroup.h>
#endif
#include <ctype.h>
#include <pwd.h>
#include <grp.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <netdb.h>
#ifdef HAVE_DIRENT_H
# include <dirent.h>
# define NAMLEN(dirent) strlen((dirent)->d_name)
#else
# define dirent direct
# define NAMLEN(dirent) (dirent)->d_namlen
# ifdef HAVE_SYS_NDIR_H
# include <sys/ndir.h>
# endif
# ifdef HAVE_SYS_DIR_H
# include <sys/dir.h>
# endif
# ifdef HAVE_NDIR_H
# include <ndir.h>
# endif
#endif
#include "sudo.h"
#include "interfaces.h"
#include "parse.h"
#include <gram.h>
#ifndef HAVE_FNMATCH
# include "emul/fnmatch.h"
#endif
#ifndef HAVE_GLOB
# include "emul/glob.h"
#endif
#ifdef USING_NONUNIX_GROUPS
# include "nonunix.h"
#endif
#include <membership.h>
static struct member_list empty;
static int command_matches_dir __P((char *, size_t));
static int command_matches_glob __P((char *, char *));
static int command_matches_fnmatch __P((char *, char *));
static int command_matches_normal __P((char *, char *));
#define has_meta(s) (strpbrk(s, "\\?*[]") != NULL)
static int
_userlist_matches(pw, list)
struct passwd *pw;
struct member_list *list;
{
struct member *m;
struct alias *a;
int rval, matched = UNSPEC;
tq_foreach_rev(list, m) {
switch (m->type) {
case ALL:
matched = !m->negated;
break;
case NETGROUP:
if (netgr_matches(m->name, NULL, NULL, pw->pw_name))
matched = !m->negated;
break;
case USERGROUP:
if (usergr_matches(m->name, pw->pw_name, pw))
matched = !m->negated;
break;
case ALIAS:
if ((a = alias_find(m->name, USERALIAS)) != NULL) {
rval = _userlist_matches(pw, &a->members);
if (rval != UNSPEC)
matched = m->negated ? !rval : rval;
break;
}
case WORD:
if (userpw_matches(m->name, pw->pw_name, pw))
matched = !m->negated;
break;
}
if (matched != UNSPEC)
break;
}
return matched;
}
int
userlist_matches(pw, list)
struct passwd *pw;
struct member_list *list;
{
alias_seqno++;
return _userlist_matches(pw, list);
}
static int
_runaslist_matches(user_list, group_list)
struct member_list *user_list;
struct member_list *group_list;
{
struct member *m;
struct alias *a;
int rval;
int user_matched = UNSPEC;
int group_matched = UNSPEC;
if (runas_pw != NULL) {
if (tq_empty(user_list) && tq_empty(group_list))
return userpw_matches(def_runas_default, runas_pw->pw_name, runas_pw);
tq_foreach_rev(user_list, m) {
switch (m->type) {
case ALL:
user_matched = !m->negated;
break;
case NETGROUP:
if (netgr_matches(m->name, NULL, NULL, runas_pw->pw_name))
user_matched = !m->negated;
break;
case USERGROUP:
if (usergr_matches(m->name, runas_pw->pw_name, runas_pw))
user_matched = !m->negated;
break;
case ALIAS:
if ((a = alias_find(m->name, RUNASALIAS)) != NULL) {
rval = _runaslist_matches(&a->members, &empty);
if (rval != UNSPEC)
user_matched = m->negated ? !rval : rval;
break;
}
case WORD:
if (userpw_matches(m->name, runas_pw->pw_name, runas_pw))
user_matched = !m->negated;
break;
}
if (user_matched != UNSPEC)
break;
}
}
if (runas_gr != NULL) {
if (user_matched == UNSPEC) {
if (runas_pw == NULL || strcmp(runas_pw->pw_name, user_name) == 0)
user_matched = ALLOW;
}
tq_foreach_rev(group_list, m) {
switch (m->type) {
case ALL:
group_matched = !m->negated;
break;
case ALIAS:
if ((a = alias_find(m->name, RUNASALIAS)) != NULL) {
rval = _runaslist_matches(&empty, &a->members);
if (rval != UNSPEC)
group_matched = m->negated ? !rval : rval;
break;
}
case WORD:
if (group_matches(m->name, runas_gr))
group_matched = !m->negated;
break;
}
if (group_matched != UNSPEC)
break;
}
if (group_matched == UNSPEC) {
if (runas_pw != NULL && runas_pw->pw_gid == runas_gr->gr_gid)
group_matched = ALLOW;
}
}
if (user_matched == DENY || group_matched == DENY)
return DENY;
if (user_matched == group_matched || runas_gr == NULL)
return user_matched;
return UNSPEC;
}
int
runaslist_matches(user_list, group_list)
struct member_list *user_list;
struct member_list *group_list;
{
alias_seqno++;
return _runaslist_matches(user_list ? user_list : &empty,
group_list ? group_list : &empty);
}
static int
_hostlist_matches(list)
struct member_list *list;
{
struct member *m;
struct alias *a;
int rval, matched = UNSPEC;
tq_foreach_rev(list, m) {
switch (m->type) {
case ALL:
matched = !m->negated;
break;
case NETGROUP:
if (netgr_matches(m->name, user_host, user_shost, NULL))
matched = !m->negated;
break;
case NTWKADDR:
if (addr_matches(m->name))
matched = !m->negated;
break;
case ALIAS:
if ((a = alias_find(m->name, HOSTALIAS)) != NULL) {
rval = _hostlist_matches(&a->members);
if (rval != UNSPEC)
matched = m->negated ? !rval : rval;
break;
}
case WORD:
if (hostname_matches(user_shost, user_host, m->name))
matched = !m->negated;
break;
}
if (matched != UNSPEC)
break;
}
return matched;
}
int
hostlist_matches(list)
struct member_list *list;
{
alias_seqno++;
return _hostlist_matches(list);
}
static int
_cmndlist_matches(list)
struct member_list *list;
{
struct member *m;
int matched = UNSPEC;
tq_foreach_rev(list, m) {
matched = cmnd_matches(m);
if (matched != UNSPEC)
break;
}
return matched;
}
int
cmndlist_matches(list)
struct member_list *list;
{
alias_seqno++;
return _cmndlist_matches(list);
}
int
cmnd_matches(m)
struct member *m;
{
struct alias *a;
struct sudo_command *c;
int rval, matched = UNSPEC;
switch (m->type) {
case ALL:
matched = !m->negated;
break;
case ALIAS:
alias_seqno++;
if ((a = alias_find(m->name, CMNDALIAS)) != NULL) {
rval = _cmndlist_matches(&a->members);
if (rval != UNSPEC)
matched = m->negated ? !rval : rval;
}
break;
case COMMAND:
c = (struct sudo_command *)m->name;
if (command_matches(c->cmnd, c->args))
matched = !m->negated;
break;
}
return matched;
}
static int
command_args_match(sudoers_cmnd, sudoers_args)
char *sudoers_cmnd;
char *sudoers_args;
{
int flags = 0;
if (!sudoers_args ||
(!user_args && sudoers_args && !strcmp("\"\"", sudoers_args)))
return TRUE;
if (sudoers_args) {
if (strcmp(sudoers_cmnd, "sudoedit") == 0)
flags = FNM_PATHNAME;
if (fnmatch(sudoers_args, user_args ? user_args : "", flags) == 0)
return TRUE;
}
return FALSE;
}
int
command_matches(sudoers_cmnd, sudoers_args)
char *sudoers_cmnd;
char *sudoers_args;
{
if (sudoers_cmnd[0] != '/') {
if (strcmp(sudoers_cmnd, "sudoedit") != 0 ||
strcmp(user_cmnd, "sudoedit") != 0)
return FALSE;
if (command_args_match(sudoers_cmnd, sudoers_args)) {
efree(safe_cmnd);
safe_cmnd = estrdup(sudoers_cmnd);
return TRUE;
} else
return FALSE;
}
if (has_meta(sudoers_cmnd)) {
if (def_fast_glob)
return command_matches_fnmatch(sudoers_cmnd, sudoers_args);
return command_matches_glob(sudoers_cmnd, sudoers_args);
}
return command_matches_normal(sudoers_cmnd, sudoers_args);
}
static int
command_matches_fnmatch(sudoers_cmnd, sudoers_args)
char *sudoers_cmnd;
char *sudoers_args;
{
if (fnmatch(sudoers_cmnd, user_cmnd, FNM_PATHNAME) != 0)
return FALSE;
if (command_args_match(sudoers_cmnd, sudoers_args)) {
if (safe_cmnd)
free(safe_cmnd);
safe_cmnd = estrdup(user_cmnd);
return TRUE;
} else
return FALSE;
}
static int
command_matches_glob(sudoers_cmnd, sudoers_args)
char *sudoers_cmnd;
char *sudoers_args;
{
struct stat sudoers_stat;
size_t dlen;
char **ap, *base, *cp;
glob_t gl;
dlen = strlen(sudoers_cmnd);
if (sudoers_cmnd[dlen - 1] != '/') {
if ((base = strrchr(sudoers_cmnd, '/')) != NULL) {
base++;
if (!has_meta(base) && strcmp(user_base, base) != 0)
return FALSE;
}
}
if (glob(sudoers_cmnd, GLOB_NOSORT, NULL, &gl) != 0 || gl.gl_pathc == 0) {
globfree(&gl);
return FALSE;
}
for (ap = gl.gl_pathv; (cp = *ap) != NULL; ap++) {
dlen = strlen(cp);
if (cp[dlen - 1] == '/') {
if (command_matches_dir(cp, dlen))
return TRUE;
continue;
}
if ((base = strrchr(cp, '/')) != NULL)
base++;
else
base = cp;
if (strcmp(user_base, base) != 0 ||
stat(cp, &sudoers_stat) == -1)
continue;
if (user_stat == NULL ||
(user_stat->st_dev == sudoers_stat.st_dev &&
user_stat->st_ino == sudoers_stat.st_ino)) {
efree(safe_cmnd);
safe_cmnd = estrdup(cp);
break;
}
}
globfree(&gl);
if (cp == NULL)
return FALSE;
if (command_args_match(sudoers_cmnd, sudoers_args)) {
efree(safe_cmnd);
safe_cmnd = estrdup(user_cmnd);
return TRUE;
}
return FALSE;
}
static int
command_matches_normal(sudoers_cmnd, sudoers_args)
char *sudoers_cmnd;
char *sudoers_args;
{
struct stat sudoers_stat;
char *base;
size_t dlen;
dlen = strlen(sudoers_cmnd);
if (sudoers_cmnd[dlen - 1] == '/')
return command_matches_dir(sudoers_cmnd, dlen);
if ((base = strrchr(sudoers_cmnd, '/')) == NULL)
base = sudoers_cmnd;
else
base++;
if (strcmp(user_base, base) != 0 ||
stat(sudoers_cmnd, &sudoers_stat) == -1)
return FALSE;
if (user_stat != NULL &&
(user_stat->st_dev != sudoers_stat.st_dev ||
user_stat->st_ino != sudoers_stat.st_ino))
return FALSE;
if (command_args_match(sudoers_cmnd, sudoers_args)) {
efree(safe_cmnd);
safe_cmnd = estrdup(sudoers_cmnd);
return TRUE;
}
return FALSE;
}
static int
command_matches_dir(sudoers_dir, dlen)
char *sudoers_dir;
size_t dlen;
{
struct stat sudoers_stat;
struct dirent *dent;
char buf[PATH_MAX];
DIR *dirp;
dirp = opendir(sudoers_dir);
if (dirp == NULL)
return FALSE;
if (strlcpy(buf, sudoers_dir, sizeof(buf)) >= sizeof(buf)) {
closedir(dirp);
return FALSE;
}
while ((dent = readdir(dirp)) != NULL) {
buf[dlen] = '\0';
if (strlcat(buf, dent->d_name, sizeof(buf)) >= sizeof(buf))
continue;
if (strcmp(user_base, dent->d_name) != 0 ||
stat(buf, &sudoers_stat) == -1)
continue;
if (user_stat == NULL ||
(user_stat->st_dev == sudoers_stat.st_dev &&
user_stat->st_ino == sudoers_stat.st_ino)) {
efree(safe_cmnd);
safe_cmnd = estrdup(buf);
break;
}
}
closedir(dirp);
return dent != NULL;
}
static int
addr_matches_if(n)
char *n;
{
int i;
union sudo_in_addr_un addr;
struct interface *ifp;
#ifdef HAVE_STRUCT_IN6_ADDR
int j;
#endif
int family;
#ifdef HAVE_STRUCT_IN6_ADDR
if (inet_pton(AF_INET6, n, &addr.ip6) > 0) {
family = AF_INET6;
} else
#endif
{
family = AF_INET;
addr.ip4.s_addr = inet_addr(n);
}
for (i = 0; i < num_interfaces; i++) {
ifp = &interfaces[i];
if (ifp->family != family)
continue;
switch (family) {
case AF_INET:
if (ifp->addr.ip4.s_addr == addr.ip4.s_addr ||
(ifp->addr.ip4.s_addr & ifp->netmask.ip4.s_addr)
== addr.ip4.s_addr)
return TRUE;
break;
#ifdef HAVE_STRUCT_IN6_ADDR
case AF_INET6:
if (memcmp(ifp->addr.ip6.s6_addr, addr.ip6.s6_addr,
sizeof(addr.ip6.s6_addr)) == 0)
return TRUE;
for (j = 0; j < sizeof(addr.ip6.s6_addr); j++) {
if ((ifp->addr.ip6.s6_addr[j] & ifp->netmask.ip6.s6_addr[j]) != addr.ip6.s6_addr[j])
break;
}
if (j == sizeof(addr.ip6.s6_addr))
return TRUE;
break;
#endif
}
}
return FALSE;
}
static int
addr_matches_if_netmask(n, m)
char *n;
char *m;
{
int i;
union sudo_in_addr_un addr, mask;
struct interface *ifp;
#ifdef HAVE_STRUCT_IN6_ADDR
int j;
#endif
int family;
#ifdef HAVE_STRUCT_IN6_ADDR
if (inet_pton(AF_INET6, n, &addr.ip6) > 0)
family = AF_INET6;
else
#endif
{
family = AF_INET;
addr.ip4.s_addr = inet_addr(n);
}
if (family == AF_INET) {
if (strchr(m, '.')) {
mask.ip4.s_addr = inet_addr(m);
} else {
i = atoi(m);
if (i == 0)
mask.ip4.s_addr = 0;
else if (i == 32)
mask.ip4.s_addr = 0xffffffff;
else
mask.ip4.s_addr = 0xffffffff - (1 << (32 - i)) + 1;
mask.ip4.s_addr = htonl(mask.ip4.s_addr);
}
addr.ip4.s_addr &= mask.ip4.s_addr;
}
#ifdef HAVE_STRUCT_IN6_ADDR
else {
if (inet_pton(AF_INET6, m, &mask.ip6) <= 0) {
j = atoi(m);
for (i = 0; i < sizeof(addr.ip6.s6_addr); i++) {
if (j < i * 8)
mask.ip6.s6_addr[i] = 0;
else if (i * 8 + 8 <= j)
mask.ip6.s6_addr[i] = 0xff;
else
mask.ip6.s6_addr[i] = 0xff00 >> (j - i * 8);
addr.ip6.s6_addr[i] &= mask.ip6.s6_addr[i];
}
}
}
#endif
for (i = 0; i < num_interfaces; i++) {
ifp = &interfaces[i];
if (ifp->family != family)
continue;
switch (family) {
case AF_INET:
if ((ifp->addr.ip4.s_addr & mask.ip4.s_addr) == addr.ip4.s_addr)
return TRUE;
break;
#ifdef HAVE_STRUCT_IN6_ADDR
case AF_INET6:
for (j = 0; j < sizeof(addr.ip6.s6_addr); j++) {
if ((ifp->addr.ip6.s6_addr[j] & mask.ip6.s6_addr[j]) != addr.ip6.s6_addr[j])
break;
}
if (j == sizeof(addr.ip6.s6_addr))
return TRUE;
break;
#endif
}
}
return FALSE;
}
int
addr_matches(n)
char *n;
{
char *m;
int retval;
if ((m = strchr(n, '/'))) {
*m++ = '\0';
retval = addr_matches_if_netmask(n, m);
*(m - 1) = '/';
} else
retval = addr_matches_if(n);
return retval;
}
int
hostname_matches(shost, lhost, pattern)
char *shost;
char *lhost;
char *pattern;
{
if (has_meta(pattern)) {
if (strchr(pattern, '.'))
return !fnmatch(pattern, lhost, FNM_CASEFOLD);
else
return !fnmatch(pattern, shost, FNM_CASEFOLD);
} else {
if (strchr(pattern, '.'))
return !strcasecmp(lhost, pattern);
else
return !strcasecmp(shost, pattern);
}
}
int
userpw_matches(sudoers_user, user, pw)
char *sudoers_user;
char *user;
struct passwd *pw;
{
if (pw != NULL && *sudoers_user == '#') {
uid_t uid = (uid_t) atoi(sudoers_user + 1);
if (uid == pw->pw_uid)
return TRUE;
}
return strcmp(sudoers_user, user) == 0;
}
int
group_matches(sudoers_group, gr)
char *sudoers_group;
struct group *gr;
{
if (*sudoers_group == '#') {
gid_t gid = (gid_t) atoi(sudoers_group + 1);
if (gid == gr->gr_gid)
return TRUE;
}
return strcmp(gr->gr_name, sudoers_group) == 0;
}
int
usergr_matches(group, user, pw)
char *group;
char *user;
struct passwd *pw;
{
int matched = FALSE;
struct passwd *pw0 = NULL;
if (*group++ != '%')
goto done;
#ifdef USING_NONUNIX_GROUPS
if (*group == ':') {
matched = sudo_nonunix_groupcheck(++group, user, pw);
goto done;
}
#endif
if (pw == NULL) {
if ((pw0 = sudo_getpwnam(user)) == NULL)
goto done;
pw = pw0;
}
if (user_in_group(pw, group)) {
matched = TRUE;
goto done;
}
#ifdef USING_NONUNIX_GROUPS
if (sudo_nonunix_groupcheck_available() &&
sudo_nonunix_groupcheck(group, user, pw)) {
matched = TRUE;
goto done;
}
#endif
done:
if (pw0 != NULL)
pw_delref(pw0);
return matched;
}
int
netgr_matches(netgr, lhost, shost, user)
char *netgr;
char *lhost;
char *shost;
char *user;
{
static char *domain;
#ifdef HAVE_GETDOMAINNAME
static int initialized;
#endif
if (*netgr++ != '+')
return FALSE;
#ifdef HAVE_GETDOMAINNAME
if (!initialized) {
domain = (char *) emalloc(MAXHOSTNAMELEN + 1);
if (getdomainname(domain, MAXHOSTNAMELEN + 1) == -1 || *domain == '\0') {
efree(domain);
domain = NULL;
}
initialized = 1;
}
#endif
#ifdef HAVE_INNETGR
if (innetgr(netgr, lhost, user, domain))
return TRUE;
else if (lhost != shost && innetgr(netgr, shost, user, domain))
return TRUE;
#endif
return FALSE;
}