void zos_maxuser_report(char *hostname, char *clientclass, enum ostype_t os,
void *hinfo, char *fromline, char *timestr, char *maxuserstr)
{
char *p;
char maxustr[256];
long maxusers, maxufree, maxuused, rsvtstrt, rsvtfree, rsvtused, rsvnonr, rsvnfree, rsvnused;
int maxyellow, maxred;
float maxutil, rsvtutil, rsvnutil;
int maxcolor = COL_GREEN;
char msgline[4096];
strbuffer_t *upmsg;
if (!maxuserstr) return;
/*
* Looking for eyecatchers in message
*/
p = strstr(maxuserstr, "Maxusers: ") + 9;
if (p) {
sscanf(p, "%ld Free: %ld", &maxusers, &maxufree);
}
p = strstr(maxuserstr, "RSVTSTRT: ") + 9;
if (p) {
sscanf(p, "%ld Free: %ld", &rsvtstrt, &rsvtfree);
}
p = strstr(maxuserstr, "RSVNONR: ") + 8;
if (p) {
sscanf(p, "%ld Free: %ld", &rsvnonr, &rsvnfree);
}
maxuused = maxusers - maxufree;
rsvtused = rsvtstrt - rsvtfree;
rsvnused = rsvnonr - rsvnfree;
if ( maxuused == 0.0 )
maxutil = 0;
else
maxutil = ((float)maxuused / (float)maxusers) * 100;
if ( rsvtused == 0.0 )
rsvtutil = 0;
else
rsvtutil = ((float)rsvtused / (float)rsvtstrt) * 100;
if ( rsvnused == 0.0 )
rsvnutil = 0;
else
rsvnutil = ((float)rsvnused / (float)rsvnonr) * 100;
get_asid_thresholds(hinfo, clientclass, &maxyellow, &maxred);
upmsg = newstrbuffer(0);
if ((int)maxutil > maxred) {
if (maxcolor < COL_RED) maxcolor = COL_RED;
addtobuffer(upmsg, "&red ASID (Maxuser) Utilization is CRITICAL\n");
}
else if ((int)maxutil > maxyellow) {
if (maxcolor < COL_YELLOW) maxcolor = COL_YELLOW;
addtobuffer(upmsg, "&yellow ASID (Maxuser) Utilization is HIGH\n");
}
*maxustr = '\0';
sprintf(maxustr, " Maxuser: %8ld Free: %8ld Used: %8ld %3.1f\nRSVTSTRT: %8ld Free: %8ld Used: %8ld %3.1f\n RSVNONR: %8ld Free: %8ld Used: %8ld %3.1f\n",maxusers,maxufree,maxuused,maxutil,rsvtstrt,rsvtfree,rsvtused,rsvtutil,rsvnonr,rsvnfree,rsvnused,rsvnutil);
init_status(maxcolor);
sprintf(msgline, "status %s.maxuser %s %s\n%s",
commafy(hostname), colorname(maxcolor),
(timestr ? timestr : "<no timestamp data>"),
maxustr);
addtostatus(msgline);
if (STRBUFLEN(upmsg)) {
addtostrstatus(upmsg);
addtostatus("\n");
}
if (fromline && !localmode) addtostatus(fromline);
finish_status();
freestrbuffer(upmsg);
}
void add_http_test(testitem_t *t)
{
http_data_t *httptest;
char *dnsip = NULL;
ssloptions_t *sslopt = NULL;
char *sslopt_ciphers = NULL;
int sslopt_version = SSLVERSION_DEFAULT;
char *sslopt_clientcert = NULL;
int httpversion = HTTPVER_11;
cookielist_t *ck = NULL;
int firstcookie = 1;
char *decodedurl;
strbuffer_t *httprequest = newstrbuffer(0);
/* Allocate the private data and initialize it */
httptest = (http_data_t *) calloc(1, sizeof(http_data_t));
t->privdata = (void *) httptest;
decodedurl = decode_url(t->testspec, &httptest->weburl);
if (!decodedurl) {
errprintf("Invalid URL for http check: %s\n", t->testspec);
return;
}
httptest->url = strdup(decodedurl);
httptest->contlen = -1;
httptest->parsestatus = (httptest->weburl.proxyurl ? httptest->weburl.proxyurl->parseerror : httptest->weburl.desturl->parseerror);
/* If there was a parse error in the URL, dont run the test */
if (httptest->parsestatus) return;
if (httptest->weburl.proxyurl && (httptest->weburl.proxyurl->ip == NULL)) {
dnsip = dnsresolve(httptest->weburl.proxyurl->host);
if (dnsip) {
httptest->weburl.proxyurl->ip = strdup(dnsip);
}
else {
dbgprintf("Could not resolve URL hostname '%s'\n", httptest->weburl.proxyurl->host);
}
}
else if (httptest->weburl.desturl->ip == NULL) {
dnsip = dnsresolve(httptest->weburl.desturl->host);
if (dnsip) {
httptest->weburl.desturl->ip = strdup(dnsip);
}
else {
dbgprintf("Could not resolve URL hostname '%s'\n", httptest->weburl.desturl->host);
}
}
switch (httptest->weburl.testtype) {
case WEBTEST_PLAIN:
case WEBTEST_STATUS:
httptest->contentcheck = CONTENTCHECK_NONE;
break;
case WEBTEST_CONTENT:
{
FILE *contentfd;
char contentfn[PATH_MAX];
sprintf(contentfn, "%s/content/%s.substring", xgetenv("XYMONHOME"), commafy(t->host->hostname));
contentfd = fopen(contentfn, "r");
if (contentfd) {
char l[MAX_LINE_LEN];
char *p;
if (fgets(l, sizeof(l), contentfd)) {
p = strchr(l, '\n'); if (p) { *p = '\0'; };
httptest->weburl.expdata = strdup(l);
}
else {
httptest->contstatus = STATUS_CONTENTMATCH_NOFILE;
}
fclose(contentfd);
}
else {
httptest->contstatus = STATUS_CONTENTMATCH_NOFILE;
}
httptest->contentcheck = CONTENTCHECK_REGEX;
}
break;
case WEBTEST_CONT:
httptest->contentcheck = ((*httptest->weburl.expdata == '#') ? CONTENTCHECK_DIGEST : CONTENTCHECK_REGEX);
break;
case WEBTEST_NOCONT:
httptest->contentcheck = CONTENTCHECK_NOREGEX;
break;
case WEBTEST_POST:
case WEBTEST_SOAP:
if (httptest->weburl.expdata == NULL) {
httptest->contentcheck = CONTENTCHECK_NONE;
}
else {
httptest->contentcheck = ((*httptest->weburl.expdata == '#') ? CONTENTCHECK_DIGEST : CONTENTCHECK_REGEX);
}
break;
case WEBTEST_NOPOST:
case WEBTEST_NOSOAP:
if (httptest->weburl.expdata == NULL) {
httptest->contentcheck = CONTENTCHECK_NONE;
}
else {
httptest->contentcheck = CONTENTCHECK_NOREGEX;
}
break;
case WEBTEST_TYPE:
httptest->contentcheck = CONTENTCHECK_CONTENTTYPE;
break;
}
/* Compile the hashes and regex's for those tests that use it */
switch (httptest->contentcheck) {
case CONTENTCHECK_DIGEST:
{
char *hashfunc;
httptest->exp = (void *) strdup(httptest->weburl.expdata+1);
hashfunc = strchr(httptest->exp, ':');
if (hashfunc) {
*hashfunc = '\0';
httptest->digestctx = digest_init(httptest->exp);
*hashfunc = ':';
}
}
break;
case CONTENTCHECK_REGEX:
case CONTENTCHECK_NOREGEX:
{
int status;
httptest->exp = (void *) malloc(sizeof(regex_t));
status = regcomp((regex_t *)httptest->exp, httptest->weburl.expdata, REG_EXTENDED|REG_NOSUB);
if (status) {
errprintf("Failed to compile regexp '%s' for URL %s\n", httptest->weburl.expdata, httptest->url);
httptest->contstatus = STATUS_CONTENTMATCH_BADREGEX;
}
}
break;
case CONTENTCHECK_CONTENTTYPE:
httptest->exp = httptest->weburl.expdata;
break;
}
if (httptest->weburl.desturl->schemeopts) {
if (strstr(httptest->weburl.desturl->schemeopts, "3")) sslopt_version = SSLVERSION_V3;
else if (strstr(httptest->weburl.desturl->schemeopts, "2")) sslopt_version = SSLVERSION_V2;
if (strstr(httptest->weburl.desturl->schemeopts, "h")) sslopt_ciphers = ciphershigh;
else if (strstr(httptest->weburl.desturl->schemeopts, "m")) sslopt_ciphers = ciphersmedium;
if (strstr(httptest->weburl.desturl->schemeopts, "10")) httpversion = HTTPVER_10;
else if (strstr(httptest->weburl.desturl->schemeopts, "11")) httpversion = HTTPVER_11;
}
/* Get any cookies */
load_cookies();
/* Generate the request */
addtobuffer(httprequest, (httptest->weburl.postdata ? "POST " : "GET "));
switch (httpversion) {
case HTTPVER_10:
addtobuffer(httprequest, (httptest->weburl.proxyurl ? httptest->url : httptest->weburl.desturl->relurl));
addtobuffer(httprequest, " HTTP/1.0\r\n");
break;
case HTTPVER_11:
/*
* Experience shows that even though HTTP/1.1 says you should send the
* full URL, some servers (e.g. SunOne App server 7) choke on it.
* So just send the good-old relative URL unless we're proxying.
*/
addtobuffer(httprequest, (httptest->weburl.proxyurl ? httptest->url : httptest->weburl.desturl->relurl));
addtobuffer(httprequest, " HTTP/1.1\r\n");
addtobuffer(httprequest, "Connection: close\r\n");
break;
}
addtobuffer(httprequest, "Host: ");
addtobuffer(httprequest, httptest->weburl.desturl->host);
if ((httptest->weburl.desturl->port != 80) && (httptest->weburl.desturl->port != 443)) {
char hostporthdr[20];
sprintf(hostporthdr, ":%d", httptest->weburl.desturl->port);
addtobuffer(httprequest, hostporthdr);
}
addtobuffer(httprequest, "\r\n");
if (httptest->weburl.postdata) {
char hdr[100];
int contlen = strlen(httptest->weburl.postdata);
if (strncmp(httptest->weburl.postdata, "file:", 5) == 0) {
/* Load the POST data from a file */
FILE *pf = fopen(httptest->weburl.postdata+5, "r");
if (pf == NULL) {
errprintf("Cannot open POST data file %s\n", httptest->weburl.postdata+5);
xfree(httptest->weburl.postdata);
httptest->weburl.postdata = strdup("");
contlen = 0;
}
else {
struct stat st;
if (fstat(fileno(pf), &st) == 0) {
int n;
xfree(httptest->weburl.postdata);
httptest->weburl.postdata = (char *)malloc(st.st_size + 1); *(httptest->weburl.postdata) = '\0';
n = fread(httptest->weburl.postdata, 1, st.st_size, pf);
if (n == st.st_size) {
*(httptest->weburl.postdata+n) = '\0';
contlen = n;
}
else {
errprintf("Cannot read file %s: %s\n", httptest->weburl.postdata+5, strerror(errno));
contlen = 0;
}
}
else {
errprintf("Cannot stat file %s\n", httptest->weburl.postdata+5);
httptest->weburl.postdata = strdup("");
contlen = 0;
}
fclose(pf);
}
}
addtobuffer(httprequest, "Content-type: ");
if (httptest->weburl.postcontenttype)
addtobuffer(httprequest, httptest->weburl.postcontenttype);
else if ((httptest->weburl.testtype == WEBTEST_SOAP) || (httptest->weburl.testtype == WEBTEST_NOSOAP))
addtobuffer(httprequest, "application/soap+xml; charset=utf-8");
else
addtobuffer(httprequest, "application/x-www-form-urlencoded");
addtobuffer(httprequest, "\r\n");
sprintf(hdr, "Content-Length: %d\r\n", contlen);
addtobuffer(httprequest, hdr);
}
{
char useragent[100];
void *hinfo;
char *browser = NULL;
hinfo = hostinfo(t->host->hostname);
if (hinfo) browser = xmh_item(hinfo, XMH_BROWSER);
if (browser) {
sprintf(useragent, "User-Agent: %s\r\n", browser);
}
else {
sprintf(useragent, "User-Agent: Xymon xymonnet/%s\r\n", VERSION);
}
addtobuffer(httprequest, useragent);
}
if (httptest->weburl.desturl->auth) {
if (strncmp(httptest->weburl.desturl->auth, "CERT:", 5) == 0) {
sslopt_clientcert = httptest->weburl.desturl->auth+5;
}
else {
addtobuffer(httprequest, "Authorization: Basic ");
addtobuffer(httprequest, base64encode(httptest->weburl.desturl->auth));
addtobuffer(httprequest, "\r\n");
}
}
if (httptest->weburl.proxyurl && httptest->weburl.proxyurl->auth) {
addtobuffer(httprequest, "Proxy-Authorization: Basic ");
addtobuffer(httprequest, base64encode(httptest->weburl.proxyurl->auth));
addtobuffer(httprequest, "\r\n");
}
for (ck = cookiehead; (ck); ck = ck->next) {
int useit = 0;
if (ck->tailmatch) {
int startpos = strlen(httptest->weburl.desturl->host) - strlen(ck->host);
if (startpos > 0) useit = (strcmp(httptest->weburl.desturl->host+startpos, ck->host) == 0);
}
else useit = (strcmp(httptest->weburl.desturl->host, ck->host) == 0);
if (useit) useit = (strncmp(ck->path, httptest->weburl.desturl->relurl, strlen(ck->path)) == 0);
if (useit) {
if (firstcookie) {
addtobuffer(httprequest, "Cookie: ");
firstcookie = 0;
}
addtobuffer(httprequest, ck->name);
addtobuffer(httprequest, "=");
addtobuffer(httprequest, ck->value);
addtobuffer(httprequest, "\r\n");
}
}
/* Some standard stuff */
addtobuffer(httprequest, "Accept: */*\r\n");
addtobuffer(httprequest, "Pragma: no-cache\r\n");
if ((httptest->weburl.testtype == WEBTEST_SOAP) || (httptest->weburl.testtype == WEBTEST_NOSOAP)) {
/* Must provide a SOAPAction header */
addtobuffer(httprequest, "SOAPAction: ");
addtobuffer(httprequest, httptest->url);
addtobuffer(httprequest, "\r\n");
}
/* The final blank line terminates the headers */
addtobuffer(httprequest, "\r\n");
/* Post data goes last */
if (httptest->weburl.postdata) addtobuffer(httprequest, httptest->weburl.postdata);
/* Pickup any SSL options the user wants */
if (sslopt_ciphers || (sslopt_version != SSLVERSION_DEFAULT) || sslopt_clientcert){
sslopt = (ssloptions_t *) malloc(sizeof(ssloptions_t));
sslopt->cipherlist = sslopt_ciphers;
sslopt->sslversion = sslopt_version;
sslopt->clientcert = sslopt_clientcert;
}
/* Add to TCP test queue */
if (httptest->weburl.proxyurl == NULL) {
httptest->tcptest = add_tcp_test(httptest->weburl.desturl->ip,
httptest->weburl.desturl->port,
httptest->weburl.desturl->scheme,
sslopt, t->srcip,
t->testspec, t->silenttest, grabstrbuffer(httprequest),
httptest, tcp_http_data_callback, tcp_http_final_callback);
}
else {
httptest->tcptest = add_tcp_test(httptest->weburl.proxyurl->ip,
httptest->weburl.proxyurl->port,
httptest->weburl.proxyurl->scheme,
sslopt, t->srcip,
t->testspec, t->silenttest, grabstrbuffer(httprequest),
httptest, tcp_http_data_callback, tcp_http_final_callback);
}
}
void zos_jobs_report(char *hostname, char *clientclass, enum ostype_t os,
void *hinfo, char *fromline, char *timestr,
char *psstr)
{
int pscolor = COL_GREEN;
int pchecks;
int cmdofs = -1;
char msgline[4096];
strbuffer_t *monmsg;
static strbuffer_t *countdata = NULL;
int anycountdata = 0;
char *group;
if (!want_msgtype(hinfo, MSG_PROCS)) return;
if (!psstr) return;
if (!countdata) countdata = newstrbuffer(0);
clearalertgroups();
monmsg = newstrbuffer(0);
sprintf(msgline, "data %s.proccounts\n", commafy(hostname));
addtobuffer(countdata, msgline);
cmdofs = 0; /* Command offset for z/OS isn't necessary */
pchecks = clear_process_counts(hinfo, clientclass);
if (pchecks == 0) {
/* Nothing to check */
sprintf(msgline, "&%s No process checks defined\n", colorname(noreportcolor));
addtobuffer(monmsg, msgline);
pscolor = noreportcolor;
}
else if (cmdofs >= 0) {
/* Count how many instances of each monitored process is running */
char *pname, *pid, *bol, *nl;
int pcount, pmin, pmax, pcolor, ptrack;
bol = psstr;
while (bol) {
nl = strchr(bol, '\n');
/* Take care - the ps output line may be shorter than what we look at */
if (nl) {
*nl = '\0';
if ((nl-bol) > cmdofs) add_process_count(bol+cmdofs);
*nl = '\n';
bol = nl+1;
}
else {
if (strlen(bol) > cmdofs) add_process_count(bol+cmdofs);
bol = NULL;
}
}
/* Check the number found for each monitored process */
while ((pname = check_process_count(&pcount, &pmin, &pmax, &pcolor, &pid, &ptrack, &group)) != NULL) {
char limtxt[1024];
if (pmax == -1) {
if (pmin > 0) sprintf(limtxt, "%d or more", pmin);
else if (pmin == 0) sprintf(limtxt, "none");
}
else {
if (pmin > 0) sprintf(limtxt, "between %d and %d", pmin, pmax);
else if (pmin == 0) sprintf(limtxt, "at most %d", pmax);
}
if (pcolor == COL_GREEN) {
sprintf(msgline, "&green %s (found %d, req. %s)\n", pname, pcount, limtxt);
addtobuffer(monmsg, msgline);
}
else {
if (pcolor > pscolor) pscolor = pcolor;
sprintf(msgline, "&%s %s (found %d, req. %s)\n",
colorname(pcolor), pname, pcount, limtxt);
addtobuffer(monmsg, msgline);
addalertgroup(group);
}
if (ptrack) {
/* Save the count data for later DATA message to track process counts */
if (!pid) pid = "default";
sprintf(msgline, "%s:%u\n", pid, pcount);
addtobuffer(countdata, msgline);
anycountdata = 1;
}
}
}
else {
pscolor = COL_YELLOW;
sprintf(msgline, "&yellow Expected string not found in ps output header\n");
addtobuffer(monmsg, msgline);
}
/* Now we know the result, so generate a status message */
init_status(pscolor);
group = getalertgroups();
if (group) sprintf(msgline, "status/group:%s ", group); else strcpy(msgline, "status ");
addtostatus(msgline);
sprintf(msgline, "%s.procs %s %s - Processes %s\n",
commafy(hostname), colorname(pscolor),
(timestr ? timestr : "<No timestamp data>"),
((pscolor == COL_GREEN) ? "OK" : "NOT ok"));
addtostatus(msgline);
/* And add the info about what's wrong */
if (STRBUFLEN(monmsg)) {
addtostrstatus(monmsg);
addtostatus("\n");
}
/* And the full list of jobs for those who want it */
if (pslistinprocs) {
/*
* Format the list of virtual machines into four per line,
* this list could be fairly long.
*/
char *tmpstr, *tok;
/* Make a copy of psstr, strtok() will be changing it */
tmpstr = strdup(psstr);
/* Use strtok() to split string into pieces delimited by newline */
tok = strtok(tmpstr, "\n");
while (tok) {
sprintf(msgline, "%s\n", tok);
addtostatus(msgline);
tok = strtok(NULL, "\n");
}
free(tmpstr);
}
if (fromline && !localmode) addtostatus(fromline);
finish_status();
freestrbuffer(monmsg);
if (anycountdata) combo_add(countdata);
clearstrbuffer(countdata);
}
static void zos_cics_report(char *hostname, char *clientclass, enum ostype_t os,
void *hinfo, char *fromline, char *timestr, char *cicsstr)
{
char cicsappl[9], cicsdate[11], cicstime[9];
int numtrans=0, cicsok=1;
float dsapct=0.0;
float edsapct=0.0;
char cicsresult[100];
char tempresult[100];
char *cicsentry = NULL;
int cicscolor = COL_GREEN;
int dsayel, dsared, edsayel, edsared;
char msgline[4096];
char cicsokmsg[]="All CICS Systems OK";
char cicsnotokmsg[]="One or more CICS Systems not OK";
strbuffer_t *headline;
strbuffer_t *upmsg;
strbuffer_t *cicsmsg;
if (!cicsstr) return;
cicsmsg = newstrbuffer(0);
upmsg = newstrbuffer(0);
headline= newstrbuffer(0);
addtobuffer(headline, "Appl ID Trans DSA Pct EDSA Pct\n");
/*
*
* Each CICS system reporting uses one line in the message, the format is:
* applid date time numtrans dsapct edsapct
* applid is the CICS application id
* date and time are the date and time of the report
* numtrans is the number of transactions that were executed in CICS since the last report
* dsapct is the DSA utilization percentage
* edsapct is the EDSA utilization percentage
*
*/
if (cicsstr) {
cicsentry=strtok(cicsstr, "\n");
while (cicsentry != NULL) {
sscanf(cicsentry, "%8s %10s %8s %d %f %f", cicsappl, cicsdate, cicstime, &numtrans, &dsapct, &edsapct);
sprintf(cicsresult,"%-8s %6d %3.1f %3.1f\n", cicsappl, numtrans, dsapct, edsapct);
addtobuffer(cicsmsg, cicsresult);
if (numtrans == -1 ) {
if (cicscolor < COL_YELLOW) cicscolor = COL_YELLOW;
cicsok=0;
sprintf(tempresult,"&yellow CICS system %s not responding, removed\n", cicsappl);
addtobuffer(upmsg, tempresult);
}
/* Get CICS thresholds for this application ID. */
get_cics_thresholds(hinfo, clientclass, cicsappl, &dsayel, &dsared, &edsayel, &edsared);
/* The threshold of the DSA values for each CICS must be checked in this loop. */
if (dsapct > dsared) {
if (cicscolor < COL_RED) cicscolor = COL_RED;
cicsok=0;
sprintf(tempresult,"&red %s DSA Utilization is CRITICAL\n", cicsappl);
addtobuffer(upmsg, tempresult);
}
else if (dsapct > dsayel) {
if (cicscolor < COL_YELLOW) cicscolor = COL_YELLOW;
cicsok=0;
sprintf(tempresult,"&yellow %s DSA Utilization is HIGH\n", cicsappl);
addtobuffer(upmsg, tempresult);
}
if (edsapct > edsared) {
if (cicscolor < COL_RED) cicscolor = COL_RED;
cicsok=0;
sprintf(tempresult,"&red %s EDSA Utilization is CRITICAL\n", cicsappl);
addtobuffer(upmsg, tempresult);
}
else if (edsapct > edsayel) {
if (cicscolor < COL_YELLOW) cicscolor = COL_YELLOW;
cicsok=0;
sprintf(tempresult,"&yellow %s EDSA Utilization is HIGH\n", cicsappl);
addtobuffer(upmsg, tempresult);
}
init_status(cicscolor);
cicsentry=strtok(NULL, "\n");
}
}
sprintf(msgline, "status %s.cics %s %s %s\n",
commafy(hostname), colorname(cicscolor),
(timestr ? timestr : "<no timestamp data>"),
( (cicsok==1) ? cicsokmsg : cicsnotokmsg) );
addtostatus(msgline);
if (STRBUFLEN(upmsg)) {
addtostrstatus(upmsg);
}
if (STRBUFLEN(cicsmsg)) {
addtostrstatus(headline);
addtostrstatus(cicsmsg);
addtostatus("\n");
}
if (fromline && !localmode) addtostatus(fromline);
finish_status();
freestrbuffer(headline);
freestrbuffer(upmsg);
freestrbuffer(cicsmsg);
}
void zos_memory_report(char *hostname, char *clientclass, enum ostype_t os,
void *hinfo, char *fromline, char *timestr, char *memstr)
{
char *p;
char headstr[100], csastr[100], ecsastr[100], sqastr[100], esqastr[100];
long csaalloc, csaused, csahwm, ecsaalloc, ecsaused, ecsahwm;
long sqaalloc, sqaused, sqahwm, esqaalloc, esqaused, esqahwm;
float csautil, ecsautil, sqautil, esqautil;
int csayellow, csared, ecsayellow, ecsared, sqayellow, sqared, esqayellow, esqared;
int memcolor = COL_GREEN;
char msgline[4096];
strbuffer_t *upmsg;
if (!memstr) return;
/*
* Looking for memory eyecatchers in message
*/
p = strstr(memstr, "CSA ") + 4;
if (p) {
sscanf(p, "%ld %ld %ld", &csaalloc, &csaused, &csahwm);
}
p = strstr(memstr, "ECSA ") + 5;
if (p) {
sscanf(p, "%ld %ld %ld", &ecsaalloc, &ecsaused, &ecsahwm);
}
p = strstr(memstr, "SQA ") + 4;
if (p) {
sscanf(p, "%ld %ld %ld", &sqaalloc, &sqaused, &sqahwm);
}
p = strstr(memstr, "ESQA ") + 5;
if (p) {
sscanf(p, "%ld %ld %ld", &esqaalloc, &esqaused, &esqahwm);
}
csautil = ((float)csaused / (float)csaalloc) * 100;
ecsautil = ((float)ecsaused / (float)ecsaalloc) * 100;
sqautil = ((float)sqaused / (float)sqaalloc) * 100;
esqautil = ((float)esqaused / (float)esqaalloc) * 100;
get_zos_memory_thresholds(hinfo, clientclass, &csayellow, &csared, &ecsayellow, &ecsared, &sqayellow, &sqared, &esqayellow, &esqared);
upmsg = newstrbuffer(0);
if (csautil > csared) {
if (memcolor < COL_RED) memcolor = COL_RED;
addtobuffer(upmsg, "&red CSA Utilization is CRITICAL\n");
}
else if (csautil > csayellow) {
if (memcolor < COL_YELLOW) memcolor = COL_YELLOW;
addtobuffer(upmsg, "&yellow CSA Utilization is HIGH\n");
}
if (ecsautil > ecsared) {
if (memcolor < COL_RED) memcolor = COL_RED;
addtobuffer(upmsg, "&red ECSA Utilization is CRITICAL\n");
}
else if (ecsautil > ecsayellow) {
if (memcolor < COL_YELLOW) memcolor = COL_YELLOW;
addtobuffer(upmsg, "&yellow ECSA Utilization is HIGH\n");
}
if (sqautil > sqared) {
if (memcolor < COL_RED) memcolor = COL_RED;
addtobuffer(upmsg, "&red SQA Utilization is CRITICAL\n");
}
else if (sqautil > sqayellow) {
if (memcolor < COL_YELLOW) memcolor = COL_YELLOW;
addtobuffer(upmsg, "&yellow SQA Utilization is HIGH\n");
}
if (esqautil > esqared) {
if (memcolor < COL_RED) memcolor = COL_RED;
addtobuffer(upmsg, "&red ESQA Utilization is CRITICAL\n");
}
else if (esqautil > esqayellow) {
if (memcolor < COL_YELLOW) memcolor = COL_YELLOW;
addtobuffer(upmsg, "&yellow ESQA Utilization is HIGH\n");
}
*headstr = '\0';
*csastr = '\0';
*ecsastr = '\0';
*sqastr = '\0';
*esqastr = '\0';
strcpy(headstr, "z/OS Memory Map\n Area Alloc Used HWM Util%\n");
sprintf(csastr, "CSA %8ld %8ld %8ld %3.1f\n", csaalloc, csaused, csahwm, csautil);
sprintf(ecsastr, "ECSA %8ld %8ld %8ld %3.1f\n", ecsaalloc, ecsaused, ecsahwm, ecsautil);
sprintf(sqastr, "SQA %8ld %8ld %8ld %3.1f\n", sqaalloc, sqaused, sqahwm, sqautil);
sprintf(esqastr, "ESQA %8ld %8ld %8ld %3.1f\n", esqaalloc, esqaused, esqahwm, esqautil);
init_status(memcolor);
sprintf(msgline, "status %s.memory %s %s\n%s %s %s %s %s",
commafy(hostname), colorname(memcolor),
(timestr ? timestr : "<no timestamp data>"),
headstr, csastr, ecsastr, sqastr, esqastr);
addtostatus(msgline);
if (STRBUFLEN(upmsg)) {
addtostrstatus(upmsg);
addtostatus("\n");
}
if (fromline && !localmode) addtostatus(fromline);
finish_status();
freestrbuffer(upmsg);
}
void zos_cpu_report(char *hostname, char *clientclass, enum ostype_t os,
void *hinfo, char *fromline, char *timestr,
char *cpuutilstr, char *uptimestr)
{
char *p;
float load1, loadyellow, loadred;
int recentlimit, ancientlimit, uptimecolor, maxclockdiff, clockdiffcolor;
int uphour, upmin;
char loadresult[100];
char myupstr[100];
long uptimesecs = -1;
long upday;
int cpucolor = COL_GREEN;
char msgline[4096];
strbuffer_t *upmsg;
if (!want_msgtype(hinfo, MSG_CPU)) return;
if (!uptimestr) return;
if (!cpuutilstr) return;
uptimesecs = 0;
/*
* z/OS: "Uptime: 1 Days, 13 Hours, 38 Minutes"
*/
sscanf(uptimestr,"Uptime: %ld Days, %d Hours, %d Minutes", &upday, &uphour, &upmin);
uptimesecs = upday * 86400;
uptimesecs += 60*(60*uphour + upmin);
sprintf(myupstr, "%s\n", uptimestr);
/*
* Looking for average CPU Utilization in CPU message
* CPU Utilization=000%
*/
*loadresult = '\0';
p = strstr(cpuutilstr, "CPU Utilization ") + 16 ;
if (p) {
if (sscanf(p, "%f%%", &load1) == 1) {
sprintf(loadresult, "z/OS CPU Utilization %3.0f%%\n", load1);
}
}
get_cpu_thresholds(hinfo, clientclass, &loadyellow, &loadred, &recentlimit, &ancientlimit, &uptimecolor, &maxclockdiff, &clockdiffcolor);
upmsg = newstrbuffer(0);
if (load1 > loadred) {
cpucolor = COL_RED;
addtobuffer(upmsg, "&red Load is CRITICAL\n");
}
else if (load1 > loadyellow) {
cpucolor = COL_YELLOW;
addtobuffer(upmsg, "&yellow Load is HIGH\n");
}
if ((uptimesecs != -1) && (recentlimit != -1) && (uptimesecs < recentlimit)) {
if (cpucolor != COL_RED) cpucolor = uptimecolor;
sprintf(msgline, "&%s Machine recently rebooted\n", colorname(uptimecolor));
addtobuffer(upmsg, msgline);
}
if ((uptimesecs != -1) && (ancientlimit != -1) && (uptimesecs > ancientlimit)) {
if (cpucolor != COL_RED) cpucolor = uptimecolor;
sprintf(msgline, "&%s Machine has been up more than %d days\n", colorname(uptimecolor), (ancientlimit / 86400));
addtobuffer(upmsg, msgline);
}
init_status(cpucolor);
sprintf(msgline, "status %s.cpu %s %s %s %s %s\n",
commafy(hostname), colorname(cpucolor),
(timestr ? timestr : "<no timestamp data>"),
loadresult,
myupstr,
cpuutilstr);
addtostatus(msgline);
if (STRBUFLEN(upmsg)) {
addtostrstatus(upmsg);
addtostatus("\n");
}
if (fromline && !localmode) addtostatus(fromline);
finish_status();
freestrbuffer(upmsg);
}
int main(int argc, char *argv[])
{
char *filedir = NULL;
char *htmldir = NULL;
char *htmlextension = "html";
char *onlytests = NULL;
char *msg;
enum role_t role = ROLE_STATUS;
enum msgchannels_t chnid = C_STATUS;
int argi;
int seq;
int running = 1;
/* Dont save the error buffer */
save_errbuf = 0;
for (argi = 1; (argi < argc); argi++) {
if (strcmp(argv[argi], "--status") == 0) {
role = ROLE_STATUS;
chnid = C_STATUS;
if (!filedir) filedir = xgetenv("XYMONRAWSTATUSDIR");
}
else if (strcmp(argv[argi], "--html") == 0) {
role = ROLE_STATUS;
chnid = C_STATUS;
if (!htmldir) htmldir = xgetenv("XYMONHTMLSTATUSDIR");
}
else if (strcmp(argv[argi], "--data") == 0) {
role = ROLE_DATA;
chnid = C_DATA;
if (!filedir) filedir = xgetenv("XYMONDATADIR");
}
else if (strcmp(argv[argi], "--notes") == 0) {
role = ROLE_NOTES;
chnid = C_NOTES;
if (!filedir) filedir = xgetenv("XYMONNOTESDIR");
}
else if (strcmp(argv[argi], "--enadis") == 0) {
role = ROLE_ENADIS;
chnid = C_ENADIS;
if (!filedir) filedir = xgetenv("XYMONDISABLEDDIR");
}
else if (strcmp(argv[argi], "--debug") == 0) {
debug = 1;
}
else if (argnmatch(argv[argi], "--dir=")) {
filedir = strchr(argv[argi], '=')+1;
}
else if (argnmatch(argv[argi], "--htmldir=")) {
htmldir = strchr(argv[argi], '=')+1;
}
else if (argnmatch(argv[argi], "--htmlext=")) {
htmlextension = strchr(argv[argi], '=')+1;
}
else if (argnmatch(argv[argi], "--only=")) {
char *p = strchr(argv[argi], '=') + 1;
onlytests = (char *)malloc(3 + strlen(p));
sprintf(onlytests, ",%s,", p);
}
else if (argnmatch(argv[argi], "--multigraphs=")) {
char *p = strchr(argv[argi], '=');
multigraphs = (char *)malloc(strlen(p+1) + 3);
sprintf(multigraphs, ",%s,", p+1);
}
else if (argnmatch(argv[argi], "--locator=")) {
char *p = strchr(argv[argi], '=');
locator_init(p+1);
locatorbased = 1;
}
}
if (filedir == NULL) {
errprintf("No directory given, aborting\n");
return 1;
}
/* For picking up lost children */
setup_signalhandler("xymond_filestore");
signal(SIGPIPE, SIG_DFL);
if (onlytests) dbgprintf("Storing tests '%s' only\n", onlytests);
else dbgprintf("Storing all tests\n");
while (running) {
char *metadata[20] = { NULL, };
char *statusdata = "";
char *p;
int metacount;
char *hostname, *testname;
time_t expiretime = 0;
char logfn[PATH_MAX];
MEMDEFINE(logfn);
msg = get_xymond_message(chnid, "filestore", &seq, NULL);
if (msg == NULL) {
running = 0;
MEMUNDEFINE(logfn);
continue;
}
p = strchr(msg, '\n');
if (p) {
*p = '\0';
statusdata = p+1;
}
metacount = 0;
memset(&metadata, 0, sizeof(metadata));
p = gettok(msg, "|");
while (p && (metacount < 20)) {
metadata[metacount++] = p;
p = gettok(NULL, "|");
}
if ((role == ROLE_STATUS) && (metacount >= 14) && (strncmp(metadata[0], "@@status", 8) == 0)) {
/* @@status|timestamp|sender|origin|hostname|testname|expiretime|color|testflags|prevcolor|changetime|ackexpiretime|ackmessage|disableexpiretime|disablemessage|clientmsgtstamp|flapping */
int ltime, flapping = 0;
time_t logtime = 0, timesincechange = 0, acktime = 0, disabletime = 0;
hostname = metadata[4];
testname = metadata[5];
if (!wantedtest(onlytests, testname)) {
dbgprintf("Status dropped - not wanted\n");
MEMUNDEFINE(logfn);
continue;
}
sprintf(logfn, "%s/%s.%s", filedir, commafy(hostname), testname);
expiretime = atoi(metadata[6]);
statusdata = msg_data(statusdata);
sscanf(metadata[1], "%d.%*d", <ime); logtime = ltime;
timesincechange = logtime - atoi(metadata[10]);
update_file(logfn, "w", statusdata, expiretime, metadata[2], timesincechange, seq);
if (htmldir) {
char *ackmsg = NULL;
char *dismsg = NULL;
char htmllogfn[PATH_MAX];
MEMDEFINE(htmllogfn);
if (metadata[11]) acktime = atoi(metadata[11]);
if (metadata[12] && strlen(metadata[12])) ackmsg = metadata[12];
if (ackmsg) nldecode(ackmsg);
if (metadata[13]) disabletime = atoi(metadata[13]);
if (metadata[14] && strlen(metadata[14]) && (disabletime > 0)) dismsg = metadata[14];
if (dismsg) nldecode(dismsg);
flapping = (metadata[16] ? (*metadata[16] == '1') : 0);
sprintf(htmllogfn, "%s/%s.%s.%s", htmldir, hostname, testname, htmlextension);
update_htmlfile(htmllogfn, statusdata, hostname, testname, parse_color(metadata[7]), flapping,
metadata[2], metadata[8], logtime, timesincechange,
acktime, ackmsg,
disabletime, dismsg);
MEMUNDEFINE(htmllogfn);
}
}
else if ((role == ROLE_DATA) && (metacount > 5) && (strncmp(metadata[0], "@@data", 6) == 0)) {
/* @@data|timestamp|sender|hostname|testname */
p = hostname = metadata[4]; while ((p = strchr(p, '.')) != NULL) *p = ',';
testname = metadata[5];
if (!wantedtest(onlytests, testname)) {
dbgprintf("data dropped - not wanted\n");
MEMUNDEFINE(logfn);
continue;
}
statusdata = msg_data(statusdata); if (*statusdata == '\n') statusdata++;
sprintf(logfn, "%s/%s.%s", filedir, hostname, testname);
expiretime = 0;
update_file(logfn, "a", statusdata, expiretime, NULL, -1, seq);
}
else if ((role == ROLE_NOTES) && (metacount > 3) && (strncmp(metadata[0], "@@notes", 7) == 0)) {
/* @@notes|timestamp|sender|hostname */
hostname = metadata[3];
statusdata = msg_data(statusdata); if (*statusdata == '\n') statusdata++;
sprintf(logfn, "%s/%s", basename(filedir), hostname);
expiretime = 0;
update_file(logfn, "w", statusdata, expiretime, NULL, -1, seq);
}
else if ((role == ROLE_ENADIS) && (metacount > 5) && (strncmp(metadata[0], "@@enadis", 8) == 0)) {
/* @@enadis|timestamp|sender|hostname|testname|expiretime */
p = hostname = metadata[3]; while ((p = strchr(p, '.')) != NULL) *p = ',';
testname = metadata[4];
expiretime = atoi(metadata[5]);
sprintf(logfn, "%s/%s.%s", filedir, hostname, testname);
update_enable(logfn, expiretime);
}
else if (((role == ROLE_STATUS) || (role == ROLE_DATA) || (role == ROLE_ENADIS)) && (metacount > 3) && (strncmp(metadata[0], "@@drophost", 10) == 0)) {
/* @@drophost|timestamp|sender|hostname */
DIR *dirfd;
struct dirent *de;
char *hostlead;
p = hostname = metadata[3]; while ((p = strchr(p, '.')) != NULL) *p = ',';
hostlead = malloc(strlen(hostname) + 2);
strcpy(hostlead, hostname); strcat(hostlead, ".");
dirfd = opendir(filedir);
if (dirfd) {
while ( (de = readdir(dirfd)) != NULL) {
if (strncmp(de->d_name, hostlead, strlen(hostlead)) == 0) {
sprintf(logfn, "%s/%s", filedir, de->d_name);
unlink(logfn);
}
}
closedir(dirfd);
}
xfree(hostlead);
}
else if (((role == ROLE_STATUS) || (role == ROLE_DATA) || (role == ROLE_ENADIS)) && (metacount > 4) && (strncmp(metadata[0], "@@droptest", 10) == 0)) {
/* @@droptest|timestamp|sender|hostname|testname */
p = hostname = metadata[3]; while ((p = strchr(p, '.')) != NULL) *p = ',';
testname = metadata[4];
sprintf(logfn, "%s/%s.%s", filedir, hostname, testname);
unlink(logfn);
}
else if (((role == ROLE_STATUS) || (role == ROLE_DATA) || (role == ROLE_ENADIS)) && (metacount > 4) && (strncmp(metadata[0], "@@renamehost", 12) == 0)) {
/* @@renamehost|timestamp|sender|hostname|newhostname */
DIR *dirfd;
struct dirent *de;
char *hostlead;
char *newhostname;
char newlogfn[PATH_MAX];
MEMDEFINE(newlogfn);
p = hostname = metadata[3]; while ((p = strchr(p, '.')) != NULL) *p = ',';
hostlead = malloc(strlen(hostname) + 2);
strcpy(hostlead, hostname); strcat(hostlead, ".");
p = newhostname = metadata[4]; while ((p = strchr(p, '.')) != NULL) *p = ',';
dirfd = opendir(filedir);
if (dirfd) {
while ( (de = readdir(dirfd)) != NULL) {
if (strncmp(de->d_name, hostlead, strlen(hostlead)) == 0) {
char *testname = strchr(de->d_name, '.');
sprintf(logfn, "%s/%s", filedir, de->d_name);
sprintf(newlogfn, "%s/%s%s", filedir, newhostname, testname);
rename(logfn, newlogfn);
}
}
closedir(dirfd);
}
xfree(hostlead);
MEMUNDEFINE(newlogfn);
}
else if (((role == ROLE_STATUS) || (role == ROLE_DATA) || (role == ROLE_ENADIS)) && (metacount > 5) && (strncmp(metadata[0], "@@renametest", 12) == 0)) {
/* @@renametest|timestamp|sender|hostname|oldtestname|newtestname */
char *newtestname;
char newfn[PATH_MAX];
MEMDEFINE(newfn);
p = hostname = metadata[3]; while ((p = strchr(p, '.')) != NULL) *p = ',';
testname = metadata[4];
newtestname = metadata[5];
sprintf(logfn, "%s/%s.%s", filedir, hostname, testname);
sprintf(newfn, "%s/%s.%s", filedir, hostname, newtestname);
rename(logfn, newfn);
MEMUNDEFINE(newfn);
}
else if (strncmp(metadata[0], "@@shutdown", 10) == 0) {
running = 0;
}
else if (strncmp(metadata[0], "@@logrotate", 11) == 0) {
char *fn = xgetenv("XYMONCHANNEL_LOGFILENAME");
if (fn && strlen(fn)) {
freopen(fn, "a", stdout);
freopen(fn, "a", stderr);
}
continue;
}
else if (strncmp(metadata[0], "@@idle", 6) == 0) {
/* Ignored */
}
else {
errprintf("Dropping message type %s, metacount=%d\n", metadata[0], metacount);
}
MEMUNDEFINE(logfn);
}
return 0;
}
