xymongen_page_t *init_page(char *name, char *title, int vertical)
{
xymongen_page_t *newpage = (xymongen_page_t *) calloc(1, sizeof(xymongen_page_t));
pagecount++;
dbgprintf("init_page(%s, %s)\n", textornull(name), textornull(title));
if (name) {
newpage->name = strdup(name);
}
else name = null_text;
if (title) {
newpage->title = strdup(title);
}else
title = null_text;
newpage->color = -1;
newpage->oldage = 1;
newpage->vertical = vertical;
newpage->pretitle = NULL;
newpage->groups = NULL;
newpage->hosts = NULL;
newpage->parent = NULL;
newpage->subpages = NULL;
newpage->next = NULL;
return newpage;
}
group_t *init_group(char *title, char *onlycols, char *exceptcols, int sorthosts)
{
group_t *newgroup = (group_t *) calloc(1, sizeof(group_t));
dbgprintf("init_group(%s, %s)\n", textornull(title), textornull(onlycols));
if (title) {
newgroup->title = strdup(title);
}
else title = null_text;
if (onlycols) {
newgroup->onlycols = (char *) malloc(strlen(onlycols)+3); /* Add a '|' at start and end */
sprintf(newgroup->onlycols, "|%s|", onlycols);
}
else newgroup->onlycols = NULL;
if (exceptcols) {
newgroup->exceptcols = (char *) malloc(strlen(exceptcols)+3); /* Add a '|' at start and end */
sprintf(newgroup->exceptcols, "|%s|", exceptcols);
}
else newgroup->exceptcols = NULL;
newgroup->pretitle = NULL;
newgroup->hosts = NULL;
newgroup->sorthosts = sorthosts;
newgroup->next = NULL;
return newgroup;
}
static void load_links(char *directory, char *urlprefix)
{
DIR *linkdir;
struct dirent *d;
char fn[PATH_MAX];
dbgprintf("load_links(%s, %s)\n", textornull(directory), textornull(urlprefix));
linkdir = opendir(directory);
if (!linkdir) {
errprintf("Cannot read links in directory %s\n", directory);
return;
}
MEMDEFINE(fn);
while ((d = readdir(linkdir))) {
link_t *newlink;
if (*(d->d_name) == '.') continue;
strcpy(fn, d->d_name);
newlink = init_link(fn, urlprefix);
rbtInsert(linkstree, newlink->key, newlink);
}
closedir(linkdir);
MEMUNDEFINE(fn);
}
void show_http_test_results(service_t *httptest)
{
http_data_t *req;
testitem_t *t;
for (t = httptest->items; (t); t = t->next) {
req = (http_data_t *) t->privdata;
printf("URL : %s\n", req->url);
printf("HTTP status : %lu\n", req->httpstatus);
printf("HTTP headers\n%s\n", textornull(req->headers));
printf("HTTP output\n%s\n", textornull(req->output));
printf("------------------------------------------------------\n");
}
}
summary_t *init_summary(char *name, char *receiver, char *url)
{
summary_t *newsum;
dbgprintf("init_summary(%s, %s, %s)\n", textornull(name), textornull(receiver), textornull(url));
/* Sanity check */
if ((name == NULL) || (receiver == NULL) || (url == NULL))
return NULL;
newsum = (summary_t *) calloc(1, sizeof(summary_t));
newsum->name = strdup(name);
newsum->receiver = strdup(receiver);
newsum->url = strdup(url);
newsum->next = NULL;
return newsum;
}
static link_t *init_link(char *filename, char *urlprefix)
{
char *p;
link_t *newlink = NULL;
dbgprintf("init_link(%s, %s)\n", textornull(filename), textornull(urlprefix));
newlink = (link_t *) malloc(sizeof(link_t));
newlink->filename = strdup(filename);
newlink->urlprefix = urlprefix;
/* Without extension, this time */
p = link_docext(filename);
if (p) *p = '\0';
newlink->key = strdup(filename);
return newlink;
}
void show_ldap_test_results(service_t *ldaptest)
{
ldap_data_t *req;
testitem_t *t;
for (t = ldaptest->items; (t); t = t->next) {
req = (ldap_data_t *) t->privdata;
printf("URL : %s\n", t->testspec);
printf("Time spent : %u.%02u\n",
(unsigned int)req->duration.tv_sec,
(unsigned int)req->duration.tv_nsec / 10000000);
printf("LDAP output:\n%s\n", textornull(req->output));
printf("------------------------------------------------------\n");
}
}
void show_tcp_test_results(void)
{
tcptest_t *item;
for (item = thead; (item); item = item->next) {
printf("Address=%s:%d, open=%d, res=%d, err=%d, connecttime=%u.%06u, totaltime=%u.%06u, ",
inet_ntoa(item->addr.sin_addr),
ntohs(item->addr.sin_port),
item->open, item->connres, item->errcode,
(unsigned int)item->duration.tv_sec, (unsigned int)(item->duration.tv_nsec/1000),
(unsigned int)item->totaltime.tv_sec, (unsigned int)(item->totaltime.tv_nsec/1000));
if (item->banner && (item->bannerbytes == strlen(item->banner))) {
printf("banner='%s' (%d bytes)",
textornull(item->banner),
item->bannerbytes);
}
else {
int i;
unsigned char *p;
for (i=0, p=item->banner; i < item->bannerbytes; i++, p++) {
printf("%c", (isprint(*p) ? *p : '.'));
}
}
if (item->certinfo) {
printf(", certinfo='%s' (%u %s)",
item->certinfo, (unsigned int)item->certexpires,
((item->certexpires > getcurrenttime(NULL)) ? "valid" : "expired"));
}
printf("\n");
if ((item->svcinfo == &svcinfo_http) || (item->svcinfo == &svcinfo_https)) {
http_data_t *httptest = (http_data_t *) item->priv;
printf("httpstatus = %ld, open=%d, errcode=%d, parsestatus=%d\n",
httptest->httpstatus, httptest->tcptest->open, httptest->tcptest->errcode, httptest->parsestatus);
printf("Response:\n");
if (httptest->headers) printf("%s\n", httptest->headers); else printf("(no headers)\n");
if (httptest->contentcheck == CONTENTCHECK_DIGEST) printf("Content digest: %s\n", httptest->digest);
if (httptest->output) printf("%s", httptest->output);
}
}
}
dispsummary_t *init_displaysummary(char *fn, logdata_t *log)
{
char l[MAX_LINE_LEN];
dispsummary_t *newsum = NULL;
time_t now = getcurrenttime(NULL);
dbgprintf("init_displaysummary(%s)\n", textornull(fn));
if (log->validtime < now) return NULL;
strcpy(l, log->msg);
if (strlen(l)) {
char *p;
char *color = (char *) malloc(strlen(l));
newsum = (dispsummary_t *) calloc(1, sizeof(dispsummary_t));
newsum->url = (char *) malloc(strlen(l));
if (sscanf(l, "%s %s", color, newsum->url) == 2) {
char *rowcol;
newsum->color = parse_color(color);
rowcol = (char *) malloc(strlen(fn) + 1);
strcpy(rowcol, fn+8);
p = strrchr(rowcol, '.');
if (p) *p = ' ';
newsum->column = (char *) malloc(strlen(rowcol)+1);
newsum->row = (char *) malloc(strlen(rowcol)+1);
sscanf(rowcol, "%s %s", newsum->row, newsum->column);
newsum->next = NULL;
xfree(rowcol);
}
else {
xfree(newsum->url);
xfree(newsum);
newsum = NULL;
}
xfree(color);
}
return newsum;
}
void getnamelink(char *l, char **name, char **link)
{
/* "page NAME title-or-link" splitup */
char *p;
dbgprintf("getnamelink(%s, ...)\n", textornull(l));
*name = null_text;
*link = null_text;
/* Skip page/subpage keyword, and whitespace after that */
p = skipwhitespace(skipword(l));
*name = p; p = skipword(p);
if (*p) {
*p = '\0'; /* Null-terminate pagename */
p++;
*link = skipwhitespace(p);
}
}
void getgrouptitle(char *l, char *pageset, char **title, char **onlycols, char **exceptcols)
{
char grouponlytag[100], groupexcepttag[100], grouptag[100];
*title = null_text;
*onlycols = NULL;
*exceptcols = NULL;
sprintf(grouponlytag, "%sgroup-only", pageset);
sprintf(groupexcepttag, "%sgroup-except", pageset);
sprintf(grouptag, "%sgroup", pageset);
dbgprintf("getgrouptitle(%s, ...)\n", textornull(l));
if (strncmp(l, grouponlytag, strlen(grouponlytag)) == 0) {
char *p;
*onlycols = skipwhitespace(skipword(l));
p = skipword(*onlycols);
if (*p) {
*p = '\0'; p++;
*title = skipwhitespace(p);
}
}
else if (strncmp(l, groupexcepttag, strlen(groupexcepttag)) == 0) {
char *p;
*exceptcols = skipwhitespace(skipword(l));
p = skipword(*exceptcols);
if (*p) {
*p = '\0'; p++;
*title = skipwhitespace(p);
}
}
else if (strncmp(l, grouptag, strlen(grouptag)) == 0) {
*title = skipwhitespace(skipword(l));
}
}
void getparentnamelink(char *l, xymongen_page_t *toppage, xymongen_page_t **parent, char **name, char **link)
{
/* "subparent NAME PARENTNAME title-or-link" splitup */
char *p;
char *parentname;
xymonpagelist_t *walk;
dbgprintf("getnamelink(%s, ...)\n", textornull(l));
*name = null_text;
*link = null_text;
/* Skip page/subpage keyword, and whitespace after that */
parentname = p = skipwhitespace(skipword(l));
p = skipword(p);
if (*p) {
*p = '\0'; /* Null-terminate pagename */
p++;
*name = p = skipwhitespace(p);
p = skipword(p);
if (*p) {
*p = '\0'; /* Null-terminate parentname */
p++;
*link = skipwhitespace(p);
}
}
for (walk = pagelisthead; (walk && (strcmp(walk->pageentry->name, parentname) != 0)); walk = walk->next) ;
if (walk) {
*parent = walk->pageentry;
}
else {
errprintf("Cannot find parent page '%s'\n", parentname);
*parent = NULL;
}
}
xymongen_page_t *load_layout(char *pgset)
{
char pagetag[100], subpagetag[100], subparenttag[100],
vpagetag[100], vsubpagetag[100], vsubparenttag[100],
grouptag[100], summarytag[100], titletag[100], hosttag[100];
char *name, *link, *onlycols, *exceptcols;
char hostname[MAX_LINE_LEN];
xymongen_page_t *toppage, *curpage, *cursubpage, *cursubparent;
group_t *curgroup;
host_t *curhost;
char *curtitle;
int ip1, ip2, ip3, ip4;
char *p;
int fqdn = get_fqdn();
char *cfgdata, *inbol, *ineol, insavchar = '\0';
if (loadhostsfromxymond) {
if (load_hostnames("@", NULL, fqdn) != 0) {
errprintf("Cannot load host configuration from xymond\n");
return NULL;
}
}
else {
if (load_hostnames(xgetenv("HOSTSCFG"), "dispinclude", fqdn) != 0) {
errprintf("Cannot load host configuration from %s\n", xgetenv("HOSTSCFG"));
return NULL;
}
}
if (first_host() == NULL) {
errprintf("Empty configuration from %s\n", (loadhostsfromxymond ? "xymond" : xgetenv("HOSTSCFG")));
return NULL;
}
dbgprintf("load_layout(pgset=%s)\n", textornull(pgset));
/*
* load_hostnames() picks up the hostname definitions, but not the page
* layout. So we will scan the file again, this time doing the layout.
*/
if (pgset == NULL) pgset = "";
sprintf(pagetag, "%spage", pgset);
sprintf(subpagetag, "%ssubpage", pgset);
sprintf(subparenttag, "%ssubparent", pgset);
sprintf(vpagetag, "v%spage", pgset);
sprintf(vsubpagetag, "v%ssubpage", pgset);
sprintf(vsubparenttag, "v%ssubparent", pgset);
sprintf(grouptag, "%sgroup", pgset);
sprintf(summarytag, "%ssummary", pgset);
sprintf(titletag, "%stitle", pgset);
sprintf(hosttag, "%s:", pgset); for (p=hosttag; (*p); p++) *p = toupper((int)*p);
toppage = init_page("", "", 0);
addtopagelist(toppage);
curpage = NULL;
cursubpage = NULL;
curgroup = NULL;
curhost = NULL;
cursubparent = NULL;
curtitle = NULL;
inbol = cfgdata = hostscfg_content();
while (inbol && *inbol) {
inbol += strspn(inbol, " \t");
ineol = strchr(inbol, '\n');
if (ineol) {
while ((ineol > inbol) && (isspace(*ineol) || (*ineol == '\n'))) ineol--;
if (*ineol != '\n') ineol++;
insavchar = *ineol;
*ineol = '\0';
}
dbgprintf("load_layout: -- got line '%s'\n", inbol);
if ((strncmp(inbol, pagetag, strlen(pagetag)) == 0) || (strncmp(inbol, vpagetag, strlen(vpagetag)) == 0)) {
getnamelink(inbol, &name, &link);
if (curpage == NULL) {
/* First page - hook it on toppage as a subpage from there */
curpage = toppage->subpages = init_page(name, link, (strncmp(inbol, vpagetag, strlen(vpagetag)) == 0));
}
else {
curpage = curpage->next = init_page(name, link, (strncmp(inbol, vpagetag, strlen(vpagetag)) == 0));
}
curpage->parent = toppage;
if (curtitle) {
curpage->pretitle = curtitle;
curtitle = NULL;
}
cursubpage = NULL;
cursubparent = NULL;
curgroup = NULL;
curhost = NULL;
addtopagelist(curpage);
}
else if ( (strncmp(inbol, subpagetag, strlen(subpagetag)) == 0) || (strncmp(inbol, vsubpagetag, strlen(vsubpagetag)) == 0) ) {
if (curpage == NULL) {
errprintf("'subpage' ignored, no preceding 'page' tag : %s\n", inbol);
goto nextline;
}
getnamelink(inbol, &name, &link);
if (cursubpage == NULL) {
cursubpage = curpage->subpages = init_page(name, link, (strncmp(inbol, vsubpagetag, strlen(vsubpagetag)) == 0));
}
else {
cursubpage = cursubpage->next = init_page(name, link, (strncmp(inbol, vsubpagetag, strlen(vsubpagetag)) == 0));
}
cursubpage->parent = curpage;
if (curtitle) {
cursubpage->pretitle = curtitle;
curtitle = NULL;
}
cursubparent = NULL;
curgroup = NULL;
curhost = NULL;
addtopagelist(cursubpage);
}
else if ( (strncmp(inbol, subparenttag, strlen(subparenttag)) == 0) || (strncmp(inbol, vsubparenttag, strlen(vsubparenttag)) == 0) ) {
xymongen_page_t *parentpage, *walk;
getparentnamelink(inbol, toppage, &parentpage, &name, &link);
if (parentpage == NULL) {
errprintf("'subparent' ignored, unknown parent page: %s\n", inbol);
goto nextline;
}
cursubparent = init_page(name, link, (strncmp(inbol, vsubparenttag, strlen(vsubparenttag)) == 0));
if (parentpage->subpages == NULL) {
parentpage->subpages = cursubparent;
}
else {
for (walk = parentpage->subpages; (walk->next); (walk = walk->next)) ;
walk->next = cursubparent;
}
if (curtitle) {
cursubparent->pretitle = curtitle;
curtitle = NULL;
}
cursubparent->parent = parentpage;
curgroup = NULL;
curhost = NULL;
addtopagelist(cursubparent);
}
else if (strncmp(inbol, grouptag, strlen(grouptag)) == 0) {
int sorthosts = (strstr(inbol, "group-sorted") != NULL);
getgrouptitle(inbol, pgset, &link, &onlycols, &exceptcols);
if (curgroup == NULL) {
curgroup = init_group(link, onlycols, exceptcols, sorthosts);
if (cursubparent != NULL) {
cursubparent->groups = curgroup;
}
else if (cursubpage != NULL) {
/* We're in a subpage */
cursubpage->groups = curgroup;
}
else if (curpage != NULL) {
/* We're on a main page */
curpage->groups = curgroup;
}
else {
/* We're on the top page */
toppage->groups = curgroup;
}
}
else {
curgroup->next = init_group(link, onlycols, exceptcols, sorthosts);
curgroup = curgroup->next;
}
if (curtitle) { curgroup->pretitle = curtitle; curtitle = NULL; }
curhost = NULL;
}
else if (sscanf(inbol, "%3d.%3d.%3d.%3d %s", &ip1, &ip2, &ip3, &ip4, hostname) == 5) {
void *xymonhost = NULL;
int dialup, nonongreen, crittime = 1;
double warnpct = reportwarnlevel;
int warnstops = reportwarnstops;
char *displayname, *clientalias, *comment, *description;
char *alertlist, *onwaplist, *reporttime;
char *nopropyellowlist, *nopropredlist, *noproppurplelist, *nopropacklist;
char *targetpagelist[MAX_TARGETPAGES_PER_HOST];
int targetpagecount;
char *hval;
/* Check for ".default." hosts - they are ignored. */
if (*hostname == '.') goto nextline;
if (!fqdn) {
/* Strip any domain from the hostname */
char *p = strchr(hostname, '.');
if (p) *p = '\0';
}
/* Get the info */
xymonhost = hostinfo(hostname);
if (xymonhost == NULL) {
errprintf("Confused - hostname '%s' cannot be found. Ignored\n", hostname);
goto nextline;
}
/* Check for no-display hosts - they are ignored. */
/* But only when we're building the default pageset */
if ((strlen(pgset) == 0) && (xmh_item(xymonhost, XMH_FLAG_NODISP) != NULL)) goto nextline;
for (targetpagecount=0; (targetpagecount < MAX_TARGETPAGES_PER_HOST); targetpagecount++)
targetpagelist[targetpagecount] = NULL;
targetpagecount = 0;
dialup = (xmh_item(xymonhost, XMH_FLAG_DIALUP) != NULL);
nonongreen = (xmh_item(xymonhost, XMH_FLAG_NONONGREEN) != NULL);
alertlist = xmh_item(xymonhost, XMH_NK);
hval = xmh_item(xymonhost, XMH_NKTIME); if (hval) crittime = within_sla(xmh_item(xymonhost, XMH_HOLIDAYS), hval, 0);
onwaplist = xmh_item(xymonhost, XMH_WML);
nopropyellowlist = xmh_item(xymonhost, XMH_NOPROPYELLOW);
if (nopropyellowlist == NULL) nopropyellowlist = xmh_item(xymonhost, XMH_NOPROP);
nopropredlist = xmh_item(xymonhost, XMH_NOPROPRED);
noproppurplelist = xmh_item(xymonhost, XMH_NOPROPPURPLE);
nopropacklist = xmh_item(xymonhost, XMH_NOPROPACK);
displayname = xmh_item(xymonhost, XMH_DISPLAYNAME);
comment = xmh_item(xymonhost, XMH_COMMENT);
description = xmh_item(xymonhost, XMH_DESCRIPTION);
hval = xmh_item(xymonhost, XMH_WARNPCT); if (hval) warnpct = atof(hval);
hval = xmh_item(xymonhost, XMH_WARNSTOPS); if (hval) warnstops = atof(hval);
reporttime = xmh_item(xymonhost, XMH_REPORTTIME);
clientalias = xmh_item(xymonhost, XMH_CLIENTALIAS);
if (xymonhost && (strcmp(xmh_item(xymonhost, XMH_HOSTNAME), clientalias) == 0)) clientalias = NULL;
if (xymonhost && (strlen(pgset) > 0)) {
/* Walk the clone-list and pick up the target pages for this host */
void *cwalk = xymonhost;
do {
hval = xmh_item_walk(cwalk);
while (hval) {
if (strncasecmp(hval, hosttag, strlen(hosttag)) == 0)
targetpagelist[targetpagecount++] = strdup(hval+strlen(hosttag));
hval = xmh_item_walk(NULL);
}
cwalk = next_host(cwalk, 1);
} while (cwalk &&
(strcmp(xmh_item(cwalk, XMH_HOSTNAME), xmh_item(xymonhost, XMH_HOSTNAME)) == 0) &&
(targetpagecount < MAX_TARGETPAGES_PER_HOST) );
/*
* HACK: Check if the pageset tag is present at all in the host
* entry. If it isn't, then drop this incarnation of the host.
*
* Without this, the following hosts.cfg file will have the
* www.hswn.dk host listed twice on the alternate pageset:
*
* adminpage nyc NYC
*
* 127.0.0.1 localhost # bbd http://localhost/ CLIENT:osiris
* 172.16.10.2 www.xymon.com # http://www.xymon.com/ ADMIN:nyc ssh noinfo
*
* page superdome Superdome
* 172.16.10.2 www.xymon.com # noconn
*
*/
if (strstr(inbol, hosttag) == NULL) targetpagecount = 0;
}
if (strlen(pgset) == 0) {
/*
* Default pageset generated. Put the host into
* whatever group or page is current.
*/
if (curhost == NULL) {
curhost = init_host(hostname, 0, displayname, clientalias,
comment, description,
ip1, ip2, ip3, ip4, dialup,
warnpct, warnstops, reporttime,
alertlist, crittime, onwaplist,
nopropyellowlist, nopropredlist, noproppurplelist, nopropacklist);
if (curgroup != NULL) {
curgroup->hosts = curhost;
}
else if (cursubparent != NULL) {
cursubparent->hosts = curhost;
}
else if (cursubpage != NULL) {
cursubpage->hosts = curhost;
}
else if (curpage != NULL) {
curpage->hosts = curhost;
}
else {
toppage->hosts = curhost;
}
}
else {
curhost = curhost->next = init_host(hostname, 0, displayname, clientalias,
comment, description,
ip1, ip2, ip3, ip4, dialup,
warnpct, warnstops, reporttime,
alertlist, crittime, onwaplist,
nopropyellowlist,nopropredlist,
noproppurplelist, nopropacklist);
}
curhost->parent = (cursubparent ? cursubparent : (cursubpage ? cursubpage : curpage));
if (curtitle) { curhost->pretitle = curtitle; curtitle = NULL; }
curhost->nonongreen = nonongreen;
}
else if (targetpagecount) {
int pgnum;
for (pgnum=0; (pgnum < targetpagecount); pgnum++) {
char *targetpagename = targetpagelist[pgnum];
char savechar;
int wantedgroup = 0;
xymonpagelist_t *targetpage = NULL;
/* Put the host into the page specified by the PGSET: tag */
p = strchr(targetpagename, ',');
if (p) {
savechar = *p;
*p = '\0';
wantedgroup = atoi(p+1);
}
else {
savechar = '\0';
p = targetpagename + strlen(targetpagename);
}
/* Find the page */
if (strcmp(targetpagename, "*") == 0) {
*targetpagename = '\0';
}
for (targetpage = pagelisthead; (targetpage && (strcmp(targetpagename, targetpage->pageentry->name) != 0)); targetpage = targetpage->next) ;
*p = savechar;
if (targetpage == NULL) {
errprintf("Warning: Cannot find any target page named '%s' in set '%s' - dropping host '%s'\n",
targetpagename, pgset, hostname);
}
else {
host_t *newhost = init_host(hostname, 0, displayname, clientalias,
comment, description,
ip1, ip2, ip3, ip4, dialup,
warnpct, warnstops, reporttime,
alertlist, crittime, onwaplist,
nopropyellowlist,nopropredlist,
noproppurplelist, nopropacklist);
if (wantedgroup > 0) {
group_t *gwalk;
host_t *hwalk;
int i;
for (gwalk = targetpage->pageentry->groups, i=1; (gwalk && (i < wantedgroup)); i++,gwalk=gwalk->next) ;
if (gwalk) {
if (gwalk->hosts == NULL)
gwalk->hosts = newhost;
else {
for (hwalk = gwalk->hosts; (hwalk->next); hwalk = hwalk->next) ;
hwalk->next = newhost;
}
}
else {
errprintf("Warning: Cannot find group %d for host %s - dropping host\n",
wantedgroup, hostname);
}
}
else {
/* Just put in on the page's hostlist */
host_t *walk;
if (targetpage->pageentry->hosts == NULL)
targetpage->pageentry->hosts = newhost;
else {
for (walk = targetpage->pageentry->hosts; (walk->next); walk = walk->next) ;
walk->next = newhost;
}
}
newhost->parent = targetpage->pageentry;
if (curtitle) newhost->pretitle = curtitle;
}
curtitle = NULL;
}
}
}
else if (strncmp(inbol, summarytag, strlen(summarytag)) == 0) {
/* summary row.column IP-ADDRESS-OF-PARENT http://xymon.com/ */
char sumname[MAX_LINE_LEN];
char receiver[MAX_LINE_LEN];
char url[MAX_LINE_LEN];
summary_t *newsum;
if (sscanf(inbol, "summary %s %s %s", sumname, receiver, url) == 3) {
newsum = init_summary(sumname, receiver, url);
newsum->next = sumhead;
sumhead = newsum;
}
}
else if (strncmp(inbol, titletag, strlen(titletag)) == 0) {
/* Save the title for the next entry */
curtitle = strdup(skipwhitespace(skipword(inbol)));
}
nextline:
if (ineol) {
*ineol = insavchar;
if (*ineol != '\n') ineol = strchr(ineol, '\n');
inbol = (ineol ? ineol+1 : NULL);
}
else
inbol = NULL;
}
xfree(cfgdata);
return toppage;
}
host_t *init_host(char *hostname, int issummary,
char *displayname, char *clientalias,
char *comment, char *description,
int ip1, int ip2, int ip3, int ip4,
int dialup, double warnpct, int warnstops, char *reporttime,
char *alerts, int crittime, char *waps,
char *nopropyellowtests, char *nopropredtests, char *noproppurpletests, char *nopropacktests)
{
host_t *newhost = (host_t *) calloc(1, sizeof(host_t));
hostlist_t *oldlist;
hostcount++;
dbgprintf("init_host(%s)\n", textornull(hostname));
newhost->hostname = newhost->displayname = strdup(hostname);
if (displayname) newhost->displayname = strdup(displayname);
newhost->clientalias = (clientalias ? strdup(clientalias) : NULL);
newhost->comment = (comment ? strdup(comment) : NULL);
newhost->description = (description ? strdup(description) : NULL);
sprintf(newhost->ip, "%d.%d.%d.%d", ip1, ip2, ip3, ip4);
newhost->pretitle = NULL;
newhost->entries = NULL;
newhost->color = -1;
newhost->oldage = 1;
newhost->dialup = dialup;
newhost->reportwarnlevel = warnpct;
newhost->reportwarnstops = warnstops;
newhost->reporttime = (reporttime ? strdup(reporttime) : NULL);
if (alerts && crittime) {
newhost->alerts = strdup(alerts);
}
else {
newhost->alerts = NULL;
}
newhost->anywaps = 0;
newhost->wapcolor = -1;
/* Wap set is :
* - Specific WML: tag
* - NK: tag
* - --wap=COLUMN cmdline option
* - NULL
*/
if (waps || alerts) {
newhost->waps = strdup(waps ? waps : alerts);
}
else {
newhost->waps = wapcolumns;
}
if (nopropyellowtests) {
char *p;
p = skipword(nopropyellowtests); if (*p) *p = '\0'; else p = NULL;
newhost->nopropyellowtests = strdup(build_noprop(nopropyellowdefault, nopropyellowtests));
if (p) *p = ' ';
}
else {
newhost->nopropyellowtests = nopropyellowdefault;
}
if (nopropredtests) {
char *p;
p = skipword(nopropredtests); if (*p) *p = '\0'; else p = NULL;
newhost->nopropredtests = strdup(build_noprop(nopropreddefault, nopropredtests));
if (p) *p = ' ';
}
else {
newhost->nopropredtests = nopropreddefault;
}
if (noproppurpletests) {
char *p;
p = skipword(noproppurpletests); if (*p) *p = '\0'; else p = NULL;
newhost->noproppurpletests = strdup(build_noprop(noproppurpledefault, noproppurpletests));
if (p) *p = ' ';
}
else {
newhost->noproppurpletests = noproppurpledefault;
}
if (nopropacktests) {
char *p;
p = skipword(nopropacktests); if (*p) *p = '\0'; else p = NULL;
newhost->nopropacktests = strdup(build_noprop(nopropackdefault, nopropacktests));
if (p) *p = ' ';
}
else {
newhost->nopropacktests = nopropackdefault;
}
newhost->parent = NULL;
newhost->nonongreen = 0;
newhost->next = NULL;
/* Summary hosts don't go into the host list */
if (issummary) return newhost;
/*
* Add this host to the hostlist_t list of known hosts.
* HOWEVER: It might be a duplicate! In that case, we need
* to figure out which host record we want to use.
*/
oldlist = find_hostlist(hostname);
if (oldlist == NULL) {
hostlist_t *newlist;
newlist = (hostlist_t *) calloc(1, sizeof(hostlist_t));
newlist->hostentry = newhost;
newlist->clones = NULL;
add_to_hostlist(newlist);
}
else {
hostlist_t *clone = (hostlist_t *) calloc(1, sizeof(hostlist_t));
dbgprintf("Duplicate host definition for host '%s'\n", hostname);
clone->hostentry = newhost;
clone->clones = oldlist->clones;
oldlist->clones = clone;
}
return newhost;
}
int main(int argc, char *argv[])
{
int argi, i;
char *username = getenv("REMOTE_USER");
char *userhost = getenv("REMOTE_HOST");
char *userip = getenv("REMOTE_ADDR");
char *fullmsg = "No cause specified";
char *envarea = NULL;
int obeycookies = 1;
char *accessfn = NULL;
if ((username == NULL) || (strlen(username) == 0)) username = "******";
if ((userhost == NULL) || (strlen(userhost) == 0)) userhost = userip;
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], "--no-cookies") == 0) {
obeycookies = 0;
}
else if (strcmp(argv[argi], "--debug") == 0) {
debug = 1;
}
else if (argnmatch(argv[argi], "--access=")) {
char *p = strchr(argv[argi], '=');
accessfn = strdup(p+1);
}
}
redirect_cgilog("enadis");
parse_cgi();
if (debug) preview = 1;
if (cgi_method == CGI_GET) {
/*
* It's a GET, so the initial request.
* If we have a pagepath cookie, use that as the initial
* host-name filter.
*/
char *pagepath;
action = ACT_FILTER;
pagepath = get_cookie("pagepath");
if (obeycookies && pagepath && *pagepath) pagepattern = strdup(pagepath);
}
if (action == ACT_FILTER) {
/* Present the query form */
load_hostnames(xgetenv("HOSTSCFG"), NULL, get_fqdn());
sethostenv("", "", "", colorname(COL_BLUE), NULL);
sethostenv_filter(hostpattern, pagepattern, ippattern, classpattern);
printf("Content-type: %s\n\n", xgetenv("HTMLCONTENTTYPE"));
showform(stdout, "maint", "maint_form", COL_BLUE, getcurrenttime(NULL), NULL, NULL);
return 0;
}
fullmsg = (char *)malloc(1024 + strlen(username) + strlen(userhost) + strlen(disablemsg));
sprintf(fullmsg, "\nDisabled by: %s @ %s\nReason: %s\n", username, userhost, disablemsg);
/*
* Ready ... go build the webpage.
*/
printf("Content-Type: %s\n", xgetenv("HTMLCONTENTTYPE"));
if (!preview) {
char *returl;
// dbgprintf("Not a preview: sending to %s\n", textornull(getenv("HTTP_REFERER")));
/* We're done -- figure out where to send them */
if (getenv("HTTP_REFERER")) printf("Location: %s\n\n", getenv("HTTP_REFERER"));
else {
returl = (char *)malloc(1024);
snprintf(returl, sizeof(returl), "%s/%s", xgetenv("SECURECGIBINURL"), "enadis.sh");
printf("Location: %s?\n\n", returl);
}
}
else {
printf("\n");
}
/* It's ok with these hardcoded values, as they are not used for this page */
sethostenv("", "", "", colorname(COL_BLUE), NULL);
if (preview) headfoot(stdout, "maintact", "", "header", COL_BLUE);
if (debug) {
printf("<pre>\n");
switch (action) {
case ACT_NONE : dbgprintf("Action = none\n"); break;
case ACT_FILTER : dbgprintf("Action = filter\n"); break;
case ACT_ENABLE : dbgprintf("Action = enable\n");
dbgprintf("Tests = ");
for (i=0; (i < enablecount); i++) printf("%s ", enabletest[i]);
printf("\n");
break;
case ACT_DISABLE: dbgprintf("Action = disable\n");
dbgprintf("Tests = ");
for (i=0; (i < disablecount); i++) printf("%s ", disabletest[i]);
printf("\n");
if (disableend == DISABLE_UNTIL) {
dbgprintf("Disable until: endtime = %d, duration = %d, scale = %d\n", endtime, duration, scale);
}
else {
dbgprintf("Duration = %d, scale = %d\n", duration, scale);
}
dbgprintf("Cause = %s\n", textornull(disablemsg));
break;
case ACT_SCHED_DISABLE:
dbgprintf("Action = schedule\n");
dbgprintf("Time = %s\n", ctime(&schedtime));
dbgprintf("Tests = ");
for (i=0; (i < disablecount); i++) printf("%s ", disabletest[i]);
printf("\n");
if (disableend == DISABLE_UNTIL) {
dbgprintf("Disable until: endtime = %d, duration = %d, scale = %d\n", endtime, duration, scale);
}
else {
dbgprintf("Duration = %d, scale = %d\n", duration, scale);
}
dbgprintf("Cause = %s\n", textornull(disablemsg));
break;
case ACT_SCHED_CANCEL:
dbgprintf("Action = cancel\n");
dbgprintf("ID = %d\n", cancelid);
break;
}
printf("</pre>\n");
}
if (preview) printf("<table align=\"center\" summary=\"Actions performed\" width=\"60%%\">\n");
if (action == ACT_SCHED_CANCEL) {
do_one_host(NULL, NULL, username);
}
else {
/* Load the host data (for access control) */
if (accessfn) {
load_web_access_config(accessfn);
for (i = 0; (i < hostcount); i++) {
if (web_access_allowed(getenv("REMOTE_USER"), hostnames[i], NULL, WEB_ACCESS_CONTROL)) {
do_one_host(hostnames[i], fullmsg, username);
}
}
}
else {
for (i = 0; (i < hostcount); i++) do_one_host(hostnames[i], fullmsg, username);
}
}
if (preview) {
printf("<tr><td align=center><br><br><form method=\"GET\" ACTION=\"%s\"><input type=submit value=\"Continue\"></form></td></tr>\n", xgetenv("HTTP_REFERER"));
printf("</table>\n");
headfoot(stdout, "maintact", "", "footer", COL_BLUE);
}
return 0;
}
tcptest_t *add_tcp_test(char *ip, int port, char *service, ssloptions_t *sslopt,
char *srcip,
char *tspec, int silent, unsigned char *reqmsg,
void *priv, f_callback_data datacallback, f_callback_final finalcallback)
{
tcptest_t *newtest;
dbgprintf("Adding tcp test IP=%s, port=%d, service=%s, silent=%d\n", textornull(ip), port, service, silent);
if (port == 0) {
errprintf("Trying to scan port 0 for service %s\n", service);
errprintf("You probably need to define the %s service in /etc/services\n", service);
return NULL;
}
tcp_stats_total++;
newtest = (tcptest_t *) calloc(1, sizeof(tcptest_t));
newtest->tspec = (tspec ? strdup(tspec) : NULL);
newtest->fd = -1;
newtest->lastactive = 0;
newtest->bytesread = 0;
newtest->byteswritten = 0;
newtest->open = 0;
newtest->connres = -1;
newtest->errcode = CONTEST_ENOERROR;
newtest->duration.tv_sec = newtest->duration.tv_nsec = 0;
newtest->totaltime.tv_sec = newtest->totaltime.tv_nsec = 0;
memset(&newtest->addr, 0, sizeof(newtest->addr));
newtest->addr.sin_family = PF_INET;
newtest->addr.sin_port = htons(port);
if ((ip == NULL) || (strlen(ip) == 0) || (inet_aton(ip, (struct in_addr *) &newtest->addr.sin_addr.s_addr) == 0)) {
newtest->errcode = CONTEST_EDNS;
}
newtest->srcaddr = (srcip ? strdup(srcip) : NULL);
if (strcmp(service, "http") == 0) {
newtest->svcinfo = &svcinfo_http;
tcp_stats_http++;
}
else if (strcmp(service, "https") == 0) {
newtest->svcinfo = &svcinfo_https;
tcp_stats_http++;
}
else {
newtest->svcinfo = find_tcp_service(service);
tcp_stats_plain++;
}
newtest->sendtxt = (reqmsg ? reqmsg : newtest->svcinfo->sendtxt);
newtest->sendlen = (reqmsg ? strlen(reqmsg) : newtest->svcinfo->sendlen);
newtest->silenttest = silent;
newtest->readpending = 0;
newtest->telnetnegotiate = (((newtest->svcinfo->flags & TCP_TELNET) && !silent) ? MAX_TELNET_CYCLES : 0);
newtest->telnetbuf = NULL;
newtest->telnetbuflen = 0;
newtest->ssloptions = (sslopt ? sslopt : &default_sslopt);
newtest->sslctx = NULL;
newtest->ssldata = NULL;
newtest->certinfo = NULL;
newtest->certexpires = 0;
newtest->sslrunning = ((newtest->svcinfo->flags & TCP_SSL) ? SSLSETUP_PENDING : 0);
newtest->sslagain = 0;
newtest->banner = NULL;
newtest->bannerbytes = 0;
if (datacallback == NULL) {
/*
* Use the default callback-routine, which expects
* "priv" to point at the test item.
*/
newtest->priv = newtest;
newtest->datacallback = tcp_callback;
}
else {
/*
* Custom callback - handles data output by itself.
*/
newtest->priv = priv;
newtest->datacallback = datacallback;
}
newtest->finalcallback = finalcallback;
if (newtest->errcode == CONTEST_ENOERROR) {
newtest->next = thead;
thead = newtest;
}
return newtest;
}
int update_combotests(int showeval, int cleanexpr)
{
testspec_t *t;
int pending;
int remaining = 0;
init_timestamp();
loadtests();
/*
* Loop over the tests to allow us "forward refs" in expressions.
* We continue for as long as progress is being made.
*/
remaining = testcount;
do {
pending = remaining;
for (t=testhead; (t); t = t->next) {
if (t->result == -1) {
t->result = evaluate(t->expression, &t->resultexpr, &t->valuelist, &t->errbuf);
if (t->result != -1) remaining--;
}
}
} while (pending != remaining);
combo_start();
for (t=testhead; (t); t = t->next) {
char msgline[MAX_LINE_LEN];
int color;
value_t *vwalk;
color = (t->result ? COL_GREEN : COL_RED);
init_status(color);
sprintf(msgline, "status %s.%s %s %s\n\n", commafy(t->reshostname), ( t->restestname ? t->restestname : "combostatuserror" ), colorname(color), timestamp);
addtostatus(msgline);
if (t->comment) { addtostatus(t->comment); addtostatus("\n\n"); }
if (showeval) {
addtostatus(printify(t->expression, cleanexpr));
addtostatus(" = ");
addtostatus(printify(t->resultexpr, cleanexpr));
addtostatus(" = ");
sprintf(msgline, "%ld\n", t->result);
addtostatus(msgline);
for (vwalk = t->valuelist; (vwalk); vwalk = vwalk->next) {
sprintf(msgline, "&%s <a href=\"%s/svcstatus.sh?HOST=%s&SERVICE=%s\">%s</a>\n",
colorname(vwalk->color), xgetenv("CGIBINURL"), textornull(gethname(vwalk->symbol)), textornull(gettname(vwalk->symbol)), textornull(vwalk->symbol));
addtostatus(msgline);
}
if (t->errbuf) {
addtostatus("\nErrors occurred during evaluation:\n");
addtostatus(t->errbuf);
}
}
finish_status();
}
combo_end();
return 0;
}
state_t *init_state(char *filename, logdata_t *log)
{
FILE *fd = NULL;
char *p;
char *hostname;
char *testname;
char *testnameidx;
state_t *newstate;
char fullfn[PATH_MAX];
host_t *host;
struct stat log_st;
time_t now = getcurrenttime(NULL);
time_t histentry_start;
int logexpired = 0;
int propagating, isacked;
dbgprintf("init_state(%s, %d, ...)\n", textornull(filename));
/* Ignore summary files and dot-files (this catches "." and ".." also) */
if ( (strncmp(filename, "summary.", 8) == 0) || (filename[0] == '.')) {
return NULL;
}
if (reportstart || snapshot) {
/* Dont do reports for info- and trends-columns */
p = strrchr(filename, '.');
if (p == NULL) return NULL;
p++;
if (strcmp(p, xgetenv("INFOCOLUMN")) == 0) return NULL;
if (strcmp(p, xgetenv("TRENDSCOLUMN")) == 0) return NULL;
/*
* When doing reports, we are scanning the BBHIST directory. It may
* contain files that are named as a host only (no test-name).
* Skip those.
*/
if (find_host(filename)) return NULL;
}
if (!reportstart && !snapshot) {
hostname = strdup(log->hostname);
testname = strdup(log->testname);
logexpired = (log->validtime < now);
}
else {
sprintf(fullfn, "%s/%s", xgetenv("BBHIST"), filename);
/* Check that we can access this file */
if ( (stat(fullfn, &log_st) == -1) ||
(!S_ISREG(log_st.st_mode)) ||
((fd = fopen(fullfn, "r")) == NULL) ) {
errprintf("Weird file '%s' skipped\n", fullfn);
return NULL;
}
/* Pick out host- and test-name */
logexpired = (log_st.st_mtime < now);
hostname = strdup(filename);
p = strrchr(hostname, '.');
/* Skip files that have no '.' in filename */
if (p) {
/* Pick out the testname ... */
*p = '\0'; p++;
testname = strdup(p);
/* ... and change hostname back into normal form */
for (p=hostname; (*p); p++) {
if (*p == ',') *p='.';
}
}
else {
xfree(hostname);
fclose(fd);
return NULL;
}
}
/* Must do these first to get the propagation value for the statistics */
host = find_host(hostname);
isacked = (log->acktime > now);
propagating = checkpropagation(host, testname, log->color, isacked);
/* Count all of the real columns */
if ( (strcmp(testname, xgetenv("INFOCOLUMN")) != 0) && (strcmp(testname, xgetenv("TRENDSCOLUMN")) != 0) ) {
statuscount++;
switch (log->color) {
case COL_RED:
case COL_YELLOW:
if (propagating) colorcount[log->color] += 1;
else colorcount_noprop[log->color] += 1;
break;
default:
colorcount[log->color] += 1;
break;
}
}
testnameidx = (char *)malloc(strlen(testname) + 3);
sprintf(testnameidx, ",%s,", testname);
if (unwantedcolumn(hostname, testname) || (ignorecolumns && strstr(ignorecolumns, testnameidx))) {
xfree(hostname);
xfree(testname);
xfree(testnameidx);
if (fd) fclose(fd);
return NULL; /* Ignore this type of test */
}
xfree(testnameidx);
newstate = (state_t *) calloc(1, sizeof(state_t));
newstate->entry = (entry_t *) calloc(1, sizeof(entry_t));
newstate->next = NULL;
newstate->entry->column = find_or_create_column(testname, 1);
newstate->entry->color = -1;
strcpy(newstate->entry->age, "");
newstate->entry->oldage = 0;
newstate->entry->propagate = 1;
newstate->entry->testflags = NULL;
newstate->entry->skin = NULL;
newstate->entry->repinfo = NULL;
newstate->entry->causes = NULL;
newstate->entry->histlogname = NULL;
newstate->entry->shorttext = NULL;
if (host) {
newstate->entry->alert = checkalert(host->alerts, testname);
/* If no WAP's specified, default all tests to be on WAP page */
newstate->entry->onwap = (host->waps ? checkalert(host->waps, testname) : 1);
}
else {
dbgprintf(" hostname %s not found\n", hostname);
newstate->entry->alert = newstate->entry->onwap = 0;
}
newstate->entry->sumurl = NULL;
if (reportstart) {
/* Determine "color" for this test from the historical data */
newstate->entry->repinfo = (reportinfo_t *) calloc(1, sizeof(reportinfo_t));
newstate->entry->color = parse_historyfile(fd, newstate->entry->repinfo,
(dynamicreport ? NULL: hostname), (dynamicreport ? NULL : testname),
reportstart, reportend, 0,
(host ? host->reportwarnlevel : reportwarnlevel),
reportgreenlevel,
(host ? host->reportwarnstops : reportwarnstops),
(host ? host->reporttime : NULL));
newstate->entry->causes = (dynamicreport ? NULL : save_replogs());
}
else if (snapshot) {
time_t fileage = snapshot - histentry_start;
newstate->entry->color = history_color(fd, snapshot, &histentry_start, &newstate->entry->histlogname);
newstate->entry->oldage = (fileage >= recentgif_limit);
newstate->entry->fileage = fileage;
strcpy(newstate->entry->age, agestring(fileage));
}
else {
time_t fileage = (now - log->lastchange);
newstate->entry->color = log->color;
newstate->entry->testflags = strdup(log->testflags);
if (testflag_set(newstate->entry, 'D')) newstate->entry->skin = dialupskin;
if (testflag_set(newstate->entry, 'R')) newstate->entry->skin = reverseskin;
newstate->entry->shorttext = strdup(log->msg);
newstate->entry->acked = isacked;
newstate->entry->oldage = (fileage >= recentgif_limit);
newstate->entry->fileage = (log->lastchange ? fileage : -1);
if (log->lastchange == 0)
strcpy(newstate->entry->age, "");
else
strcpy(newstate->entry->age, agestring(fileage));
}
if (purplelog && (newstate->entry->color == COL_PURPLE)) {
fprintf(purplelog, "%s %s%s\n",
hostname, testname, (host ? " (expired)" : " (unknown host)"));
}
newstate->entry->propagate = propagating;
dbgprintf("init_state: hostname=%s, testname=%s, color=%d, acked=%d, age=%s, oldage=%d, propagate=%d, alert=%d\n",
textornull(hostname), textornull(testname),
newstate->entry->color, newstate->entry->acked,
textornull(newstate->entry->age), newstate->entry->oldage,
newstate->entry->propagate, newstate->entry->alert);
if (host) {
hostlist_t *l;
/* Add this state entry to the host's list of state entries. */
newstate->entry->next = host->entries;
host->entries = newstate->entry;
/* There may be multiple host entries, if a host is
* listed in several locations in bb-hosts (for display purposes).
* This is handled by updating ALL of the cloned host records.
* Bug reported by Bluejay Adametz of Fuji.
*/
/* Cannot use "find_host()" here, as we need the hostlink record, not the host record */
l = find_hostlist(hostname);
/* Walk through the clone-list and set the "entries" for all hosts */
for (l=l->clones; (l); l = l->clones) l->hostentry->entries = host->entries;
}
else {
/* No host for this test - must be missing from bb-hosts */
newstate->entry->next = NULL;
}
xfree(hostname);
xfree(testname);
if (fd) fclose(fd);
return newstate;
}
cgidata_t *cgi_request(void)
{
char *method = NULL;
char *reqdata = NULL;
char *conttype = NULL;
char *token;
cgidata_t *head = NULL, *tail = NULL;
cgi_error_text = NULL;
cgi_method = CGI_OTHER;
method = getenv("REQUEST_METHOD");
if (!method) {
lcgi_error("CGI violation - no REQUEST_METHOD\n");
return NULL;
}
conttype = getenv("CONTENT_TYPE");
if (strcasecmp(method, "POST") == 0) {
char *contlen = getenv("CONTENT_LENGTH");
int postsize = 0;
cgi_method = CGI_POST;
if (contlen) {
postsize = atoi(contlen);
}
else {
lcgi_error("CGI violation - no CONTENT_LENGTH\n");
return NULL;
}
if (postsize < MAX_REQ_SIZE) {
size_t n;
reqdata = (char *)malloc(postsize+1);
n = fread(reqdata, 1, postsize, stdin);
if (n < postsize) {
lcgi_error("Error reading POST data\n");
return NULL;
}
reqdata[n] = '\0';
}
else {
lcgi_error("Request too large\n");
return NULL;
}
}
else if (strcasecmp(method, "GET") == 0) {
char *q = getenv("QUERY_STRING");
cgi_method = CGI_GET;
if (q) {
if (strlen(q) < MAX_REQ_SIZE) {
reqdata = strdup(q);
}
else {
lcgi_error("Request too large\n");
return NULL;
}
}
else {
/* This is OK - we may not have any query */
return NULL;
}
}
dbgprintf("CGI: Request method='%s', data='%s'\n", method, textornull(reqdata));
if ((cgi_method == CGI_GET) || (conttype && (strcasecmp(conttype, "application/x-www-form-urlencoded") == 0))) {
token = strtok(reqdata, "&");
while (token) {
cgidata_t *newitem = (cgidata_t *)calloc(1, sizeof(cgidata_t));
char *val;
val = strchr(token, '=');
if (val) {
*val = '\0';
val = urlunescape(val+1);
}
newitem->name = strdup(token);
newitem->value = strdup(val ? val : "");
if (!tail) {
head = newitem;
}
else {
tail->next = newitem;
}
tail = newitem;
token = strtok(NULL, "&");
}
}
else if ((cgi_method == CGI_POST) && (conttype && (strcasecmp(conttype, "multipart/form-data") == 0))) {
char *bol, *eoln, *delim;
char eolnchar = '\n';
char *currelembegin = NULL, *currelemend = NULL;
cgidata_t *newitem = NULL;
delim = reqdata;
eoln = strchr(delim, '\n'); if (!eoln) return NULL;
*eoln = '\0'; delim = strdup(reqdata); *eoln = '\n';
if (*(delim + strlen(delim) - 1) == '\r') {
eolnchar = '\r';
*(delim + strlen(delim) - 1) = '\0';
}
bol = reqdata;
do {
eoln = strchr(bol, eolnchar); if (eoln) *eoln = '\0';
if (strncmp(bol, delim, strlen(delim)) == 0) {
if (newitem && currelembegin && (currelemend >= currelembegin)) {
/* Finish off the current item */
char savech;
savech = *currelemend;
*currelemend = '\0';
newitem->value = strdup(currelembegin);
*currelemend = savech;
currelembegin = currelemend = NULL;
}
if (strcmp(bol+strlen(delim), "--") != 0) {
/* New element */
newitem = (cgidata_t *)calloc(1, sizeof(cgidata_t));
if (!tail) head = newitem; else tail->next = newitem;
tail = newitem;
}
else {
/* No more elements, end of input */
newitem = NULL;
bol = NULL;
continue;
}
}
else if (newitem && (strncasecmp(bol, "Content-Disposition:", 20) == 0)) {
char *tok;
tok = strtok(bol, ";\t ");
while (tok) {
if (strncasecmp(tok, "name=", 5) == 0) {
char *name;
name = tok+5;
if (*name == '\"') {
name++;
*(name + strlen(name) - 1) = '\0';
}
newitem->name = strdup(name);
}
else if (strncasecmp(tok, "filename=", 9) == 0) {
char *filename;
filename = tok+9;
if (*filename == '\"') {
filename++;
*(filename + strlen(filename) - 1) = '\0';
}
newitem->filename = strdup(filename);
}
tok = strtok(NULL, ";\t ");
}
}
else if (newitem && (strncasecmp(bol, "Content-Type:", 12) == 0)) {
}
else if (newitem && !currelembegin && (*bol == '\0')) {
/* End of headers for one element */
if (eoln) {
currelembegin = eoln+1;
if ((eolnchar == '\r') && (*currelembegin == '\n')) currelembegin++;
}
currelemend = currelembegin;
}
else if (newitem && currelembegin) {
currelemend = (eoln ? eoln+1 : bol + strlen(bol));
}
if (eoln) {
bol = eoln+1;
if ((eolnchar == '\r') && (*bol == '\n')) bol++;
}
else {
bol = NULL;
}
} while (bol && (*bol));
if (newitem) {
if (!newitem->name) newitem->name = "";
if (!newitem->value) newitem->value = "";
}
}
else {
/* Raw data - return a single record to caller */
head = (cgidata_t *)calloc(1, sizeof(cgidata_t));
head->name = strdup("");
head->value = reqdata ? strdup(reqdata) : NULL;
}
if (reqdata) xfree(reqdata);
return head;
}
static int sendtomany(char *onercpt, char *morercpts, char *msg, int timeout, sendreturn_t *response)
{
int allservers = 1, first = 1, result = XYMONSEND_OK;
char *xymondlist, *rcpt;
/*
* Even though this is the "sendtomany" routine, we need to decide if the
* request should go to all servers, or just a single server. The default
* is to send to all servers - but commands that trigger a response can
* only go to a single server.
*
* "schedule" is special - when scheduling an action there is no response, but
* when it is the blank "schedule" command there will be a response. So a
* schedule action goes to all Xymon servers, the blank "schedule" goes to a single
* server.
*/
if (strcmp(onercpt, "0.0.0.0") != 0)
allservers = 0;
else if (strncmp(msg, "schedule", 8) == 0)
/* See if it's just a blank "schedule" command */
allservers = (strcmp(msg, "schedule") != 0);
else {
char *msgcmd;
int i;
/* See if this is a multi-recipient command */
i = strspn(msg, "abcdefghijklmnopqrstuvwxyz");
msgcmd = (char *)malloc(i+1);
strncpy(msgcmd, msg, i); *(msgcmd+i) = '\0';
for (i = 0; (multircptcmds[i] && strcmp(multircptcmds[i], msgcmd)); i++) ;
xfree(msgcmd);
allservers = (multircptcmds[i] != NULL);
}
if (allservers && !morercpts) {
sprintf(errordetails+strlen(errordetails), "No recipients listed! XYMSRV was %s, XYMSERVERS %s",
onercpt, textornull(morercpts));
return XYMONSEND_EBADIP;
}
if (strcmp(onercpt, "0.0.0.0") != 0)
xymondlist = strdup(onercpt);
else
xymondlist = strdup(morercpts);
rcpt = strtok(xymondlist, " \t");
while (rcpt) {
int oneres;
if (first) {
/* We grab the result from the first server */
char *respstr = NULL;
if (response) {
oneres = sendtoxymond(rcpt, msg,
response->respfd,
(response->respstr ? &respstr : NULL),
(response->respfd || response->respstr),
timeout);
}
else {
oneres = sendtoxymond(rcpt, msg, NULL, NULL, 0, timeout);
}
if (oneres == XYMONSEND_OK) {
if (respstr && response && response->respstr) {
addtobuffer(response->respstr, respstr);
xfree(respstr);
}
first = 0;
}
}
else {
/* Secondary servers do not yield a response */
oneres = sendtoxymond(rcpt, msg, NULL, NULL, 0, timeout);
}
/* Save any error results */
if (result == XYMONSEND_OK) result = oneres;
/*
* Handle more servers IF we're doing all servers, OR
* we are still at the first one (because the previous
* ones failed).
*/
if (allservers || first)
rcpt = strtok(NULL, " \t");
else
rcpt = NULL;
}
xfree(xymondlist);
return result;
}
int main(int argc, char *argv[])
{
char *pagedir;
bbgen_page_t *p;
dispsummary_t *s;
int i;
char *pageset = NULL;
char *nssidebarfilename = NULL;
char *egocolumn = NULL;
char *csvfile = NULL;
char csvdelim = ',';
int embedded = 0;
int hobbitddump = 0;
char *envarea = NULL;
int do_normal_pages = 1;
/* Setup standard header+footer (might be modified by option pageset) */
select_headers_and_footers("bb");
bb_color = bb2_color = bbnk_color = -1;
pagedir = NULL;
init_timestamp();
fqdn = get_fqdn();
/* Setup values from env. vars that may be overridden via commandline options */
if (xgetenv("MKBB2COLREPEAT")) {
int i = atoi(xgetenv("MKBB2COLREPEAT"));
if (i > 0) maxrowsbeforeheading = i;
}
for (i = 1; (i < argc); i++) {
if ( (strcmp(argv[i], "--hobbitd") == 0) ||
(argnmatch(argv[i], "--purplelifetime=")) ||
(strcmp(argv[i], "--nopurple") == 0) ) {
/* Deprecated */
}
else if (argnmatch(argv[i], "--env=")) {
char *lp = strchr(argv[i], '=');
loadenv(lp+1, envarea);
}
else if (argnmatch(argv[i], "--area=")) {
char *lp = strchr(argv[i], '=');
envarea = strdup(lp+1);
}
else if (argnmatch(argv[i], "--hobbitddump")) {
hobbitddump = 1;
}
else if (argnmatch(argv[i], "--ignorecolumns=")) {
char *lp = strchr(argv[i], '=');
ignorecolumns = (char *) malloc(strlen(lp)+2);
sprintf(ignorecolumns, ",%s,", (lp+1));
}
else if (argnmatch(argv[i], "--nk-reds-only")) {
nkonlyreds = 1;
}
else if (argnmatch(argv[i], "--bb2-ignorecolumns=")) {
char *lp = strchr(argv[i], '=');
bb2ignorecolumns = (char *) malloc(strlen(lp)+2);
sprintf(bb2ignorecolumns, ",%s,", (lp+1));
}
else if (argnmatch(argv[i], "--bb2-colors=")) {
char *lp = strchr(argv[i], '=') + 1;
bb2colors = colorset(lp, (1 << COL_GREEN));
}
else if (argnmatch(argv[i], "--bb2-ignorepurples")) {
bb2colors = (bb2colors & ~(1 << COL_PURPLE));
}
else if (argnmatch(argv[i], "--bb2-ignoredialups")) {
bb2nodialups = 1;
}
else if (argnmatch(argv[i], "--includecolumns=")) {
char *lp = strchr(argv[i], '=');
includecolumns = (char *) malloc(strlen(lp)+2);
sprintf(includecolumns, ",%s,", (lp+1));
}
else if (argnmatch(argv[i], "--eventignore=")) {
char *lp = strchr(argv[i], '=');
eventignorecolumns = (char *) malloc(strlen(lp)+2);
sprintf(eventignorecolumns, ",%s,", (lp+1));
}
else if (argnmatch(argv[i], "--doccgi=")) {
char *lp = strchr(argv[i], '=');
char *url = (char *)malloc(strlen(xgetenv("CGIBINURL"))+strlen(lp+1)+2);
sprintf(url, "%s/%s", xgetenv("CGIBINURL"), lp+1);
setdocurl(url);
xfree(url);
}
else if (argnmatch(argv[i], "--docurl=")) {
char *lp = strchr(argv[i], '=');
setdocurl(lp+1);
}
else if (argnmatch(argv[i], "--no-doc-window")) {
/* This is a no-op now */
}
else if (argnmatch(argv[i], "--doc-window")) {
setdocurl("TARGET=\"_blank\"");
}
else if (argnmatch(argv[i], "--htmlextension=")) {
char *lp = strchr(argv[i], '=');
htmlextension = strdup(lp+1);
}
else if (argnmatch(argv[i], "--htaccess")) {
char *lp = strchr(argv[i], '=');
if (lp) htaccess = strdup(lp+1);
else htaccess = ".htaccess";
}
else if ((strcmp(argv[i], "--wml") == 0) || argnmatch(argv[i], "--wml=")) {
char *lp = strchr(argv[i], '=');
if (lp) {
wapcolumns = (char *) malloc(strlen(lp)+2);
sprintf(wapcolumns, ",%s,", (lp+1));
}
enable_wmlgen = 1;
}
else if (argnmatch(argv[i], "--nstab=")) {
char *lp = strchr(argv[i], '=');
if (strlen(lp+1) > 0) {
nssidebarfilename = strdup(lp+1);
}
else errprintf("--nstab requires a filename\n");
}
else if (argnmatch(argv[i], "--nslimit=")) {
char *lp = strchr(argv[i], '=');
nssidebarcolorlimit = parse_color(lp+1);
}
else if (argnmatch(argv[i], "--rssversion=")) {
char *lp = strchr(argv[i], '=');
rssversion = strdup(lp+1);
}
else if (argnmatch(argv[i], "--rsslimit=")) {
char *lp = strchr(argv[i], '=');
rsscolorlimit = parse_color(lp+1);
}
else if (argnmatch(argv[i], "--rss")) {
wantrss = 1;
}
else if (argnmatch(argv[i], "--rssextension=")) {
char *lp = strchr(argv[i], '=');
rssextension = strdup(lp+1);
}
else if (argnmatch(argv[i], "--reportopts=")) {
char style[MAX_LINE_LEN];
unsigned int rstart, rend;
int count = sscanf(argv[i], "--reportopts=%u:%u:%d:%s",
&rstart, &rend, &dynamicreport, style);
reportstart = rstart; reportend = rend;
if (count < 2) {
errprintf("Invalid --reportopts option: Must have start- and end-times\n");
return 1;
}
if (count < 3) dynamicreport = 1;
if (count == 4) {
if (strcmp(style, stylenames[STYLE_CRIT]) == 0) reportstyle = STYLE_CRIT;
else if (strcmp(style, stylenames[STYLE_NONGR]) == 0) reportstyle = STYLE_NONGR;
else reportstyle = STYLE_OTHER;
}
if (reportstart < 788918400) reportstart = 788918400;
if (reportend > time(NULL)) reportend = time(NULL);
if (xgetenv("BBREPWARN")) reportwarnlevel = atof(xgetenv("BBREPWARN"));
if (xgetenv("BBREPGREEN")) reportgreenlevel = atof(xgetenv("BBREPGREEN"));
if ((reportwarnlevel < 0.0) || (reportwarnlevel > 100.0)) reportwarnlevel = 97.0;
if ((reportgreenlevel < 0.0) || (reportgreenlevel > 100.0)) reportgreenlevel = 99.995;
select_headers_and_footers("bbrep");
sethostenv_report(reportstart, reportend, reportwarnlevel, reportgreenlevel);
}
else if (argnmatch(argv[i], "--csv=")) {
char *lp = strchr(argv[i], '=');
csvfile = strdup(lp+1);
}
else if (argnmatch(argv[i], "--csvdelim=")) {
char *lp = strchr(argv[i], '=');
csvdelim = *(lp+1);
}
else if (argnmatch(argv[i], "--snapshot=")) {
char *lp = strchr(argv[i], '=');
snapshot = atol(lp+1);
select_headers_and_footers("bbsnap");
sethostenv_snapshot(snapshot);
}
else if (strcmp(argv[i], "--pages-first") == 0) {
hostsbeforepages = 0;
}
else if (strcmp(argv[i], "--pages-last") == 0) {
hostsbeforepages = 1;
}
else if (argnmatch(argv[i], "--subpagecolumns=")) {
char *lp = strchr(argv[i], '=');
subpagecolumns = atoi(lp+1);
if (subpagecolumns < 1) subpagecolumns=1;
}
else if (argnmatch(argv[i], "--maxrows=")) {
char *lp = strchr(argv[i], '=');
maxrowsbeforeheading = atoi(lp+1);
if (maxrowsbeforeheading < 0) maxrowsbeforeheading=0;
}
else if (strcmp(argv[i], "--recentgifs") == 0) {
use_recentgifs = 1;
}
else if (argnmatch(argv[i], "--recentgifs=")) {
char *lp = strchr(argv[i], '=');
use_recentgifs = 1;
recentgif_limit = 60*durationvalue(lp+1);
}
else if (strcmp(argv[i], "--sort-group-only-items") == 0) {
sort_grouponly_items = 1;
}
else if (argnmatch(argv[i], "--page-title=")) {
char *lp = strchr(argv[i], '=');
defaultpagetitle = strdup(lp+1);
}
else if (argnmatch(argv[i], "--dialupskin=")) {
char *lp = strchr(argv[i], '=');
dialupskin = strdup(lp+1);
}
else if (argnmatch(argv[i], "--reverseskin=")) {
char *lp = strchr(argv[i], '=');
reverseskin = strdup(lp+1);
}
else if (strcmp(argv[i], "--pagetitle-links") == 0) {
pagetitlelinks = 1;
}
else if (strcmp(argv[i], "--pagetext-headings") == 0) {
pagetextheadings = 1;
}
else if (strcmp(argv[i], "--underline-headings") == 0) {
underlineheadings = 1;
}
else if (strcmp(argv[i], "--no-underline-headings") == 0) {
underlineheadings = 0;
}
else if (strcmp(argv[i], "--no-eventlog") == 0) {
bb2eventlog = 0;
}
else if (argnmatch(argv[i], "--max-eventcount=")) {
char *lp = strchr(argv[i], '=');
bb2eventlogmaxcount = atoi(lp+1);
}
else if (argnmatch(argv[i], "--max-eventtime=")) {
char *lp = strchr(argv[i], '=');
bb2eventlogmaxtime = atoi(lp+1);
}
else if (argnmatch(argv[i], "--max-ackcount=")) {
char *lp = strchr(argv[i], '=');
bb2acklogmaxcount = atoi(lp+1);
}
else if (argnmatch(argv[i], "--max-acktime=")) {
char *lp = strchr(argv[i], '=');
bb2acklogmaxtime = atoi(lp+1);
}
else if (strcmp(argv[i], "--no-acklog") == 0) {
bb2acklog = 0;
}
else if (strcmp(argv[i], "--no-pages") == 0) {
do_normal_pages = 0;
}
else if (argnmatch(argv[i], "--noprop=")) {
char *lp = strchr(argv[i], '=');
nopropyellowdefault = (char *) malloc(strlen(lp)+2);
sprintf(nopropyellowdefault, ",%s,", (lp+1));
errprintf("--noprop is deprecated - use --nopropyellow instead\n");
}
else if (argnmatch(argv[i], "--nopropyellow=")) {
char *lp = strchr(argv[i], '=');
nopropyellowdefault = (char *) malloc(strlen(lp)+2);
sprintf(nopropyellowdefault, ",%s,", (lp+1));
}
else if (argnmatch(argv[i], "--nopropred=")) {
char *lp = strchr(argv[i], '=');
nopropreddefault = (char *) malloc(strlen(lp)+2);
sprintf(nopropreddefault, ",%s,", (lp+1));
}
else if (argnmatch(argv[i], "--noproppurple=")) {
char *lp = strchr(argv[i], '=');
noproppurpledefault = (char *) malloc(strlen(lp)+2);
sprintf(noproppurpledefault, ",%s,", (lp+1));
}
else if (argnmatch(argv[i], "--nopropack=")) {
char *lp = strchr(argv[i], '=');
nopropackdefault = (char *) malloc(strlen(lp)+2);
sprintf(nopropackdefault, ",%s,", (lp+1));
}
else if (strcmp(argv[i], "--bbpageONLY") == 0) {
/* Deprecated */
errprintf("--bbpageONLY is deprecated - use --pageset=NAME to generate pagesets\n");
}
else if (strcmp(argv[i], "--embedded") == 0) {
embedded = 1;
}
else if (argnmatch(argv[i], "--pageset=")) {
char *lp = strchr(argv[i], '=');
pageset = strdup(lp+1);
}
else if (argnmatch(argv[i], "--template=")) {
char *lp = strchr(argv[i], '=');
lp++;
select_headers_and_footers(lp);
}
else if (argnmatch(argv[i], "--purplelog=")) {
char *lp = strchr(argv[i], '=');
if (*(lp+1) == '/') purplelogfn = strdup(lp+1);
else {
purplelogfn = (char *) malloc(strlen(xgetenv("BBHOME"))+1+strlen(lp+1)+1);
sprintf(purplelogfn, "%s/%s", xgetenv("BBHOME"), (lp+1));
}
}
else if (argnmatch(argv[i], "--report=") || (strcmp(argv[i], "--report") == 0)) {
char *lp = strchr(argv[i], '=');
if (lp) {
egocolumn = strdup(lp+1);
}
else egocolumn = "bbgen";
timing = 1;
}
else if (argnmatch(argv[i], "--nklog=") || (strcmp(argv[i], "--nklog") == 0)) {
char *lp = strchr(argv[i], '=');
if (lp) {
lognkstatus = strdup(lp+1);
}
else lognkstatus = "nk";
}
else if (strcmp(argv[i], "--timing") == 0) {
timing = 1;
}
else if (strcmp(argv[i], "--debug") == 0) {
debug = 1;
}
else if (strcmp(argv[i], "--no-update") == 0) {
dontsendmessages = 1;
}
else if (strcmp(argv[i], "--version") == 0) {
printf("bbgen version %s\n", VERSION);
printf("\n");
exit(0);
}
else if ((strcmp(argv[i], "--help") == 0) || (strcmp(argv[i], "-?") == 0)) {
printf("bbgen for Hobbit version %s\n\n", VERSION);
printf("Usage: %s [options] [WebpageDirectory]\n", argv[0]);
printf("Options:\n");
printf(" --ignorecolumns=test[,test] : Completely ignore these columns\n");
printf(" --nk-reds-only : Only show red statuses on the NK page\n");
printf(" --bb2-ignorecolumns=test[,test]: Ignore these columns for the BB2 page\n");
printf(" --bb2-ignorepurples : Ignore all-purple hosts on BB2 page\n");
printf(" --includecolumns=test[,test]: Always include these columns on BB2 page\n");
printf(" --max-eventcount=N : Max number of events to include in eventlog\n");
printf(" --max-eventtime=N : Show events that occurred within the last N minutes\n");
printf(" --eventignore=test[,test] : Columns to ignore in bb2 event-log display\n");
printf(" --no-eventlog : Do not generate the bb2 eventlog display\n");
printf(" --no-acklog : Do not generate the bb2 ack-log display\n");
printf(" --no-pages : Generate only the bb2 and bbnk pages\n");
printf(" --docurl=documentation-URL : Hostnames link to a general (dynamic) web page for docs\n");
printf(" --no-doc-window : Open doc-links in same window\n");
printf(" --htmlextension=.EXT : Sets filename extension for generated file (default: .html\n");
printf(" --report[=COLUMNNAME] : Send a status report about the running of bbgen\n");
printf(" --reportopts=ST:END:DYN:STL : Run in Hobbit Reporting mode\n");
printf(" --csv=FILENAME : For Hobbit Reporting, output CSV file\n");
printf(" --csvdelim=CHARACTER : Delimiter in CSV file output (default: comma)\n");
printf(" --snapshot=TIME : Snapshot mode\n");
printf("\nPage layout options:\n");
printf(" --pages-first : Put page- and subpage-links before hosts (default)\n");
printf(" --pages-last : Put page- and subpage-links after hosts\n");
printf(" --subpagecolumns=N : Number of columns for links to pages and subpages\n");
printf(" --maxrows=N : Repeat column headings for every N hosts shown\n");
printf(" --recentgifs : Use xxx-recent.gif icons for newly changed tests\n");
printf(" --sort-group-only-items : Display group-only items in alphabetical order\n");
printf(" --page-title=TITLE : Set a default page title for all pages\n");
printf(" --dialupskin=URL : Use a different icon skin for dialup tests\n");
printf(" --reverseskin=URL : Use a different icon skin for reverse tests\n");
printf(" --pagetitle-links : Make page- and subpage-titles act as links\n");
printf(" --pagetext-headings : Use page texts as headings\n");
printf(" --no-underline-headings : Do not underline the page headings\n");
printf("\nStatus propagation control options:\n");
printf(" --noprop=test[,test] : Disable upwards status propagation when YELLOW\n");
printf(" --nopropred=test[,test] : Disable upwards status propagation when RED or YELLOW\n");
printf(" --noproppurple=test[,test] : Disable upwards status propagation when PURPLE\n");
printf("\nAlternate pageset generation support:\n");
printf(" --pageset=SETNAME : Generate non-standard pageset with tag SETNAME\n");
printf(" --template=TEMPLATE : template for header and footer files\n");
printf("\nAlternate output formats:\n");
printf(" --wml[=test1,test2,...] : Generate a small (bb2-style) WML page\n");
printf(" --nstab=FILENAME : Generate a Netscape Sidebar feed\n");
printf(" --nslimit=COLOR : Minimum color to include on Netscape sidebar\n");
printf(" --rss : Generate a RSS/RDF feed of alerts\n");
printf(" --rssextension=.EXT : Sets filename extension for RSS files (default: .rss\n");
printf(" --rssversion={0.91|0.92|1.0|2.0} : Specify RSS/RDF version (default: 0.91)\n");
printf(" --rsslimit=COLOR : Minimum color to include on RSS feed\n");
printf("\nDebugging/troubleshooting options:\n");
printf(" --timing : Collect timing information\n");
printf(" --debug : Debugging information\n");
printf(" --version : Show version information\n");
printf(" --purplelog=FILENAME : Create a log of purple hosts and tests\n");
exit(0);
}
else if (argnmatch(argv[i], "-")) {
errprintf("Unknown option : %s\n", argv[i]);
}
else {
/* Last argument is pagedir */
pagedir = strdup(argv[i]);
}
}
/* In case they changed the name of our column ... */
if (egocolumn) setup_signalhandler(egocolumn);
if (debug) {
int i;
printf("Command: bbgen");
for (i=1; (i<argc); i++) printf(" '%s'", argv[i]);
printf("\n");
printf("Environment BBHOSTS='%s'\n", textornull(xgetenv("BBHOSTS")));
printf("\n");
}
add_timestamp("Startup");
/* Check that all needed environment vars are defined */
envcheck(reqenv);
/* Catch a SEGV fault */
setup_signalhandler("bbgen");
/* Set umask to 0022 so that the generated HTML pages have world-read access */
umask(0022);
if (pagedir == NULL) {
if (xgetenv("BBWWW")) {
pagedir = strdup(xgetenv("BBWWW"));
}
else {
pagedir = (char *) malloc(strlen(xgetenv("BBHOME"))+5);
sprintf(pagedir, "%s/www", xgetenv("BBHOME"));
}
}
if (xgetenv("BBHTACCESS")) bbhtaccess = strdup(xgetenv("BBHTACCESS"));
if (xgetenv("BBPAGEHTACCESS")) bbpagehtaccess = strdup(xgetenv("BBPAGEHTACCESS"));
if (xgetenv("BBSUBPAGEHTACCESS")) bbsubpagehtaccess = strdup(xgetenv("BBSUBPAGEHTACCESS"));
/*
* When doing alternate pagesets, disable some stuff:
* No WML or RSS pages.
*/
if (pageset || embedded || snapshot) enable_wmlgen = wantrss = 0;
if (embedded) {
egocolumn = htaccess = NULL;
/*
* Need to have default SIGPIPE handling when doing embedded stuff.
* We are probably run from a CGI script or something similar.
*/
signal(SIGPIPE, SIG_DFL);
}
/* Load all data from the various files */
load_all_links();
add_timestamp("Load links done");
pagehead = load_bbhosts(pageset);
add_timestamp("Load bbhosts done");
if (!embedded) {
/* Remove old acknowledgements */
delete_old_acks();
add_timestamp("ACK removal done");
}
statehead = load_state(&dispsums);
if (embedded || snapshot) dispsums = NULL;
add_timestamp("Load STATE done");
if (hobbitddump) {
dump_hobbitdchk();
return 0;
}
/* Calculate colors of hosts and pages */
calc_hostcolors(bb2ignorecolumns);
calc_pagecolors(pagehead);
/* Topmost page (background color for bb.html) */
for (p=pagehead; (p); p = p->next) {
if (p->color > pagehead->color) pagehead->color = p->color;
}
bb_color = pagehead->color;
if (xgetenv("SUMMARY_SET_BKG") && (strcmp(xgetenv("SUMMARY_SET_BKG"), "TRUE") == 0)) {
/*
* Displayed summaries affect the BB page only,
* but should not go into the color we report to
* others.
*/
for (s=dispsums; (s); s = s->next) {
if (s->color > pagehead->color) pagehead->color = s->color;
}
}
add_timestamp("Color calculation done");
if (debug) dumpall(pagehead);
/* Generate pages */
if (chdir(pagedir) != 0) {
errprintf("Cannot change to webpage directory %s\n", pagedir);
exit(1);
}
if (embedded) {
/* Just generate that one page */
do_one_page(pagehead, NULL, 1);
return 0;
}
/* The main page - bb.html and pages/subpages thereunder */
add_timestamp("Hobbit pagegen start");
if (reportstart && csvfile) {
csv_availability(csvfile, csvdelim);
}
else if (do_normal_pages) {
do_page_with_subs(pagehead, dispsums);
}
add_timestamp("Hobbit pagegen done");
if (reportstart) {
/* Reports end here */
return 0;
}
/* The full summary page - bb2.html */
bb2_color = do_bb2_page(nssidebarfilename, PAGE_BB2);
add_timestamp("BB2 generation done");
/* Reduced summary (alerts) page - bbnk.html */
bbnk_color = do_bb2_page(NULL, PAGE_NK);
add_timestamp("BBNK generation done");
if (snapshot) {
/* Snapshots end here */
return 0;
}
/* Send summary notices - only once, so not on pagesets */
if (pageset == NULL) {
send_summaries(sumhead);
add_timestamp("Summary transmission done");
}
/* Generate WML cards */
if (enable_wmlgen) {
do_wml_cards(pagedir);
add_timestamp("WML generation done");
}
/* Need to do this before sending in our report */
add_timestamp("Run completed");
/* Tell about us */
if (egocolumn) {
char msgline[4096];
char *timestamps;
long bbsleep = (xgetenv("BBSLEEP") ? atol(xgetenv("BBSLEEP")) : 300);
int color;
/* Go yellow if it runs for too long */
if (total_runtime() > bbsleep) {
errprintf("WARNING: Runtime %ld longer than BBSLEEP (%ld)\n", total_runtime(), bbsleep);
}
color = (errbuf ? COL_YELLOW : COL_GREEN);
combo_start();
init_status(color);
sprintf(msgline, "status %s.%s %s %s\n\n", xgetenv("MACHINE"), egocolumn, colorname(color), timestamp);
addtostatus(msgline);
sprintf(msgline, "bbgen for Hobbit version %s\n", VERSION);
addtostatus(msgline);
sprintf(msgline, "\nStatistics:\n Hosts : %5d\n Status messages : %5d\n Purple messages : %5d\n Pages : %5d\n",
hostcount, statuscount, purplecount, pagecount);
addtostatus(msgline);
if (errbuf) {
addtostatus("\n\nError output:\n");
addtostatus(errbuf);
}
show_timestamps(×tamps);
addtostatus(timestamps);
finish_status();
combo_end();
}
else show_timestamps(NULL);
return 0;
}
int cgi_refererok(char *expected)
{
static char cgi_checkstr[1024];
int isok = 0;
char *p, *httphost;
p = getenv("HTTP_REFERER");
dbgprintf(" - checking if referer is OK (http_referer: %s, http_host: %s, xymonwebhost: %s, checkstr: %s\n", textornull(p), textornull(getenv("HTTP_HOST")), textornull(xgetenv("XYMONWEBHOST")), textornull(expected));
if (!p) return 0;
/* If passed NULL, just check that there _is_ a REFERER */
if (!expected) return 1;
httphost = getenv("HTTP_HOST");
if (!httphost) {
if (strcmp(xgetenv("XYMONWEBHOST"), "http://localhost") != 0) {
/* If XYMONWEBHOST is set by the admin, use that */
snprintf(cgi_checkstr, sizeof(cgi_checkstr), "%s%s", getenv("XYMONWEBHOST"), expected);
if (strncmp(p, cgi_checkstr, strlen(cgi_checkstr)) == 0) isok = 1;
}
else {
errprintf("Disallowed request due to missing HTTP_HOST variable\n");
return 0;
}
}
else {
/* skip the protocol specifier, which HTTP_REFERER has but HTTP_HOST doesn't */
p += (strncasecmp(p, "https://", 8) == 0) ? 8 : (strncasecmp(p, "http://", 7) == 0) ? 7 : 0;
if (*p == '\0') { errprintf("Disallowed request due to unexpected referer '%s'\n", getenv("HTTP_REFERER")); return 0; }
snprintf(cgi_checkstr, sizeof(cgi_checkstr), "%s%s", httphost, expected);
if (strncmp(p, cgi_checkstr, strlen(cgi_checkstr)) == 0) isok = 1;
}
if (!isok) errprintf("Disallowed request due to unexpected referer '%s', wanted '%s' (originally '%s')\n", p, cgi_checkstr, expected);
return isok;
}
