void freesendreturnbuf(sendreturn_t *s)
{
if (!s) return;
if (s->respstr) freestrbuffer(s->respstr);
xfree(s);
}
int load_alertconfig(char *configfn, int defcolors, int defaultinterval)
{
/* (Re)load the configuration file without leaking memory */
static void *configfiles = NULL;
char fn[PATH_MAX];
FILE *fd;
strbuffer_t *inbuf;
char *p;
rule_t *currule = NULL;
recip_t *currcp = NULL, *rcptail = NULL;
MEMDEFINE(fn);
if (configfn) strcpy(fn, configfn); else sprintf(fn, "%s/etc/alerts.cfg", xgetenv("XYMONHOME"));
/* First check if there were no modifications at all */
if (configfiles) {
if (!stackfmodified(configfiles)){
dbgprintf("No files modified, skipping reload of %s\n", fn);
MEMUNDEFINE(fn);
return 0;
}
else {
stackfclist(&configfiles);
configfiles = NULL;
}
}
fd = stackfopen(fn, "r", &configfiles);
if (!fd) {
errprintf("Cannot open configuration file %s: %s\n", fn, strerror(errno));
MEMUNDEFINE(fn);
return 0;
}
/* First, clean out the old rule set */
while (rulehead) {
rule_t *trule;
if (rulehead->criteria) {
free_criteria(rulehead->criteria);
xfree(rulehead->criteria);
}
while (rulehead->recipients) {
recip_t *trecip = rulehead->recipients;
if (trecip->criteria) {
recip_t *rwalk;
/* Clear out the duplicate criteria that may exist, to avoid double-free'ing them */
for (rwalk = trecip->next; (rwalk); rwalk = rwalk->next) {
if (rwalk->criteria == trecip->criteria) rwalk->criteria = NULL;
}
free_criteria(trecip->criteria);
xfree(trecip->criteria);
}
if (trecip->recipient) xfree(trecip->recipient);
if (trecip->scriptname) xfree(trecip->scriptname);
rulehead->recipients = rulehead->recipients->next;
xfree(trecip);
}
trule = rulehead;
rulehead = rulehead->next;
xfree(trule);
}
while (tokhead) {
token_t *ttok;
if (tokhead->name) xfree(tokhead->name);
if (tokhead->value) xfree(tokhead->value);
ttok = tokhead;
tokhead = tokhead->next;
xfree(ttok);
}
defaultcolors = defcolors;
MEMDEFINE(cfline);
cfid = 0;
inbuf = newstrbuffer(0);
while (stackfgets(inbuf, NULL)) {
int firsttoken = 1;
int mailcmdactive = 0, scriptcmdactive = 0;
recip_t *curlinerecips = NULL;
cfid++;
sanitize_input(inbuf, 1, 0);
/* Skip empty lines */
if (STRBUFLEN(inbuf) == 0) continue;
if ((*STRBUF(inbuf) == '$') && strchr(STRBUF(inbuf), '=')) {
/* Define a macro */
token_t *newtok = (token_t *) malloc(sizeof(token_t));
char *delim;
delim = strchr(STRBUF(inbuf), '=');
*delim = '\0';
newtok->name = strdup(STRBUF(inbuf)+1); /* Skip the '$' */
newtok->value = strdup(preprocess(delim+1));
newtok->next = tokhead;
tokhead = newtok;
continue;
}
strncpy(cfline, STRBUF(inbuf), (sizeof(cfline)-1));
cfline[sizeof(cfline)-1] = '\0';
/* Expand macros inside the line before parsing */
p = strtok(preprocess(STRBUF(inbuf)), " \t");
while (p) {
if ((strncasecmp(p, "PAGE=", 5) == 0) || (strncasecmp(p, "PAGES=", 6) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->pagespec = strdup(val);
if (*(crit->pagespec) == '%') crit->pagespecre = compileregex(crit->pagespec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "EXPAGE=", 7) == 0) || (strncasecmp(p, "EXPAGES=", 8) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->expagespec = strdup(val);
if (*(crit->expagespec) == '%') crit->expagespecre = compileregex(crit->expagespec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "DISPLAYGROUP=", 13) == 0) || (strncasecmp(p, "DISPLAYGROUPS=", 14) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->dgspec = strdup(val);
if (*(crit->dgspec) == '%') crit->dgspecre = compileregex(crit->dgspec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "EXDISPLAYGROUP=", 15) == 0) || (strncasecmp(p, "EXDISPLAYGROUPS=", 16) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->exdgspec = strdup(val);
if (*(crit->exdgspec) == '%') crit->exdgspecre = compileregex(crit->exdgspec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "HOST=", 5) == 0) || (strncasecmp(p, "HOSTS=", 6) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->hostspec = strdup(val);
if (*(crit->hostspec) == '%') crit->hostspecre = compileregex(crit->hostspec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "EXHOST=", 7) == 0) || (strncasecmp(p, "EXHOSTS=", 8) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->exhostspec = strdup(val);
if (*(crit->exhostspec) == '%') crit->exhostspecre = compileregex(crit->exhostspec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "SERVICE=", 8) == 0) || (strncasecmp(p, "SERVICES=", 9) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->svcspec = strdup(val);
if (*(crit->svcspec) == '%') crit->svcspecre = compileregex(crit->svcspec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "EXSERVICE=", 10) == 0) || (strncasecmp(p, "EXSERVICES=", 11) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->exsvcspec = strdup(val);
if (*(crit->exsvcspec) == '%') crit->exsvcspecre = compileregex(crit->exsvcspec+1);
firsttoken = 0;
}
else if (strncasecmp(p, "CLASS=", 6) == 0) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->classspec = strdup(val);
if (*(crit->classspec) == '%') crit->classspecre = compileregex(crit->classspec+1);
firsttoken = 0;
}
else if (strncasecmp(p, "EXCLASS=", 8) == 0) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->exclassspec = strdup(val);
if (*(crit->exclassspec) == '%') crit->exclassspecre = compileregex(crit->exclassspec+1);
firsttoken = 0;
}
else if (strncasecmp(p, "GROUP=", 6) == 0) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->groupspec = strdup(val);
if (*(crit->groupspec) == '%') crit->groupspecre = compileregex(crit->groupspec+1);
firsttoken = 0;
}
else if (strncasecmp(p, "EXGROUP=", 8) == 0) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->exgroupspec = strdup(val);
if (*(crit->exgroupspec) == '%') crit->exgroupspecre = compileregex(crit->exgroupspec+1);
firsttoken = 0;
}
else if ((strncasecmp(p, "COLOR=", 6) == 0) || (strncasecmp(p, "COLORS=", 7) == 0)) {
criteria_t *crit;
char *c1, *c2;
int cval, reverse = 0;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
crit = setup_criteria(&currule, &currcp);
/* Put a value in crit->colors so we know there is an explicit color setting */
crit->colors = (1 << 30);
c1 = strchr(p, '=')+1;
/*
* If the first colorspec is "!color", then apply the default colors and
* subtract colors from that.
*/
if (*c1 == '!') crit->colors |= defaultcolors;
do {
c2 = strchr(c1, ',');
if (c2) *c2 = '\0';
if (*c1 == '!') { reverse=1; c1++; }
cval = (1 << parse_color(c1));
if (reverse)
crit->colors &= (~cval);
else
crit->colors |= cval;
if (c2) c1 = (c2+1); else c1 = NULL;
} while (c1);
firsttoken = 0;
}
else if ((strncasecmp(p, "TIME=", 5) == 0) || (strncasecmp(p, "TIMES=", 6) == 0)) {
char *val;
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
val = strchr(p, '=')+1;
crit = setup_criteria(&currule, &currcp);
crit->timespec = strdup(val);
firsttoken = 0;
}
else if (strncasecmp(p, "DURATION", 8) == 0) {
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
crit = setup_criteria(&currule, &currcp);
if (*(p+8) == '>') crit->minduration = 60*durationvalue(p+9);
else if (*(p+8) == '<') crit->maxduration = 60*durationvalue(p+9);
else errprintf("Ignoring invalid DURATION at line %d: %s\n",cfid, p);
firsttoken = 0;
}
else if (strncasecmp(p, "RECOVERED", 9) == 0) {
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
crit = setup_criteria(&currule, &currcp);
crit->sendrecovered = SR_WANTED;
firsttoken = 0;
}
else if (strncasecmp(p, "NORECOVERED", 11) == 0) {
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
crit = setup_criteria(&currule, &currcp);
crit->sendrecovered = SR_NOTWANTED;
firsttoken = 0;
}
else if (strncasecmp(p, "NOTICE", 6) == 0) {
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
crit = setup_criteria(&currule, &currcp);
crit->sendnotice = SR_WANTED;
firsttoken = 0;
}
else if (strncasecmp(p, "NONOTICE", 8) == 0) {
criteria_t *crit;
if (firsttoken) { flush_rule(currule); currule = NULL; currcp = NULL; pstate = P_NONE; }
crit = setup_criteria(&currule, &currcp);
crit->sendnotice = SR_NOTWANTED;
firsttoken = 0;
}
else if ((pstate == P_RECIP) && (strncasecmp(p, "FORMAT=", 7) == 0)) {
if (!currcp) errprintf("FORMAT used without a recipient (line %d), ignored\n", cfid);
else if (strcasecmp(p+7, "TEXT") == 0) currcp->format = ALERTFORM_TEXT;
else if (strcasecmp(p+7, "PLAIN") == 0) currcp->format = ALERTFORM_PLAIN;
else if (strcasecmp(p+7, "SMS") == 0) currcp->format = ALERTFORM_SMS;
else if (strcasecmp(p+7, "PAGER") == 0) currcp->format = ALERTFORM_PAGER;
else if (strcasecmp(p+7, "SCRIPT") == 0) currcp->format = ALERTFORM_SCRIPT;
else errprintf("Unknown FORMAT setting '%s' ignored\n", p);
firsttoken = 0;
}
else if ((pstate == P_RECIP) && (strncasecmp(p, "REPEAT=", 7) == 0)) {
if (!currcp) errprintf("REPEAT used without a recipient (line %d), ignored\n", cfid);
else currcp->interval = 60*durationvalue(p+7);
firsttoken = 0;
}
else if ((pstate == P_RECIP) && (strcasecmp(p, "STOP") == 0)) {
if (!currcp) errprintf("STOP used without a recipient (line %d), ignored\n", cfid);
else currcp->stoprule = 1;
firsttoken = 0;
}
else if ((pstate == P_RECIP) && (strcasecmp(p, "UNMATCHED") == 0)) {
if (!currcp) errprintf("UNMATCHED used without a recipient (line %d), ignored\n", cfid);
else currcp->unmatchedonly = 1;
firsttoken = 0;
}
else if ((pstate == P_RECIP) && (strncasecmp(p, "NOALERT", 7) == 0)) {
if (!currcp) errprintf("NOALERT used without a recipient (line %d), ignored\n", cfid);
else currcp->noalerts = 1;
firsttoken = 0;
}
else if (currule && ((strncasecmp(p, "MAIL", 4) == 0) || mailcmdactive) ) {
recip_t *newrcp;
mailcmdactive = 1;
newrcp = (recip_t *)calloc(1, sizeof(recip_t));
newrcp->cfid = cfid;
newrcp->method = M_MAIL;
newrcp->format = ALERTFORM_TEXT;
if (strncasecmp(p, "MAIL=", 5) == 0) {
p += 5;
}
else if (strcasecmp(p, "MAIL") == 0) {
p = strtok(NULL, " \t");
}
else {
/* Second recipient on a rule - do nothing */
}
if (p) {
newrcp->recipient = strdup(p);
newrcp->interval = defaultinterval;
currcp = newrcp;
if (curlinerecips == NULL) curlinerecips = newrcp;
pstate = P_RECIP;
if (currule->recipients == NULL)
currule->recipients = rcptail = newrcp;
else {
rcptail->next = newrcp;
rcptail = newrcp;
}
}
else {
errprintf("Ignoring MAIL with no recipient at line %d\n", cfid);
xfree(newrcp);
}
firsttoken = 0;
}
else if (currule && ((strncasecmp(p, "SCRIPT", 6) == 0) || scriptcmdactive)) {
recip_t *newrcp;
scriptcmdactive = 1;
newrcp = (recip_t *)calloc(1, sizeof(recip_t));
newrcp->cfid = cfid;
newrcp->method = M_SCRIPT;
newrcp->format = ALERTFORM_SCRIPT;
if (strncasecmp(p, "SCRIPT=", 7) == 0) {
p += 7;
newrcp->scriptname = strdup(p);
p = strtok(NULL, " \t");
}
else if (strcasecmp(p, "SCRIPT") == 0) {
p = strtok(NULL, " \t");
if (p) {
newrcp->scriptname = strdup(p);
p = strtok(NULL, " \t");
}
else {
errprintf("Invalid SCRIPT command at line %d\n", cfid);
}
}
else {
/* A second recipient for the same script as the previous one */
newrcp->scriptname = strdup(currcp->scriptname);
}
if (p) {
newrcp->recipient = strdup(p);
newrcp->interval = defaultinterval;
currcp = newrcp;
if (curlinerecips == NULL) curlinerecips = newrcp;
pstate = P_RECIP;
if (currule->recipients == NULL)
currule->recipients = rcptail = newrcp;
else {
rcptail->next = newrcp;
rcptail = newrcp;
}
}
else {
errprintf("Ignoring SCRIPT with no recipient at line %d\n", cfid);
if (newrcp->scriptname) xfree(newrcp->scriptname);
xfree(newrcp);
}
firsttoken = 0;
}
else if (currule && (strncasecmp(p, "IGNORE", 6) == 0)) {
recip_t *newrcp;
newrcp = (recip_t *)calloc(1, sizeof(recip_t));
newrcp->cfid = cfid;
newrcp->method = M_IGNORE;
newrcp->format = ALERTFORM_NONE;
newrcp->interval = defaultinterval;
newrcp->stoprule = 1;
currcp = newrcp;
if (curlinerecips == NULL) curlinerecips = newrcp;
pstate = P_RECIP;
if (currule->recipients == NULL)
currule->recipients = rcptail = newrcp;
else {
rcptail->next = newrcp;
rcptail = newrcp;
}
firsttoken = 0;
}
else {
errprintf("Ignored unknown/unexpected token '%s' at line %d\n", p, cfid);
}
if (p) p = strtok(NULL, " \t");
}
if (curlinerecips && currcp && (curlinerecips != currcp)) {
/* We have multiple recipients on one line. Make sure criteria etc. get copied */
recip_t *rwalk;
/* All criteria etc. have been set on the last recipient (currcp) */
for (rwalk = curlinerecips; (rwalk != currcp); rwalk = rwalk->next) {
rwalk->format = currcp->format;
rwalk->interval = currcp->interval;
rwalk->criteria = currcp->criteria;
rwalk->noalerts = currcp->noalerts;
}
}
}
flush_rule(currule);
stackfclose(fd);
freestrbuffer(inbuf);
MEMUNDEFINE(cfline);
MEMUNDEFINE(fn);
return 1;
}
void loadenv(char *envfile, char *area)
{
FILE *fd;
strbuffer_t *inbuf;
char *p, *oneenv;
MEMDEFINE(l);
inbuf = newstrbuffer(0);
fd = stackfopen(envfile, "r", NULL);
if (fd) {
while (stackfgets(inbuf, NULL)) {
char *equalpos;
int appendto = 0;
sanitize_input(inbuf, 1, 1);
if ((STRBUFLEN(inbuf) == 0) || ((equalpos = strchr(STRBUF(inbuf), '=')) == NULL)) continue;
appendto = ((equalpos > STRBUF(inbuf)) && (*(equalpos-1) == '+'));
/*
* Do the environment "area" stuff: If the input
* is of the form AREA/NAME=VALUE, then setup the variable
* only if we're called with the correct AREA setting.
*/
oneenv = NULL;
p = STRBUF(inbuf) + strcspn(STRBUF(inbuf), "=/");
if (*p == '/') {
if (area) {
*p = '\0';
if (strcasecmp(STRBUF(inbuf), area) == 0) oneenv = strdup(expand_env(p+1));
}
}
else oneenv = strdup(expand_env(STRBUF(inbuf)));
if (oneenv) {
p = strchr(oneenv, '=');
if (*(p+1) == '"') {
/* Move string over the first '"' */
memmove(p+1, p+2, strlen(p+2)+1);
/* Kill a trailing '"' */
if (*(oneenv + strlen(oneenv) - 1) == '"') *(oneenv + strlen(oneenv) - 1) = '\0';
}
if (appendto) {
char *oldval, *addstring, *p;
addstring = strchr(oneenv, '='); if (addstring) { *addstring = '\0'; addstring++; }
p = strchr(oneenv, '+'); if (p) *p = '\0';
oldval = getenv(oneenv);
if (oldval) {
char *combinedenv = (char *)malloc(strlen(oneenv) + strlen(oldval) + strlen(addstring) + 2);
sprintf(combinedenv, "%s=%s%s", oneenv, oldval, (addstring));
xfree(oneenv);
oneenv = combinedenv;
}
else {
/* oneenv is now VARxxVALUE, so fix it to be a normal env. variable format */
strcat(oneenv, "=");
memmove(oneenv+strlen(oneenv), addstring, strlen(addstring) + 1);
}
}
putenv(oneenv);
}
}
stackfclose(fd);
}
else {
errprintf("Cannot open env file %s - %s\n", envfile, strerror(errno));
}
freestrbuffer(inbuf);
MEMUNDEFINE(l);
}
