static int statuscolor_by_set(testedhost_t *h, long status, char *okcodes, char *badcodes)
{
int result = -1;
char codestr[10];
pcre *ptn;
/* Use code 999 to indicate we could not fetch the URL */
sprintf(codestr, "%ld", (status ? status : 999));
if (okcodes) {
ptn = compileregex(okcodes);
if (matchregex(codestr, ptn)) result = COL_GREEN; else result = COL_RED;
freeregex(ptn);
}
if (badcodes) {
ptn = compileregex(badcodes);
if (matchregex(codestr, ptn)) result = COL_RED; else result = COL_GREEN;
freeregex(ptn);
}
if (result == -1) result = statuscolor(h, status);
dbgprintf("Host %s status %s [%s:%s] -> color %s\n",
h->hostname, codestr,
(okcodes ? okcodes : "<null>"),
(badcodes ? badcodes : "<null>"),
colorname(result));
return result;
}
void handle_irix_client(char *hostname, char *clienttype, enum ostype_t os,
void *hinfo, char *sender, time_t timestamp,
char *clientdata)
{
static pcre *memptn = NULL;
char *timestr;
char *uptimestr;
char *clockstr;
char *msgcachestr;
char *whostr;
char *psstr;
char *topstr;
char *dfstr;
char *swapstr;
char *msgsstr;
char *netstatstr;
char *sarstr;
char *ifstatstr;
char *portsstr;
char fromline[1024];
sprintf(fromline, "\nStatus message received from %s\n", sender);
splitmsg(clientdata);
timestr = getdata("date");
uptimestr = getdata("uptime");
clockstr = getdata("clock");
msgcachestr = getdata("msgcache");
whostr = getdata("who");
psstr = getdata("ps");
topstr = getdata("top");
dfstr = getdata("df");
swapstr = getdata("swap");
msgsstr = getdata("msgs");
netstatstr = getdata("netstat");
ifstatstr = getdata("ifstat");
sarstr = getdata("sar");
portsstr = getdata("ports");
unix_cpu_report(hostname, clienttype, os, hinfo, fromline, timestr, uptimestr, clockstr, msgcachestr,
whostr, 0, psstr, 0, topstr);
unix_disk_report(hostname, clienttype, os, hinfo, fromline, timestr, "Available", "Capacity", "Mounted", dfstr);
unix_procs_report(hostname, clienttype, os, hinfo, fromline, timestr, "COMMAND", NULL, psstr);
unix_ports_report(hostname, clienttype, os, hinfo, fromline, timestr, 3, 4, 5, portsstr);
msgs_report(hostname, clienttype, os, hinfo, fromline, timestr, msgsstr);
file_report(hostname, clienttype, os, hinfo, fromline, timestr);
linecount_report(hostname, clienttype, os, hinfo, fromline, timestr);
unix_netstat_report(hostname, clienttype, os, hinfo, fromline, timestr, netstatstr);
unix_ifstat_report(hostname, clienttype, os, hinfo, fromline, timestr, ifstatstr);
/* unix_sar_report(hostname, clienttype, os, hinfo, fromline, timestr, sarstr); */
if (topstr) {
char *memline, *eoln = NULL;
int res;
int ovector[20];
char w[20];
long memphystotal = -1, memphysused = -1, memphysfree = 0,
memactused = -1, memactfree = -1,
memswaptotal = -1, memswapused = -1, memswapfree = 0;
if (!memptn) {
memptn = compileregex("^Memory: (\\d+)M max, (\\d+)M avail, (\\d+)M free, (\\d+)M swap, (\\d+)M free swap");
}
memline = strstr(topstr, "\nMemory:");
if (memline) {
memline++;
eoln = strchr(memline, '\n'); if (eoln) *eoln = '\0';
res = pcre_exec(memptn, NULL, memline, strlen(memline), 0, 0, ovector, (sizeof(ovector)/sizeof(int)));
}
else res = -1;
if (res > 1) {
pcre_copy_substring(memline, ovector, res, 1, w, sizeof(w));
memphystotal = atol(w);
}
if (res > 2) {
pcre_copy_substring(memline, ovector, res, 2, w, sizeof(w));
memactfree = atol(w);
memactused = memphystotal - memactfree;
}
if (res > 3) {
pcre_copy_substring(memline, ovector, res, 3, w, sizeof(w));
memphysfree = atol(w);
memphysused = memphystotal - memphysfree;
}
if (res > 4) {
pcre_copy_substring(memline, ovector, res, 4, w, sizeof(w));
memswaptotal = atol(w);
}
if (res > 5) {
pcre_copy_substring(memline, ovector, res, 5, w, sizeof(w));
memswapfree = atol(w);
}
memswapused = memswaptotal - memswapfree;
if (eoln) *eoln = '\n';
unix_memory_report(hostname, clienttype, os, hinfo, fromline, timestr,
memphystotal, memphysused, memactused, memswaptotal, memswapused);
}
splitmsg_done();
}
int main(int argc, char *argv[])
{
char *envarea = NULL;
char *server = NULL;
char *cookie, *pagefilter = "";
char *filter = NULL;
char *heading = NULL;
int showcolors = 1;
int showcolumn = 0;
int addlink = 0;
int allhosts = 0;
int summary = 0;
int embedded = 0;
char *req, *board, *l;
int argi, res;
sendreturn_t *sres;
init_timestamp();
for (argi=1; (argi < argc); argi++) {
if (argnmatch(argv[argi], "--env=")) {
char *p = strchr(argv[argi], '=');
loadenv(p+1, envarea);
}
else if (argnmatch(argv[argi], "--area=")) {
char *p = strchr(argv[argi], '=');
envarea = strdup(p+1);
}
else if (strcmp(argv[argi], "--debug") == 0) {
debug = 1;
}
else if ( argnmatch(argv[argi], "--column=") || argnmatch(argv[argi], "--test=")) {
char *p = strchr(argv[argi], '=');
int needed;
needed = 10 + strlen(p); if (filter) needed += strlen(filter);
filter = (char *)(filter ? realloc(filter, needed) : calloc(1, needed));
sprintf(filter + strlen(filter), " test=%s", p+1);
if (!heading) {
heading = (char *)malloc(1024 + strlen(p) + strlen(timestamp));
sprintf(heading, "%s report on %s", p+1, timestamp);
}
}
else if (argnmatch(argv[argi], "--filter=")) {
char *p = strchr(argv[argi], '=');
int needed;
needed = 10 + strlen(p); if (filter) needed += strlen(filter);
filter = (char *)(filter ? realloc(filter, needed) : calloc(1, needed));
sprintf(filter + strlen(filter), " %s", p+1);
}
else if (argnmatch(argv[argi], "--heading=")) {
char *p = strchr(argv[argi], '=');
heading = strdup(p+1);
}
else if (strcmp(argv[argi], "--show-column") == 0) {
showcolumn = 1;
}
else if (strcmp(argv[argi], "--show-test") == 0) {
showcolumn = 1;
}
else if (strcmp(argv[argi], "--show-colors") == 0) {
showcolors = 1;
}
else if (strcmp(argv[argi], "--show-summary") == 0) {
summary = 1;
}
else if (strcmp(argv[argi], "--show-message") == 0) {
summary = 0;
}
else if (strcmp(argv[argi], "--link") == 0) {
addlink = 1;
}
else if (strcmp(argv[argi], "--no-colors") == 0) {
showcolors = 0;
}
else if (strcmp(argv[argi], "--all") == 0) {
allhosts = 1;
}
else if (strcmp(argv[argi], "--embedded") == 0) {
embedded = 1;
}
}
if (!allhosts) {
/* Setup the filter we use for the report */
cookie = get_cookie("pagepath");
if (cookie && *cookie) {
pcre *dummy;
char *re = (char *)malloc(8 + 2*strlen(cookie));
sprintf(re, "^%s$|^%s/.+", cookie, cookie);
dummy = compileregex(re);
if (dummy) {
freeregex(dummy);
pagefilter = malloc(10 + strlen(re));
sprintf(pagefilter, "page=%s", re);
}
}
}
sres = newsendreturnbuf(1, NULL);
req = malloc(1024 + strlen(pagefilter) + strlen(filter));
sprintf(req, "xymondboard fields=hostname,testname,color,msg %s %s",
pagefilter, filter);
res = sendmessage(req, server, XYMON_TIMEOUT, sres);
board = getsendreturnstr(sres, 1);
freesendreturnbuf(sres);
if (res != XYMONSEND_OK) return 1;
if (!embedded) {
printf("Content-type: %s\n\n", xgetenv("HTMLCONTENTTYPE"));
printf("<html><head><title>%s</title></head>\n", htmlquoted(heading));
printf("<body>");
printf("<table border=1 cellpadding=5><tr><th>%s</th><th align=left>Status</th></tr>\n",
(showcolumn ? "Host/Column" : "Host"));
}
l = board;
while (l && *l) {
char *hostname, *testname = NULL, *colorstr = NULL, *msg = NULL, *p;
char *eoln = strchr(l, '\n');
if (eoln) *eoln = '\0';
hostname = l;
p = strchr(l, '|'); if (p) { *p = '\0'; l = testname = p+1; }
p = strchr(l, '|'); if (p) { *p = '\0'; l = colorstr = p+1; }
p = strchr(l, '|'); if (p) { *p = '\0'; l = msg = p+1; }
if (hostname && testname && colorstr && msg) {
char *msgeol;
nldecode(msg);
msgeol = strchr(msg, '\n');
if (msgeol) {
/* Skip the first status line */
msg = msgeol + 1;
}
printf("<tr><td align=left valign=top><b>");
if (addlink)
printf("<a href=\"%s\">%s</a>", hostsvcurl(hostname, xgetenv("INFOCOLUMN"), 1), htmlquoted(hostname));
else
printf("%s", htmlquoted(hostname));
if (showcolumn) {
printf("<br>");
if (addlink)
printf("<a href=\"%s\">%s</a>", hostsvcurl(hostname, testname, 1), htmlquoted(testname));
else
printf("%s", htmlquoted(testname));
}
if (showcolors) printf(" - %s", colorstr);
printf("</b></td>\n");
printf("<td><pre>\n");
if (summary) {
int firstline = 1;
char *bol, *eol;
bol = msg;
while (bol) {
eol = strchr(bol, '\n'); if (eol) *eol = '\0';
if (firstline) {
if (!isspace((int)*bol)) {
printf("%s\n", bol);
firstline = 0;
}
}
else if ((*bol == '&') && (strncmp(bol, "&green", 6) != 0)) {
printf("%s\n", bol);
}
bol = (eol ? eol+1 : NULL);
}
}
else {
printf("%s", msg);
}
printf("</pre></td></tr>\n");
}
if (eoln) l = eoln+1; else l = NULL;
}
if (!embedded) printf("</table></body></html>\n");
return 0;
}
int main(int argc, char *argv[])
{
int argi;
char *envarea = NULL;
int obeycookies = 1;
char *accessfn = NULL;
for (argi = 1; (argi < argc); argi++) {
if (argnmatch(argv[argi], "--env=")) {
char *p = strchr(argv[argi], '=');
loadenv(p+1, envarea);
}
else if (argnmatch(argv[argi], "--area=")) {
char *p = strchr(argv[argi], '=');
envarea = strdup(p+1);
}
else if (strcmp(argv[argi], "--debug") == 0) {
debug = 1;
}
else if (strcmp(argv[argi], "--no-pin") == 0) {
nopin = 1;
}
else if (strcmp(argv[argi], "--no-cookies") == 0) {
obeycookies = 0;
}
else if (argnmatch(argv[argi], "--access=")) {
char *p = strchr(argv[argi], '=');
accessfn = strdup(p+1);
}
}
redirect_cgilog("ack");
cgidata = cgi_request();
if ( (nopin && (cgi_method == CGI_GET)) || (!nopin && (cgidata == NULL)) ) {
/* Present the query form */
sethostenv("", "", "", colorname(COL_RED), NULL);
printf("Content-Type: %s\n\n", xgetenv("HTMLCONTENTTYPE"));
if (!nopin) {
showform(stdout, "acknowledge", "acknowledge_form", COL_RED, getcurrenttime(NULL),
NULL, NULL);
}
else {
char *cmd;
char *respbuf = NULL;
char *hostname, *pagename;
int gotfilter = 0, filtererror = 0;
sendreturn_t *sres = NULL;
int col, firstcolor = 1, alertcolors = colorset(xgetenv("ALERTCOLORS"), ((1 << COL_GREEN) | (1 << COL_BLUE)));
headfoot(stdout, "acknowledge", "", "header", COL_RED);
cmd = (char *)malloc(1024);
strcpy(cmd, "xymondboard fields=hostname,testname,cookie color=");
for (col = 0; (col < COL_COUNT); col++) {
if ((1 << col) & alertcolors) {
if (!firstcolor) strcat(cmd, ",");
strcat(cmd, colorname(col));
firstcolor = 0;
}
}
// printf("<!-- cmd = %s -->\n", cmd);
if (obeycookies && !gotfilter && ((hostname = get_cookie("host")) != NULL)) {
if (*hostname) {
pcre *dummy;
char *re;
re = (char *)malloc(3+strlen(hostname));
sprintf(re, "^%s$", hostname);
dummy = compileregex(re);
if (dummy) {
/* Valid expression */
freeregex(dummy);
cmd = (char *)realloc(cmd, 1024 + strlen(cmd) + strlen(re));
sprintf(cmd + strlen(cmd), " host=%s", re);
gotfilter = 1;
}
else {
filtererror = 1;
printf("<p align=\"center\">Invalid hostname filter</p>\n");
}
}
}
if (obeycookies && !gotfilter && ((pagename = get_cookie("pagepath")) != NULL)) {
if (*pagename) {
pcre *dummy;
char *re;
re = (char *)malloc(8 + strlen(pagename)*2);
sprintf(re, "%s$|^%s/.+", pagename, pagename);
dummy = compileregex(re);
if (dummy) {
/* Valid expression */
freeregex(dummy);
cmd = (char *)realloc(cmd, 1024 + strlen(cmd) + strlen(re));
sprintf(cmd + strlen(cmd), " page=%s", re);
gotfilter = 1;
}
else {
filtererror = 1;
printf("<p align=\"center\">Invalid pagename filter</p>\n");
}
}
}
sres = newsendreturnbuf(1, NULL);
if (!filtererror && (sendmessage(cmd, NULL, XYMON_TIMEOUT, sres) == XYMONSEND_OK)) {
char *bol, *eoln;
int first = 1;
respbuf = getsendreturnstr(sres, 1);
bol = respbuf;
while (bol) {
char *hname, *tname, *ackcode;
eoln = strchr(bol, '\n'); if (eoln) *eoln = '\0';
hname = tname = ackcode = NULL;
hname = strtok(bol, "|");
if (hname) tname = strtok(NULL, "|");
if (tname) ackcode = strtok(NULL, "|");
if (hname && tname && ackcode && (strcmp(hname, "summary") != 0)) {
if (first) {
fprintf(stdout, "<form method=\"POST\" ACTION=\"%s\">\n", getenv("SCRIPT_NAME"));
fprintf(stdout, "<center><table cellpadding=5 summary=\"Ack data\">\n");
fprintf(stdout, "<tr><th align=left>Host</th><th align=left>Test</th><th align=left>Duration</th><th align=left>Cause</th><th>Ack</th><th>Ack Multiple</tr>\n");
first = 0;
}
generate_ackline(stdout, hname, tname, ackcode);
}
if (eoln) bol = eoln+1; else bol = NULL;
}
if (first) {
fprintf(stdout, "<center><font size=\"+1\"><b>No active alerts</b></font></center>\n");
}
else {
generate_ackline(stdout, NULL, NULL, NULL);
fprintf(stdout, "</table></center>\n");
fprintf(stdout, "</form>\n");
}
}
freesendreturnbuf(sres);
headfoot(stdout, "acknowledge", "", "footer", COL_RED);
}
}
else if ( (nopin && (cgi_method == CGI_POST)) || (!nopin && (cgidata != NULL)) ) {
char *xymonmsg;
char *acking_user = "";
acklist_t *awalk;
strbuffer_t *response = newstrbuffer(0);
int count = 0;
/* We only want to accept posts from certain pages */
{
char cgisource[1024]; char *p;
p = csp_header("acknowledge"); if (p) fprintf(stdout, "%s", p);
snprintf(cgisource, sizeof(cgisource), "%s/%s", xgetenv("SECURECGIBINURL"), "acknowledge");
if (!cgi_refererok(cgisource)) {
fprintf(stdout, "Location: %s.sh?\n\n", cgisource);
return 0;
}
}
parse_query();
if (getenv("REMOTE_USER")) {
char *remaddr = getenv("REMOTE_ADDR");
acking_user = (char *)malloc(1024 + strlen(getenv("REMOTE_USER")) + (remaddr ? strlen(remaddr) : 0));
sprintf(acking_user, "\nAcked by: %s", getenv("REMOTE_USER"));
if (remaddr) sprintf(acking_user + strlen(acking_user), " (%s)", remaddr);
}
/* Load the host data (for access control) */
if (accessfn) {
load_hostnames(xgetenv("HOSTSCFG"), NULL, get_fqdn());
load_web_access_config(accessfn);
}
addtobuffer(response, "<center>\n");
for (awalk = ackhead; (awalk); awalk = awalk->next) {
char *msgline = (char *)malloc(1024 + (awalk->hostname ? strlen(awalk->hostname) : 0) + (awalk->testname ? strlen(awalk->testname) : 0));
if (!awalk->checked) continue;
if (accessfn && (!web_access_allowed(getenv("REMOTE_USER"), awalk->hostname, awalk->testname, WEB_ACCESS_CONTROL))) continue;
if ((reqtype == ACK_ONE) && (awalk->id != sendnum)) continue;
if (reqtype == ACK_MANY) {
if (!awalk->ackmsg) awalk->ackmsg = ackmsgall;
if (!awalk->validity && validityall) awalk->validity = durationvalue(validityall);
if (periodall) awalk->period = periodall;
}
if (strncmp(awalk->period, "hour", 4) == 0) awalk->validity *= 60;
else if (strncmp(awalk->period, "day", 4) == 0) awalk->validity *= 60*24;
count++;
if (!awalk->ackmsg || !awalk->validity || !awalk->acknum) {
if (awalk->hostname && awalk->testname) {
sprintf(msgline, "<b>NO ACK</b> sent for host %s / test %s",
htmlquoted(awalk->hostname), htmlquoted(awalk->testname));
}
else {
sprintf(msgline, "<b>NO ACK</b> sent for item %d", awalk->id);
}
addtobuffer(response, msgline);
addtobuffer(response, ": Duration or message not set<br>\n");
continue;
}
xymonmsg = (char *)malloc(1024 + strlen(awalk->ackmsg) + strlen(acking_user));
sprintf(xymonmsg, "xymondack %d %d %s %s", awalk->acknum, awalk->validity, awalk->ackmsg, acking_user);
if (sendmessage(xymonmsg, NULL, XYMON_TIMEOUT, NULL) == XYMONSEND_OK) {
if (awalk->hostname && awalk->testname) {
sprintf(msgline, "Acknowledge sent for host %s / test %s<br>\n",
htmlquoted(awalk->hostname), htmlquoted(awalk->testname));
}
else {
sprintf(msgline, "Acknowledge sent for code %d<br>\n", awalk->acknum);
}
}
else {
if (awalk->hostname && awalk->testname) {
sprintf(msgline, "Failed to send acknowledge for host %s / test %s<br>\n",
htmlquoted(awalk->hostname), htmlquoted(awalk->testname));
}
else {
sprintf(msgline, "Failed to send acknowledge for code %d<br>\n", awalk->acknum);
}
}
addtobuffer(response, msgline);
xfree(xymonmsg);
}
if (count == 0) addtobuffer(response, "<b>No acks requested</b>\n");
addtobuffer(response, "</center>\n");
fprintf(stdout, "Content-type: %s\n\n", xgetenv("HTMLCONTENTTYPE"));
headfoot(stdout, "acknowledge", "", "header", COL_RED);
fprintf(stdout, "%s", STRBUF(response));
headfoot(stdout, "acknowledge", "", "footer", COL_RED);
}
return 0;
}
int main(int argc, char *argv[])
{
int daemonize = 0;
char *pidfile = NULL;
char *envarea = NULL;
int cnid = -1;
pcre *msgfilter = NULL;
pcre *stdfilter = NULL;
int argi;
struct sigaction sa;
RbtIterator handle;
/* Dont save the error buffer */
save_errbuf = 0;
/* Create the peer container */
peers = rbtNew(name_compare);
for (argi=1; (argi < argc); argi++) {
if (argnmatch(argv[argi], "--debug")) {
debug = 1;
}
else if (argnmatch(argv[argi], "--channel=")) {
char *cn = strchr(argv[argi], '=') + 1;
for (cnid = C_STATUS; (channelnames[cnid] && strcmp(channelnames[cnid], cn)); cnid++) ;
if (channelnames[cnid] == NULL) cnid = -1;
}
else if (argnmatch(argv[argi], "--daemon")) {
daemonize = 1;
}
else if (argnmatch(argv[argi], "--no-daemon")) {
daemonize = 0;
}
else if (argnmatch(argv[argi], "--pidfile=")) {
char *p = strchr(argv[argi], '=');
pidfile = strdup(p+1);
}
else if (argnmatch(argv[argi], "--log=")) {
char *p = strchr(argv[argi], '=');
logfn = strdup(p+1);
}
else if (argnmatch(argv[argi], "--env=")) {
char *p = strchr(argv[argi], '=');
loadenv(p+1, envarea);
}
else if (argnmatch(argv[argi], "--area=")) {
char *p = strchr(argv[argi], '=');
envarea = strdup(p+1);
}
else if (argnmatch(argv[argi], "--locator=")) {
char *p = strchr(argv[argi], '=');
locator_init(p+1);
locatorbased = 1;
}
else if (argnmatch(argv[argi], "--service=")) {
char *p = strchr(argv[argi], '=');
locatorservice = get_servicetype(p+1);
}
else if (argnmatch(argv[argi], "--filter=")) {
char *p = strchr(argv[argi], '=');
msgfilter = compileregex(p+1);
if (!msgfilter) {
errprintf("Invalid filter (bad expression): %s\n", p+1);
}
else {
stdfilter = compileregex("^@@(logrotate|shutdown|drophost|droptest|renamehost|renametest)");
}
}
else {
char *childcmd;
char **childargs;
int i = 0;
childcmd = argv[argi];
childargs = (char **) calloc((1 + argc - argi), sizeof(char *));
while (argi < argc) { childargs[i++] = argv[argi++]; }
addlocalpeer(childcmd, childargs);
}
}
/* Sanity checks */
if (cnid == -1) {
errprintf("No channel/unknown channel specified\n");
return 1;
}
if (locatorbased && (locatorservice == ST_MAX)) {
errprintf("Must specify --service when using locator\n");
return 1;
}
if (!locatorbased && (rbtBegin(peers) == rbtEnd(peers))) {
errprintf("Must specify command for local worker\n");
return 1;
}
/* Do cache responses to avoid doing too many lookups */
if (locatorbased) locator_prepcache(locatorservice, 0);
/* Go daemon */
if (daemonize) {
/* Become a daemon */
pid_t daemonpid = fork();
if (daemonpid < 0) {
/* Fork failed */
errprintf("Could not fork child\n");
exit(1);
}
else if (daemonpid > 0) {
/* Parent creates PID file and exits */
FILE *fd = NULL;
if (pidfile) fd = fopen(pidfile, "w");
if (fd) {
fprintf(fd, "%d\n", (int)daemonpid);
fclose(fd);
}
exit(0);
}
/* Child (daemon) continues here */
setsid();
}
/* Catch signals */
setup_signalhandler("xymond_channel");
memset(&sa, 0, sizeof(sa));
sa.sa_handler = sig_handler;
sigaction(SIGINT, &sa, NULL);
sigaction(SIGTERM, &sa, NULL);
sigaction(SIGCHLD, &sa, NULL);
signal(SIGALRM, SIG_IGN);
/* Switch stdout/stderr to the logfile, if one was specified */
freopen("/dev/null", "r", stdin); /* xymond_channel's stdin is not used */
if (logfn) {
freopen(logfn, "a", stdout);
freopen(logfn, "a", stderr);
}
/* Attach to the channel */
channel = setup_channel(cnid, CHAN_CLIENT);
if (channel == NULL) {
errprintf("Channel not available\n");
running = 0;
}
while (running) {
/*
* Wait for GOCLIENT to go up.
*
* Note that we use IPC_NOWAIT if there are messages in the
* queue, because then we just want to pick up a message if
* there is one, and if not we want to continue pushing the
* queued data to the worker.
*/
struct sembuf s;
int n;
s.sem_num = GOCLIENT; s.sem_op = -1; s.sem_flg = ((pendingcount > 0) ? IPC_NOWAIT : 0);
n = semop(channel->semid, &s, 1);
if (n == 0) {
/*
* GOCLIENT went high, and so we got alerted about a new
* message arriving. Copy the message to our own buffer queue.
*/
char *inbuf = NULL;
if (!msgfilter || matchregex(channel->channelbuf, msgfilter) || matchregex(channel->channelbuf, stdfilter)) {
inbuf = strdup(channel->channelbuf);
}
/*
* Now we have safely stored the new message in our buffer.
* Wait until any other clients on the same channel have picked up
* this message (GOCLIENT reaches 0).
*
* We wrap this into an alarm handler, because it can occasionally
* fail, causing the whole system to lock up. We dont want that....
* We'll set the alarm to trigger after 1 second. Experience shows
* that we'll either succeed in a few milliseconds, or fail completely
* and wait the full alarm-timer duration.
*/
gotalarm = 0; signal(SIGALRM, sig_handler); alarm(2);
do {
s.sem_num = GOCLIENT; s.sem_op = 0; s.sem_flg = 0;
n = semop(channel->semid, &s, 1);
} while ((n == -1) && (errno == EAGAIN) && running && (!gotalarm));
signal(SIGALRM, SIG_IGN);
if (gotalarm) {
errprintf("Gave up waiting for GOCLIENT to go low.\n");
}
/*
* Let master know we got it by downing BOARDBUSY.
* This should not block, since BOARDBUSY is upped
* by the master just before he ups GOCLIENT.
*/
do {
s.sem_num = BOARDBUSY; s.sem_op = -1; s.sem_flg = IPC_NOWAIT;
n = semop(channel->semid, &s, 1);
} while ((n == -1) && (errno == EINTR));
if (n == -1) {
errprintf("Tried to down BOARDBUSY: %s\n", strerror(errno));
}
if (inbuf) {
/*
* See if they want us to rotate logs. We pass this on to
* the worker module as well, but must handle our own logfile.
*/
if (strncmp(inbuf, "@@logrotate", 11) == 0) {
freopen(logfn, "a", stdout);
freopen(logfn, "a", stderr);
}
/*
* Put the new message on our outbound queue.
*/
if (addmessage(inbuf) != 0) {
/* Failed to queue message, free the buffer */
xfree(inbuf);
}
}
}
else {
if (errno != EAGAIN) {
dbgprintf("Semaphore wait aborted: %s\n", strerror(errno));
continue;
}
}
/*
* We've picked up messages from the master. Now we
* must push them to the worker process. Since there
* is no way to hang off both a semaphore and select(),
* we'll just push as much data as possible into the
* pipe. If we get to a point where we would block,
* then wait a teeny bit of time and restart the
* whole loop with checking for new messages from the
* master etc.
*
* In theory, this could become an almost busy-wait loop.
* In practice, however, the queue will be empty most
* of the time because we'll just shove the data to the
* worker child.
*/
for (handle = rbtBegin(peers); (handle != rbtEnd(peers)); handle = rbtNext(peers, handle)) {
int canwrite = 1, hasfailed = 0;
xymon_peer_t *pwalk;
time_t msgtimeout = gettimer() - MSGTIMEOUT;
int flushcount = 0;
pwalk = (xymon_peer_t *) gettreeitem(peers, handle);
if (pwalk->msghead == NULL) continue; /* Ignore peers with nothing queued */
switch (pwalk->peerstatus) {
case P_UP:
canwrite = 1;
break;
case P_DOWN:
openconnection(pwalk);
canwrite = (pwalk->peerstatus == P_UP);
break;
case P_FAILED:
canwrite = 0;
break;
}
/* See if we have stale messages queued */
while (pwalk->msghead && (pwalk->msghead->tstamp < msgtimeout)) {
flushmessage(pwalk);
flushcount++;
}
if (flushcount) {
errprintf("Flushed %d stale messages for %s:%d\n",
flushcount,
inet_ntoa(pwalk->peeraddr.sin_addr),
ntohs(pwalk->peeraddr.sin_port));
}
while (pwalk->msghead && canwrite) {
fd_set fdwrite;
struct timeval tmo;
/* Check that this peer is ready for writing. */
FD_ZERO(&fdwrite); FD_SET(pwalk->peersocket, &fdwrite);
tmo.tv_sec = 0; tmo.tv_usec = 2000;
n = select(pwalk->peersocket+1, NULL, &fdwrite, NULL, &tmo);
if (n == -1) {
errprintf("select() failed: %s\n", strerror(errno));
canwrite = 0;
hasfailed = 1;
continue;
}
else if ((n == 0) || (!FD_ISSET(pwalk->peersocket, &fdwrite))) {
canwrite = 0;
continue;
}
n = write(pwalk->peersocket, pwalk->msghead->bufp, pwalk->msghead->buflen);
if (n >= 0) {
pwalk->msghead->bufp += n;
pwalk->msghead->buflen -= n;
if (pwalk->msghead->buflen == 0) flushmessage(pwalk);
}
else if (errno == EAGAIN) {
/*
* Write would block ... stop for now.
*/
canwrite = 0;
}
else {
hasfailed = 1;
}
if (hasfailed) {
/* Write failed, or message grew stale */
errprintf("Peer at %s:%d failed: %s\n",
inet_ntoa(pwalk->peeraddr.sin_addr), ntohs(pwalk->peeraddr.sin_port),
strerror(errno));
canwrite = 0;
shutdownconnection(pwalk);
if (pwalk->peertype == P_NET) locator_serverdown(pwalk->peername, locatorservice);
pwalk->peerstatus = P_FAILED;
}
}
}
}
/* Detach from channels */
close_channel(channel, CHAN_CLIENT);
/* Close peer connections */
for (handle = rbtBegin(peers); (handle != rbtEnd(peers)); handle = rbtNext(peers, handle)) {
xymon_peer_t *pwalk = (xymon_peer_t *) gettreeitem(peers, handle);
shutdownconnection(pwalk);
}
/* Remove the PID file */
if (pidfile) unlink(pidfile);
return 0;
}
int do_ifstat_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static int pcres_compiled = 0;
static pcre **ifstat_linux_pcres = NULL;
static pcre **ifstat_freebsd_pcres = NULL;
static pcre **ifstat_freebsdV8_pcres = NULL;
static pcre **ifstat_openbsd_pcres = NULL;
static pcre **ifstat_netbsd_pcres = NULL;
static pcre **ifstat_darwin_pcres = NULL;
static pcre **ifstat_solaris_pcres = NULL;
static pcre **ifstat_aix_pcres = NULL;
static pcre **ifstat_hpux_pcres = NULL;
static pcre **ifstat_sco_sv_pcres = NULL;
static pcre **ifstat_bbwin_pcres = NULL;
enum ostype_t ostype;
char *datapart = msg;
char *bol, *eoln, *ifname, *rxstr, *txstr, *dummy;
int dmatch;
void *xmh;
pcre *ifname_filter_pcre = NULL;
xmh = hostinfo(hostname);
if (xmh) {
char *ifname_filter_expr = xmh_item(xmh, XMH_INTERFACES);
if (ifname_filter_expr && *ifname_filter_expr)
ifname_filter_pcre = compileregex(ifname_filter_expr);
}
if (pcres_compiled == 0) {
pcres_compiled = 1;
ifstat_linux_pcres = compile_exprs("LINUX", ifstat_linux_exprs,
(sizeof(ifstat_linux_exprs) / sizeof(ifstat_linux_exprs[0])));
ifstat_freebsd_pcres = compile_exprs("FREEBSD", ifstat_freebsd_exprs,
(sizeof(ifstat_freebsd_exprs) / sizeof(ifstat_freebsd_exprs[0])));
ifstat_freebsdV8_pcres = compile_exprs("FREEBSD", ifstat_freebsdV8_exprs,
(sizeof(ifstat_freebsdV8_exprs) / sizeof(ifstat_freebsdV8_exprs[0])));
ifstat_openbsd_pcres = compile_exprs("OPENBSD", ifstat_openbsd_exprs,
(sizeof(ifstat_openbsd_exprs) / sizeof(ifstat_openbsd_exprs[0])));
ifstat_netbsd_pcres = compile_exprs("NETBSD", ifstat_netbsd_exprs,
(sizeof(ifstat_netbsd_exprs) / sizeof(ifstat_netbsd_exprs[0])));
ifstat_darwin_pcres = compile_exprs("DARWIN", ifstat_darwin_exprs,
(sizeof(ifstat_darwin_exprs) / sizeof(ifstat_darwin_exprs[0])));
ifstat_solaris_pcres = compile_exprs("SOLARIS", ifstat_solaris_exprs,
(sizeof(ifstat_solaris_exprs) / sizeof(ifstat_solaris_exprs[0])));
ifstat_aix_pcres = compile_exprs("AIX", ifstat_aix_exprs,
(sizeof(ifstat_aix_exprs) / sizeof(ifstat_aix_exprs[0])));
ifstat_hpux_pcres = compile_exprs("HPUX", ifstat_hpux_exprs,
(sizeof(ifstat_hpux_exprs) / sizeof(ifstat_hpux_exprs[0])));
ifstat_sco_sv_pcres = compile_exprs("SCO_SV", ifstat_sco_sv_exprs,
(sizeof(ifstat_sco_sv_exprs) / sizeof(ifstat_sco_sv_exprs[0])));
ifstat_bbwin_pcres = compile_exprs("BBWIN", ifstat_bbwin_exprs,
(sizeof(ifstat_bbwin_exprs) / sizeof(ifstat_bbwin_exprs[0])));
}
if (ifstat_tpl == NULL) ifstat_tpl = setup_template(ifstat_params);
if ((strncmp(msg, "status", 6) == 0) || (strncmp(msg, "data", 4) == 0)) {
/* Skip the first line of full status- and data-messages. */
datapart = strchr(msg, '\n');
if (datapart) datapart++; else datapart = msg;
}
ostype = get_ostype(datapart);
datapart = strchr(datapart, '\n');
if (datapart) {
datapart++;
}
else {
errprintf("Too few lines in ifstat report from %s\n", hostname);
return -1;
}
dmatch = 0;
ifname = rxstr = txstr = dummy = NULL;
bol = datapart;
while (bol) {
eoln = strchr(bol, '\n'); if (eoln) *eoln = '\0';
switch (ostype) {
case OS_LINUX22:
case OS_LINUX:
case OS_RHEL3:
case OS_ZVM:
case OS_ZVSE:
case OS_ZOS:
if (pickdata(bol, ifstat_linux_pcres[0], 1, &ifname)) {
/*
* Linux' netif aliases mess up things.
* Clear everything when we see an interface name.
* But we dont want to track the "lo" interface.
*/
/* Strip off the last character if it is a colon (:) */
if (ifname[strlen(ifname)-1] == ':') ifname[strlen(ifname)-1] = '\0';
if (strcmp(ifname, "lo") == 0) {
xfree(ifname); ifname = NULL;
}
else {
dmatch = 1;
if (rxstr) { xfree(rxstr); rxstr = NULL; }
if (txstr) { xfree(txstr); txstr = NULL; }
}
}
else if (pickdata(bol, ifstat_linux_pcres[1], 1, &rxstr, &txstr)) dmatch |= 6;
else if (pickdata(bol, ifstat_linux_pcres[2], 1, &rxstr)) dmatch |= 2;
else if (pickdata(bol, ifstat_linux_pcres[3], 1, &txstr)) dmatch |= 4;
break;
case OS_FREEBSD:
/*
* FreeBSD 8 added an "Idrop" counter in the middle of the data.
* See if we match this expression, and if not then fall back to
* the old regex without that field.
*/
if (pickdata(bol, ifstat_freebsdV8_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
else if (pickdata(bol, ifstat_freebsd_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_OPENBSD:
if (pickdata(bol, ifstat_openbsd_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_NETBSD:
if (pickdata(bol, ifstat_netbsd_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_SOLARIS:
if (pickdata(bol, ifstat_solaris_pcres[0], 0, &ifname, &txstr)) dmatch |= 1;
else if (pickdata(bol, ifstat_solaris_pcres[1], 0, &dummy, &rxstr)) dmatch |= 6;
if (ifname && dummy && (strcmp(ifname, dummy) != 0)) {
/* They must match, drop the data */
errprintf("Host %s has weird ifstat data - device name mismatch %s:%s\n", hostname, ifname, dummy);
xfree(ifname); xfree(txstr); xfree(rxstr); xfree(dummy);
dmatch = 0;
}
/* Ignore "mac" and "wrsmd" entries - these are for sub-devices for multiple nic's aggregated into one */
/* See http://www.xymon.com/archive/2009/06/msg00204.html for more info */
if (ifname && ((strcmp(ifname, "mac") == 0) || (strcmp(ifname, "wrsmd") == 0)) ) {
xfree(ifname); xfree(txstr);
dmatch = 0;
}
if (dummy && ((strcmp(dummy, "mac") == 0) || (strcmp(dummy, "wrsmd") == 0)) ) {
xfree(dummy); xfree(rxstr);
dmatch = 0;
}
break;
case OS_AIX:
if (pickdata(bol, ifstat_aix_pcres[0], 1, &ifname)) {
/* Interface names comes first, so any rx/tx data is discarded */
dmatch |= 1;
if (rxstr) { xfree(rxstr); rxstr = NULL; }
if (txstr) { xfree(txstr); txstr = NULL; }
}
else if (pickdata(bol, ifstat_aix_pcres[1], 1, &txstr, &rxstr)) dmatch |= 6;
break;
case OS_HPUX:
if (pickdata(bol, ifstat_hpux_pcres[0], 1, &ifname)) {
/* Interface names comes first, so any rx/tx data is discarded */
dmatch |= 1;
if (rxstr) { xfree(rxstr); rxstr = NULL; }
if (txstr) { xfree(txstr); txstr = NULL; }
}
else if (pickdata(bol, ifstat_hpux_pcres[1], 1, &rxstr)) dmatch |= 2;
else if (pickdata(bol, ifstat_hpux_pcres[2], 1, &txstr)) dmatch |= 4;
break;
case OS_DARWIN:
if (pickdata(bol, ifstat_darwin_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_SCO_SV:
if (pickdata(bol, ifstat_sco_sv_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_WIN32_BBWIN:
if (pickdata(bol, ifstat_bbwin_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
default:
break;
}
if ((dmatch == 7) && ifname && rxstr && txstr) {
if (!ifname_filter_pcre || matchregex(ifname, ifname_filter_pcre)) {
setupfn2("%s.%s.rrd", "ifstat", ifname);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%s:%s", (int)tstamp, txstr, rxstr);
create_and_update_rrd(hostname, testname, classname, pagepaths, ifstat_params, ifstat_tpl);
}
xfree(ifname); xfree(rxstr); xfree(txstr);
if (dummy) xfree(dummy);
ifname = rxstr = txstr = dummy = NULL;
dmatch = 0;
}
if (eoln) {
*eoln = '\n';
bol = eoln+1;
if (*bol == '\0') bol = NULL;
}
else {
bol = NULL;
}
}
if (ifname_filter_pcre) freeregex(ifname_filter_pcre);
if (ifname) xfree(ifname);
if (rxstr) xfree(rxstr);
if (txstr) xfree(txstr);
if (dummy) xfree(dummy);
return 0;
}
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;
}
int main(int argc, char **argv)
{
pcre *hostptn, *exhostptn, *pageptn, *expageptn;
void *hwalk;
char *hostname, *pagename;
hostptn = exhostptn = pageptn = expageptn = NULL;
if (getenv("QUERY_STRING") == NULL) {
/* Not invoked through the CGI */
if (argc < 4) {
errprintf("Usage:\n%s HOSTNAME-PATTERN STARTTIME ENDTIME", argv[0]);
return 1;
}
hostpattern = argv[1];
if (strncmp(hostpattern, "--page=", 7) == 0) {
pagepattern = strchr(argv[1], '=') + 1;
hostpattern = NULL;
}
starttimedate = argv[2]; starttimehm = "00:00:00";
endtimedate = argv[3]; endtimehm = "00:00:00";
if (argc > 4) {
if (strncmp(argv[4], "--csv", 5) == 0) {
char *p;
outform = O_CSV;
if ((p = strchr(argv[4], '=')) != NULL) csvdelim = *(p+1);
}
}
}
else {
char *envarea = NULL;
int argi;
for (argi = 1; (argi < argc); argi++) {
if (argnmatch(argv[argi], "--env=")) {
char *p = strchr(argv[argi], '=');
loadenv(p+1, envarea);
}
else if (argnmatch(argv[argi], "--area=")) {
char *p = strchr(argv[argi], '=');
envarea = strdup(p+1);
}
else if (strcmp(argv[argi], "--debug") == 0) {
debug = 1;
}
}
/* Parse CGI parameters */
parse_query();
format_rrdtime(starttime, &starttimedate, &starttimehm);
format_rrdtime(endtime, &endtimedate, &endtimehm);
switch (outform) {
case O_XML:
printf("Content-type: application/xml\n\n");
break;
case O_CSV:
printf("Content-type: text/csv\n\n");
break;
case O_NONE:
load_hostnames(xgetenv("HOSTSCFG"), NULL, get_fqdn());
printf("Content-type: %s\n\n", xgetenv("HTMLCONTENTTYPE"));
showform(stdout, "perfdata", "perfdata_form", COL_BLUE, getcurrenttime(NULL), NULL, NULL);
return 0;
}
}
load_hostnames(xgetenv("HOSTSCFG"), NULL, get_fqdn());
if (hostpattern) hostptn = compileregex(hostpattern);
if (exhostpattern) exhostptn = compileregex(exhostpattern);
if (pagepattern) pageptn = compileregex(pagepattern);
if (expagepattern) expageptn = compileregex(expagepattern);
switch (outform) {
case O_XML:
printf("<?xml version='1.0' encoding='ISO-8859-1'?>\n");
printf("<datasets>\n");
break;
default:
break;
}
dbgprintf("Got hosts, it is %s\n", (first_host() == NULL) ? "empty" : "not empty");
for (hwalk = first_host(); (hwalk); hwalk = next_host(hwalk, 0)) {
hostname = xmh_item(hwalk, XMH_HOSTNAME);
pagename = xmh_item(hwalk, XMH_PAGEPATH);
dbgprintf("Processing host %s\n", hostname);
if (hostpattern && !matchregex(hostname, hostptn)) continue;
if (exhostpattern && matchregex(hostname, exhostptn)) continue;
if (pagepattern && !matchregex(pagename, pageptn)) continue;
if (expagepattern && matchregex(pagename, expageptn)) continue;
onehost(hostname, starttime, endtime);
}
switch (outform) {
case O_XML:
printf("</datasets>\n");
break;
default:
break;
}
return 0;
}
