Files
sudo/parse.yacc
1996-06-17 16:19:04 +00:00

572 lines
11 KiB
Plaintext

%{
/*
* CU sudo version 1.4
*
* 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 1, 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, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* Please send bugs, changes, problems to sudo-bugs@cs.colorado.edu
*
*******************************************************************
*
* parse.yacc -- yacc parser and alias manipulation routines for sudo.
*
* Chris Jepeway <jepeway@cs.utk.edu>
*/
#ifndef lint
static char rcsid[] = "$Id$";
#endif /* lint */
#include "config.h"
#include <stdio.h>
#ifdef STDC_HEADERS
#include <stdlib.h>
#endif /* STDC_HEADERS */
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif /* HAVE_UNISTD_H */
#include <pwd.h>
#include <sys/types.h>
#include <sys/param.h>
#include <netinet/in.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif /* HAVE_STRING_H */
#if defined(HAVE_MALLOC_H) && !defined(STDC_HEADERS)
#include <malloc.h>
#endif /* HAVE_MALLOC_H && !STDC_HEADERS */
#ifdef HAVE_LSEARCH
#include <search.h>
#endif /* HAVE_LSEARCH */
#include <options.h>
#include "sudo.h"
#ifndef HAVE_LSEARCH
#include "emul/search.h"
#endif /* HAVE_LSEARCH */
#ifndef HAVE_STRCASECMP
#define strcasecmp(a,b) strcmp(a,b)
#endif /* !HAVE_STRCASECMP */
/*
* Globals
*/
extern int sudolineno, parse_error;
int errorlineno = -1;
int clearaliases = 1;
int printmatches = 0;
/*
* Alias types
*/
#define HOST 1
#define CMND 2
#define USER 3
/*
* The matching stack, we should not have to initialize this,
* since it is global but some compilers are just too braindamaged...
*/
#define MATCHSTACKSIZE (40)
struct matchstack match[MATCHSTACKSIZE] = { FALSE };
int top = 0;
#define push \
if (top > MATCHSTACKSIZE) \
yyerror("matching stack overflow"); \
else { \
match[top].user = -1; \
match[top].cmnd = -1; \
match[top].host = -1; \
match[top].runas = -1; \
match[top].nopass = -1; \
top++; \
}
#define pop \
if (top == 0) \
yyerror("matching stack underflow"); \
else \
top--;
/*
* Protoypes
*/
extern int command_matches __P((char *, char **, char *, char **));
extern int addr_matches __P((char *));
extern int netgr_matches __P((char *, char *, char *));
extern int usergr_matches __P((char *, char *));
static int find_alias __P((char *, int));
static int add_alias __P((char *, int));
static int more_aliases __P((size_t));
void yyerror __P((char *));
void yyerror(s)
char *s;
{
/* save the line the first error occured on */
if (errorlineno == -1)
errorlineno = sudolineno;
#ifndef TRACELEXER
(void) fprintf(stderr, ">>> sudoers file: %s, line %d <<<\n", s, sudolineno);
#else
(void) fprintf(stderr, "<*> ");
#endif
parse_error = TRUE;
}
%}
%union {
char *string;
int BOOLEAN;
struct sudo_command command;
int tok;
}
%start file /* special start symbol */
%token <string> ALIAS /* an UPPERCASE alias name */
%token <string> NTWKADDR /* w.x.y.z */
%token <string> FQHOST /* foo.bar.com */
%token <string> NETGROUP /* a netgroup (+NAME) */
%token <string> USERGROUP /* a usergroup (%NAME) */
%token <string> NAME /* a mixed-case name */
%token <tok> RUNAS /* a mixed-case runas name */
%token <tok> NOPASSWD /* no passwd req for command*/
%token <command> COMMAND /* an absolute pathname */
%token <tok> COMMENT /* comment and/or carriage return */
%token <tok> ALL /* ALL keyword */
%token <tok> HOSTALIAS /* Host_Alias keyword */
%token <tok> CMNDALIAS /* Cmnd_Alias keyword */
%token <tok> USERALIAS /* User_Alias keyword */
%token <tok> ':' '=' ',' '!' '.' /* union member tokens */
%token <tok> ERROR
%type <BOOLEAN> cmnd
%type <BOOLEAN> runasspec
%type <BOOLEAN> runaslist
%type <BOOLEAN> runasuser
%type <BOOLEAN> nopassreq
%type <BOOLEAN> chkcmnd
%%
file : entry
| file entry
;
entry : COMMENT
{ ; }
| error COMMENT
{ yyerrok; }
| { push; } user privileges {
while (top && user_matches != TRUE) {
pop;
}
}
| USERALIAS useraliases
{ ; }
| HOSTALIAS hostaliases
{ ; }
| CMNDALIAS cmndaliases
{ ; }
;
privileges : privilege
| privileges ':' privilege
;
privilege : hostspec '=' opcmndlist {
if (user_matches == TRUE) {
push;
user_matches = TRUE;
}
}
;
hostspec : ALL {
host_matches = TRUE;
}
| NTWKADDR {
if (addr_matches($1))
host_matches = TRUE;
(void) free($1);
}
| NETGROUP {
if (netgr_matches($1, host, NULL))
host_matches = TRUE;
(void) free($1);
}
| NAME {
if (strcasecmp(shost, $1) == 0)
host_matches = TRUE;
(void) free($1);
}
| FQHOST {
if (strcasecmp(host, $1) == 0)
host_matches = TRUE;
(void) free($1);
}
| ALIAS {
if (find_alias($1, HOST))
host_matches = TRUE;
(void) free($1);
}
;
opcmndlist : opcmnd
| opcmndlist ',' opcmnd
;
opcmnd : cmnd {
runas_matches = TRUE;
}
| '!' {
if (printmatches == TRUE && host_matches == TRUE
&& user_matches == TRUE) {
(void) putchar('!');
push;
user_matches = TRUE;
host_matches = TRUE;
} else {
push;
}
} opcmnd {
int cmnd_matched = cmnd_matches;
pop;
if (cmnd_matched == TRUE)
cmnd_matches = FALSE;
else if (cmnd_matched == FALSE)
cmnd_matches = TRUE;
}
| runasspec { ; }
| nopassreq { ; }
;
runasspec : RUNAS runaslist chkcmnd {
if ($2 > 0 && $3 == TRUE)
runas_matches = TRUE;
}
runaslist : runasuser {
$$ = $1;
}
| runaslist ',' runasuser {
$$ = $1 + $3;
}
;
runasuser : NAME {
if (strcmp($1, runas_user) == 0)
$$ = TRUE;
else
$$ = FALSE;
(void) free($1);
}
| USERGROUP {
if (usergr_matches($1, runas_user))
$$ = TRUE;
else
$$ = FALSE;
(void) free($1);
}
| NETGROUP {
if (netgr_matches($1, NULL, runas_user))
$$ = TRUE;
else
$$ = FALSE;
(void) free($1);
}
| ALIAS {
if (find_alias($1, USER))
$$ == TRUE;
else
$$ = FALSE;
(void) free($1);
}
| ALL {
$$ == TRUE;
}
;
chkcmnd : cmnd {
$$=$1;
}
| nopassreq {
$$=$1;
}
;
nopassreq : NOPASSWD cmnd {
if (host_matches == TRUE && user_matches == TRUE &&
$2 == TRUE) {
no_passwd=TRUE;
$$ = TRUE;
}
}
;
cmnd : ALL {
if (printmatches == TRUE && host_matches == TRUE &&
user_matches == TRUE)
(void) puts("ALL");
cmnd_matches = TRUE;
$$=TRUE;
}
| ALIAS {
if (printmatches == TRUE && host_matches == TRUE &&
user_matches == TRUE)
(void) puts($1);
if (find_alias($1, CMND)) {
cmnd_matches = TRUE;
$$=TRUE;
}
(void) free($1);
}
| COMMAND {
char **t;
if (printmatches == TRUE && host_matches == TRUE &&
user_matches == TRUE) {
(void) printf("%s ", $1.cmnd);
for (t = $1.args; t && *t; t++)
(void) printf("%s ",*t);
(void) putchar('\n');
}
/* if NewArgc > 1 pass ptr to 1st arg, else NULL */
if (command_matches(cmnd, (NewArgc > 1) ?
&NewArgv[1] : NULL, $1.cmnd, $1.args)) {
cmnd_matches = TRUE;
$$=TRUE;
}
(void) free($1.cmnd);
for (t = $1.args; t && *t; t++)
(void) free(*t);
(void) free($1.args);
}
;
hostaliases : hostalias
| hostaliases ':' hostalias
;
hostalias : ALIAS { push; } '=' hostlist {
if (host_matches == TRUE && !add_alias($1, HOST))
YYERROR;
pop;
}
;
hostlist : hostspec
| hostlist ',' hostspec
;
cmndaliases : cmndalias
| cmndaliases ':' cmndalias
;
cmndalias : ALIAS { push; } '=' cmndlist {
if (cmnd_matches == TRUE && !add_alias($1, CMND))
YYERROR;
pop;
(void) free($1);
}
;
cmndlist : cmnd
{ ; }
| cmndlist ',' cmnd
;
useraliases : useralias
| useraliases ':' useralias
;
useralias : ALIAS { push; } '=' userlist {
if (user_matches == TRUE && !add_alias($1, USER))
YYERROR;
pop;
(void) free($1);
}
;
userlist : user
{ ; }
| userlist ',' user
;
user : NAME {
if (strcmp($1, user_name) == 0)
user_matches = TRUE;
(void) free($1);
}
| USERGROUP {
if (usergr_matches($1, user_name))
user_matches = TRUE;
(void) free($1);
}
| NETGROUP {
if (netgr_matches($1, NULL, user_name))
user_matches = TRUE;
(void) free($1);
}
| ALIAS {
if (find_alias($1, USER))
user_matches = TRUE;
(void) free($1);
}
| ALL {
user_matches = TRUE;
}
;
%%
typedef struct {
int type;
char name[BUFSIZ];
} aliasinfo;
#define MOREALIASES (32)
aliasinfo *aliases = NULL;
size_t naliases = 0;
size_t nslots = 0;
static int aliascmp(a1, a2)
const VOID *a1, *a2;
{
int r;
aliasinfo *ai1, *ai2;
ai1 = (aliasinfo *) a1;
ai2 = (aliasinfo *) a2;
r = strcmp(ai1->name, ai2->name);
if (r == 0)
r = ai1->type - ai2->type;
return(r);
}
static int add_alias(alias, type)
char *alias;
int type;
{
aliasinfo ai, *aip;
char s[512];
int ok;
ok = FALSE; /* assume failure */
ai.type = type;
(void) strcpy(ai.name, alias);
if (lfind((VOID *)&ai, (VOID *)aliases, &naliases, sizeof(ai),
aliascmp) != NULL) {
(void) sprintf(s, "Alias `%s' already defined", alias);
yyerror(s);
} else {
if (naliases == nslots && !more_aliases(nslots)) {
(void) sprintf(s, "Out of memory defining alias `%s'", alias);
yyerror(s);
}
aip = (aliasinfo *) lsearch((VOID *)&ai, (VOID *)aliases,
&naliases, sizeof(ai), aliascmp);
if (aip != NULL) {
ok = TRUE;
} else {
(void) sprintf(s, "Aliases corrupted defining alias `%s'", alias);
yyerror(s);
}
}
return(ok);
}
static int find_alias(alias, type)
char *alias;
int type;
{
aliasinfo ai;
(void) strcpy(ai.name, alias);
ai.type = type;
return(lfind((VOID *)&ai, (VOID *)aliases, &naliases,
sizeof(ai), aliascmp) != NULL);
}
static int more_aliases(nslots)
size_t nslots;
{
aliasinfo *aip;
if (nslots == 0)
aip = (aliasinfo *) malloc(MOREALIASES * sizeof(*aip));
else
aip = (aliasinfo *) realloc(aliases,
(nslots + MOREALIASES) * sizeof(*aip));
if (aip != NULL) {
aliases = aip;
nslots += MOREALIASES;
}
return(aip != NULL);
}
void dumpaliases()
{
size_t n;
for (n = 0; n < naliases; n++) {
switch (aliases[n].type) {
case HOST:
(void) puts("HOST");
break;
case CMND:
(void) puts("CMND");
break;
case USER:
(void) puts("USER");
break;
}
(void) printf("\t%s\n", aliases[n].name);
}
}
void reset_aliases()
{
if (aliases)
(void) free(aliases);
naliases = nslots = 0;
}