int do_cics_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
char *pr;
char *fn = NULL;
int numtrans;
float dsapct, edsapct;
char cicsappl[9], rrdfn[20];
pr=(strstr(msg, "Appl"));
if (!pr) {
return 0;
}
pr=(strstr(pr, "\n"));
if (pr) {
pr += 1;
pr = strtok(pr, "\n");
while (pr != NULL) {
sscanf(pr, "%s %d %f %f", cicsappl, &numtrans, &dsapct, &edsapct);
sprintf(rrdfn, "cics.%-s.rrd", cicsappl);
setupfn(rrdfn, fn);
sprintf(rrdvalues, "%d:%d", (int)tstamp, numtrans);
create_and_update_rrd(hostname, testname, classname, pagepaths, cicsntrans_params, cics_tpl);
sprintf(rrdfn, "dsa.%-s.rrd", cicsappl);
setupfn(rrdfn, fn);
sprintf(rrdvalues, "%d:%d:%d", (int)tstamp, (int)dsapct, (int)edsapct);
create_and_update_rrd(hostname, testname, classname, pagepaths, cicsdsa_params, cics_tpl);
pr = strtok(NULL, "\n");
}
}
return 0;
}
int do_beastat_jms_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *beastat_jms_params[] = { "DS:CurrConn:GAUGE:600:0:U",
"DS:HighConn:GAUGE:600:0:U",
"DS:TotalConn:DERIVE:600:0:U",
"DS:CurrJMSSrv:GAUGE:600:0:U",
"DS:HighJMSSrv:GAUGE:600:0:U",
"DS:TotalJMSSrv:DERIVE:600:0:U",
NULL };
static void *beastat_jms_tpl = NULL;
unsigned long conncurr=0, connhigh=0, conntotal=0, jmscurr=0, jmshigh=0, jmstotal=0;
dbgprintf("beastat: host %s test %s\n",hostname, testname);
if (strstr(msg, "beastat.pl")) {
setupfn("%s.rrd",testname);
if (beastat_jms_tpl == NULL) beastat_jms_tpl = setup_template(beastat_jms_params);
conncurr=get_long_data(msg, "ConnectionsCurrentCount");
connhigh=get_long_data(msg,"ConnectionsHighCount");
conntotal=get_long_data(msg,"ConnectionsTotalCount");
jmscurr=get_long_data(msg,"JMSServersCurrentCount");
jmshigh=get_long_data(msg,"JMSServersHighCount");
jmstotal=get_long_data(msg,"JMSServersTotalCount");
dbgprintf("beastat: host %s test %s conncurr %ld connhigh %ld conntotal %ld\n",
hostname, testname, conncurr, connhigh, conntotal);
dbgprintf("beastat: host %s test %s jmscurr %ld jmshigh %ld jmstotal %ld\n",
hostname, testname, jmscurr, jmshigh,jmstotal);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%ld:%ld:%ld:%ld:%ld:%ld",
(int) tstamp, conncurr, connhigh, conntotal, jmscurr, jmshigh, jmstotal);
create_and_update_rrd(hostname, testname, classname, pagepaths, beastat_jms_params, beastat_jms_tpl);
}
return 0;
}
static int do_one_counts_rrd(char *counttype, char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp, char *params[], char *tpl)
{
char *boln, *eoln;
boln = strchr(msg, '\n'); if (boln) boln++;
while (boln && *boln) {
char *fn, *countstr = NULL;
eoln = strchr(boln, '\n'); if (eoln) *eoln = '\0';
fn = strtok(boln, ":"); if (fn) countstr = strtok(NULL, ":");
if (fn && countstr) {
char *p;
for (p=strchr(fn, '/'); (p); p = strchr(p, '/')) *p = ',';
setupfn2("%s.%s.rrd", counttype, fn);
sprintf(rrdvalues, "%d:%s", (int)tstamp, countstr);
create_and_update_rrd(hostname, testname, classname, pagepaths, params, tpl);
}
boln = (eoln ? eoln+1 : NULL);
}
return 0;
}
int do_filesizes_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
char *boln, *eoln;
if (filesize_tpl == NULL) filesize_tpl = setup_template(filesize_params);
boln = strchr(msg, '\n'); if (boln) boln++;
while (boln && *boln) {
char *fn, *szstr = NULL;
eoln = strchr(boln, '\n'); if (eoln) *eoln = '\0';
fn = strtok(boln, ":"); if (fn) szstr = strtok(NULL, ":");
if (fn && szstr) {
char *p;
for (p=strchr(fn, '/'); (p); p = strchr(p, '/')) *p = ',';
setupfn("filesizes.%s.rrd", fn);
sprintf(rrdvalues, "%d:%s", (int)tstamp, szstr);
create_and_update_rrd(hostname, rrdfn, filesize_params, filesize_tpl);
}
boln = (eoln ? eoln+1 : NULL);
}
return 0;
}
int do_getvis_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
char *p;
char pid[4], jnm[9];
int j1, j2, j3, j4, j5, j6; /* All junk, don't need it here */
int used24p, usedanyp;
if (strstr(msg, "z/VSE Getvis Map")) {
p = strstr(msg, "PID ");
if (!p) {
return 0;
}
p = strtok(p, "\n"); /* Skip heading line */
if (p) {
p = strtok(NULL, "\n");
}
while (p != NULL) {
sscanf(p, "%s %s %d %d %d %d %d %d %d %d", pid, jnm, &j1, &j2, &j3, &j4, &j5, &j6, &used24p, &usedanyp);
setupfn2("%s.%s.rrd", "getvis", pid);
sprintf(rrdvalues, "%d:%d:%d", (int)tstamp, used24p, usedanyp);
create_and_update_rrd(hostname, testname, classname, pagepaths, getvis_params, getvis_tpl);
p = strtok(NULL, "\n");
}
}
return 0;
}
int do_beastat_exec_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *beastat_exec_params[] = { "DS:ExecThrCurrIdleCnt:GAUGE:600:0:U",
"DS:ExecThrTotalCnt:GAUGE:600:0:U",
"DS:PendReqCurrCnt:GAUGE:600:0:U",
"DS:ServReqTotalCnt:DERIVE:600:0:U",
NULL };
static void *beastat_exec_tpl = NULL;
static char *checktest = "Type=ExecuteQueueRuntime";
char *curline;
char *eoln;
dbgprintf("beastat: host %s test %s\n",hostname, testname);
if (strstr(msg, "beastat.pl")) {
if (beastat_exec_tpl == NULL) beastat_exec_tpl = setup_template(beastat_exec_params);
/*
---- Full Status Report ----
Type=ExecuteQueueRuntime - Location=admin - Name=weblogic.kernel.System
*/
curline=strstr(msg, "---- Full Status Report ----");
if (curline) {
eoln = strchr(curline, '\n');
curline = (eoln ? (eoln+1) : NULL);
}
while (curline) {
unsigned long currthr=0, totthr=0,currprq=0,totservrq=0;
char *start=NULL, *execname=NULL, *nameptr=NULL;
if ((start = strstr(curline,checktest))==NULL) break;
if ((eoln = strchr(start, '\n')) == NULL) break;
*eoln = '\0';
if ((nameptr=strstr(start,"Name=")) == NULL ) {
dbgprintf("do_beastat.c: No name found in host %s test %s line %s\n",
hostname,testname,start);
goto nextline;
}
execname=xstrdup(nameptr+5);
*eoln = '\n';
start=eoln+1;
if ((eoln = strstr(start,checktest))==NULL) eoln=strstr(start,"dbcheck.pl");
if (eoln) *(--eoln)='\0';
setupfn2("%s,%s.rrd",testname,execname);
currthr=get_long_data(start, "ExecuteThreadCurrentIdleCount");
totthr=get_long_data(start,"ExecuteThreadTotalCount");
currprq=get_long_data(start,"PendingRequestCurrentCount");
totservrq=get_long_data(start,"ServicedRequestTotalCount");
dbgprintf("beastat: host %s test %s name %s currthr %ld totthr %ld currprq %ld totservrq %ld\n",
hostname, testname, execname, currthr, totthr, currprq, totservrq);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%ld:%ld:%ld:%ld",
(int) tstamp, currthr, totthr, currprq, totservrq);
create_and_update_rrd(hostname, testname, classname, pagepaths, beastat_exec_params, beastat_exec_tpl);
if (execname) { xfree(execname); execname = NULL; }
nextline:
if (eoln) *(eoln)='\n';
curline = (eoln ? (eoln+1) : NULL);
}
}
return 0;
}
int do_asid_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
char *p;
p=(strstr(msg, "Maxuser"));
if (p) {
long maxuser, maxufree, maxuused, rsvtstrt, rsvtfree, rsvtused, rsvnonr, rsvnfree, rsvnused;
float maxupct, rsvtpct, rsvnpct;
sscanf(p, "Maxuser: %ld Free: %ld Used: %ld %f", &maxuser, &maxufree, &maxuused, &maxupct);
p=(strstr(p, "RSVTSTRT"));
sscanf(p, "RSVTSTRT: %ld Free: %ld Used: %ld %f", &rsvtstrt, &rsvtfree, &rsvtused, &rsvtpct);
p=(strstr(p, "RSVNONR"));
sscanf(p, "RSVNONR: %ld Free: %ld Used: %ld %f", &rsvnonr, &rsvnfree, &rsvnused, &rsvnpct);
setupfn2("%s.%s.rrd", "maxuser", "maxuser");
sprintf(rrdvalues, "%d:%d", (int)tstamp, (int)maxupct);
create_and_update_rrd(hostname, testname, classname, pagepaths, asid_params, asid_tpl);
setupfn2("%s.%s.rrd", "maxuser", "rsvtstrt");
sprintf(rrdvalues, "%d:%d", (int)tstamp, (int)rsvtpct);
create_and_update_rrd(hostname, testname, classname, pagepaths, asid_params, asid_tpl);
setupfn2("%s.%s.rrd", "maxuser", "rsvnonr");
sprintf(rrdvalues, "%d:%d", (int)tstamp, (int)rsvnpct);
create_and_update_rrd(hostname, testname, classname, pagepaths, asid_params, asid_tpl);
}
p=(strstr(msg, "Nparts"));
if (p) {
char *fn = NULL;
long nparts, partfree, partused;
float partupct;
sscanf(p, "Nparts: %ld Free: %ld Used: %ld %f", &nparts, &partfree, &partused, &partupct);
setupfn("nparts.rrd", fn);
sprintf(rrdvalues, "%d:%d", (int)tstamp, (int)partupct);
create_and_update_rrd(hostname, testname, classname, pagepaths, asid_params, asid_tpl);
}
return 0;
}
int do_iishealth_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *iishealth_params[] = { "DS:realmempct:GAUGE:600:0:U", NULL };
static void *iishealth_tpl = NULL;
char *bol, *eoln, *tok;
if (iishealth_tpl == NULL) iishealth_tpl = setup_template(iishealth_params);
bol = strchr(msg, '\n'); if (bol) bol++; else return 0;
while (bol && *bol) {
eoln = strchr(bol, '\n'); if (eoln) *eoln = '\0';
tok = strtok(bol, " \t\r\n"); /* Get color marker */
if (tok) tok = strtok(NULL, " \t\r\n"); /* Get keyword */
if (tok) {
int havedata = 0;
if (strcmp(tok, "Connections:") == 0) {
tok = strtok(NULL, " \t\r\n");
if (tok == NULL) continue;
setupfn2("%s.%s.rrd", "iishealth", "connections");
sprintf(rrdvalues, "%d:%lu", (int)tstamp, atol(tok));
havedata = 1;
}
else if (strcmp(tok, "RequestsQueued:") == 0) {
tok = strtok(NULL, " \t\r\n");
if (tok == NULL) continue;
setupfn2("%s.%s.rrd", "iishealth", "requestqueued");
sprintf(rrdvalues, "%d:%lu", (int)tstamp, atol(tok));
havedata = 1;
}
else if (strcmp(tok, "Sessions:") == 0) {
tok = strtok(NULL, " \t\r\n");
if (tok == NULL) continue;
setupfn2("%s.%s.rrd", "iishealth", "sessions");
sprintf(rrdvalues, "%d:%lu", (int)tstamp, atol(tok));
havedata = 1;
}
if (havedata) create_and_update_rrd(hostname, testname, classname, pagepaths, iishealth_params, iishealth_tpl);
}
bol = (eoln ? eoln+1 : NULL);
}
return 0;
}
int do_paging_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
char *pr;
char *fn = NULL;
int pagerate, xstore, migrate;
if (paging_tpl == NULL) paging_tpl = setup_template(paging_params);
pr=(strstr(msg, "Rate"));
if (pr) {
pr += 5;
sscanf(pr, "%d per", &pagerate);
setupfn("paging.pagerate.rrd", fn);
sprintf(rrdvalues, "%d:%d", (int)tstamp, pagerate);
create_and_update_rrd(hostname, testname, classname, pagepaths, paging_params, paging_tpl);
if (strstr(msg, "z/VM")) { /* Additional handling for z/VM */
pr=strstr(msg,"XSTORE-");
if (pr) { /* Extract values if we find XSTORE in results of 'IND' command */
pr += 7; /* Add 7 to get past literal (XSTORE). */
sscanf(pr, "%d/SEC", &xstore);
pr=strstr(msg,"MIGRATE-");
pr += 8; /* Add 8 to get past literal (MIGRATE). */
sscanf(pr, "%d/SEC", &migrate);
setupfn("paging.xstore.rrd", fn);
sprintf(rrdvalues, "%d:%d", (int)tstamp, xstore);
create_and_update_rrd(hostname, testname, classname, pagepaths, paging_params, paging_tpl);
setupfn("paging.migrate.rrd", fn);
sprintf(rrdvalues, "%d:%d", (int)tstamp, migrate);
create_and_update_rrd(hostname, testname, classname, pagepaths, paging_params, paging_tpl);
}
}
}
return 0;
}
int do_beastat_jta_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *beastat_jta_params[] = { "DS:ActiveTrans:GAUGE:600:0:U",
"DS:SecondsActive:DERIVE:600:0:U",
"DS:TransAbandoned:DERIVE:600:0:U",
"DS:TransCommitted:DERIVE:600:0:U",
"DS:TransHeuristics:DERIVE:600:0:U",
"DS:TransRBackApp:DERIVE:600:0:U",
"DS:TransRBackResource:DERIVE:600:0:U",
"DS:TransRBackSystem:DERIVE:600:0:U",
"DS:TransRBackTimeout:DERIVE:600:0:U",
"DS:TransRBack:DERIVE:600:0:U",
"DS:TransTotCount:DERIVE:600:0:U",
NULL };
static void *beastat_jta_tpl = NULL;
unsigned long heapfree=0, heapsize=0;
unsigned long acttrans=0, secact=0, trab=0, trcomm=0, trheur=0, totot=0;
unsigned long trrbapp=0, trrbres=0, trrbsys=0, trrbto=0, trrb=0, trtot=0;
dbgprintf("beastat: host %s test %s\n",hostname, testname);
if (strstr(msg, "beastat.pl")) {
setupfn("%s.rrd",testname);
if (beastat_jta_tpl == NULL) beastat_jta_tpl = setup_template(beastat_jta_params);
acttrans=get_long_data(msg,"ActiveTransactionsTotalCount");
secact=get_long_data(msg,"SecondsActiveTotalCount");
trab=get_long_data(msg,"TransactionAbandonedTotalCount");
trcomm=get_long_data(msg,"TransactionCommittedTotalCount");
trheur=get_long_data(msg,"TransactionHeuristicsTotalCount");
trrbapp=get_long_data(msg,"TransactionRolledBackAppTotalCount");
trrbres=get_long_data(msg,"TransactionRolledBackResourceTotalCount");
trrbsys=get_long_data(msg,"TransactionRolledBackSystemTotalCount");
trrbto=get_long_data(msg,"TransactionRolledBackTimeoutTotalCount");
trrb=get_long_data(msg,"TransactionRolledBackTotalCount");
trtot=get_long_data(msg,"TransactionTotalCount");
dbgprintf("beastat: host %s test %s acttrans %ld secact %ld\n",
hostname, testname, acttrans, secact);
dbgprintf("beastat: host %s test %s TRANS: aband %ld comm %ld heur %ld total\n",
hostname, testname, trab, trcomm, trheur, trtot);
dbgprintf("beastat: host %s test %s RB: app %ld res %ld sys %ld timout %ld total %ld\n",
hostname, testname, trrbapp, trrbres, trrbsys, trrbto, trrb);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld",
(int) tstamp, acttrans, secact, trab, trcomm, trheur, trrbapp,
trrbres, trrbsys, trrbto, trrb, trtot);
create_and_update_rrd(hostname, testname, classname, pagepaths, beastat_jta_params, beastat_jta_tpl);
}
return 0;
}
int do_dbcheck_hitcache_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
static char *dbcheck_hitcache_params[] = { "rrdcreate", rrdfn,
"DS:PinSQLArea:GAUGE:600:0:100",
"DS:PinTblProc:GAUGE:600:0:100",
"DS:PinBody:GAUGE:600:0:100",
"DS:PinTrigger:GAUGE:600:0:100",
"DS:HitSQLArea:GAUGE:600:0:100",
"DS:HitTblProc:GAUGE:600:0:100",
"DS:HitBody:GAUGE:600:0:100",
"DS:HitTrigger:GAUGE:600:0:100",
"DS:BlBuffHit:GAUGE:600:0:100",
"DS:RowCache:GAUGE:600:0:100",
rra1, rra2, rra3, rra4, NULL };
static char *dbcheck_hitcache_tpl = NULL;
static time_t starttime = 0;
double pinsql=0, pintbl=0, pinbody=0, pintrig=0, hitsql=0, hittbl=0, hitbody=0, hittrig=0, blbuff=0, rowchache=0;
time_t now = time(NULL);
dbgprintf("dbcheck: host %s test %s\n",hostname, testname);
if (starttime == 0) starttime = now;
if (strstr(msg, "dbcheck.pl")) {
sprintf(rrdfn, "%s.rrd",testname);
if (dbcheck_hitcache_tpl == NULL) dbcheck_hitcache_tpl = setup_template(dbcheck_hitcache_params);
pinsql=get_double_data(msg,"PinSQLArea");
pintbl=get_double_data(msg,"PinTblProc");
pinbody=get_double_data(msg,"PinBody");
pintrig=get_double_data(msg,"PinTrigger");
hitsql=get_double_data(msg,"HitSQLArea");
hittbl=get_double_data(msg,"HitTblProc");
hitbody=get_double_data(msg,"HitBody");
hittrig=get_double_data(msg,"HitTrigger");
blbuff=get_double_data(msg,"BlBuffHit");
rowchache=get_double_data(msg,"RowCache");
dbgprintf("dbcheck: host %s test %s pinsql %5.2f pintbl %5.2f pinbody %5.2f pintrig %5.2f\n",
hostname, testname, pinsql, pintbl, pinbody, pintrig);
dbgprintf("dbcheck: host %s test %s hitsql %5.2f hittbl %5.2f hitbody %5.2f hittrig %5.2f\n",
hostname, testname, hitsql, hittbl, hitbody, hittrig);
dbgprintf("dbcheck: host %s test %s blbuff %5.2f rowchache %5.2f\n",
hostname, testname, blbuff, rowchache);
sprintf(rrdvalues, "%d:%5.2f:%5.2f:%5.2f:%5.2f:%5.2f:%5.2f:%5.2f:%5.2f:%5.2f:%5.2f",
(int) tstamp, pinsql, pintbl, pinbody, pintrig,
hitsql, hittbl, hitbody, hittrig, blbuff, rowchache);
create_and_update_rrd(hostname, rrdfn, dbcheck_hitcache_params, dbcheck_hitcache_tpl);
}
return 0;
}
int do_apache_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
static char *apache_params[] = { "rrdcreate", rrdfn,
"DS:TA:DERIVE:600:0:U",
"DS:TKB:DERIVE:600:0:U",
"DS:BW:GAUGE:600:1:U",
"DS:IW:GAUGE:600:1:U",
"DS:CPU:GAUGE:600:0:U",
"DS:REQPERSEC:GAUGE:600:0:U",
rra1, rra2, rra3, rra4, NULL };
static char *apache_tpl = NULL;
char *markers[] = { "Total Accesses:", "Total kBytes:",
"BusyWorkers:", "IdleWorkers:", "CPULoad:", "ReqPerSec:", NULL };
int i;
char *p, *eoln;
if (apache_tpl == NULL) apache_tpl = setup_template(apache_params);
/* Apache 1.x uses BusyServers/IdleServers. Convert the status to Apache 2.0 format */
if ((p = strstr(msg, "BusyServers:")) != NULL) memcpy(p, "BusyWorkers:", strlen("BusyWorkers:"));
if ((p = strstr(msg, "IdleServers:")) != NULL) memcpy(p, "IdleWorkers:", strlen("IdleWorkers:"));
strcpy(rrdfn, "apache.rrd");
sprintf(rrdvalues, "%d", (int)tstamp);
i = 0;
while (markers[i]) {
strcat(rrdvalues, ":");
p = strstr(msg, markers[i]);
if (p) {
eoln = strchr(p, '\n');
if (eoln) *eoln = '\0';
p = strchr(p, ':')+1;
p += strspn(p, " ");
strcat(rrdvalues, p);
if (eoln) *eoln = '\n';
}
else {
strcat(rrdvalues, "U");
}
i++;
}
return create_and_update_rrd(hostname, rrdfn, apache_params, apache_tpl);
}
int do_dbcheck_invobj_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
/* This check can be done in slow mode so put a long heartbeat */
static char *dbcheck_invobj_params[] = { "rrdcreate", rrdfn,
"DS:red:GAUGE:28800:0:U",
"DS:yellow:GAUGE:28800:0:U",
"DS:green:GAUGE:28800:0:U",
rra1, rra2, rra3, rra4, NULL };
static char *dbcheck_invobj_tpl = NULL;
char *curline;
char *eoln;
unsigned long yellow=0,red=0,green=0;
static time_t starttime = 0;
time_t now = time(NULL);
dbgprintf("dbcheck: host %s test %s\n",hostname, testname);
if (starttime == 0) starttime = now;
if (strstr(msg, "dbcheck.pl")) {
if (dbcheck_invobj_tpl == NULL) dbcheck_invobj_tpl = setup_template(dbcheck_invobj_params);
curline=strstr(msg, "Invalid Object Checking");
if (curline) {
eoln = strchr(curline, '\n');
curline = (eoln ? (eoln+1) : NULL);
}
while (curline) {
if ( *curline == '\n') { curline++; continue; }
if ((eoln = strchr(curline, '\n')) == NULL) break;
*eoln = '\0';
if ( *curline =='&' ) curline++;
if ( strstr(curline,"red") == curline) red++;
if ( strstr(curline,"yellow") == curline) yellow++;
if ( strstr(curline,"green") == curline) green++;
nextline:
if (eoln) *(eoln)='\n';
curline = (eoln ? (eoln+1) : NULL);
}
sprintf(rrdfn, "%s.rrd",testname);
dbgprintf("dbcheck: host %s test %s red %ld yellow %ld green %ld\n",
hostname, testname, red,yellow,green);
sprintf(rrdvalues, "%d:%ld:%ld:%ld", (int) tstamp, red,yellow,green);
create_and_update_rrd(hostname, rrdfn, dbcheck_invobj_params, dbcheck_invobj_tpl);
}
return 0;
}
int do_dbcheck_memreq_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
static char *dbcheck_memreq_params[] = { "rrdcreate", rrdfn,
"DS:ResFree:GAUGE:600:0:U",
"DS:ResAvgFree:GAUGE:600:0:U",
"DS:ResUsed:GAUGE:600:0:U",
"DS:ResAvgUsed:GAUGE:600:0:U",
"DS:ReqFail:DERIVE:600:0:U",
"DS:FailSize:GAUGE:600:0:U",
rra1, rra2, rra3, rra4, NULL };
static char *dbcheck_memreq_tpl = NULL;
unsigned long free=0,used=0,reqf=0,fsz=0;
double avfr=0,avus=0;
char *start,*end;
static time_t starttime = 0;
time_t now = time(NULL);
dbgprintf("dbcheck: host %s test %s\n",hostname, testname);
if (starttime == 0) starttime = now;
if (strstr(msg, "dbcheck.pl")) {
if (dbcheck_memreq_tpl == NULL) dbcheck_memreq_tpl = setup_template(dbcheck_memreq_params);
if ((start=strstr(msg, "<!--"))==NULL) return 0;
if ((end=strstr(start,"-->"))==NULL) return 0;
*end='\0';
free=get_long_data(start,"ResFree");
avfr=get_double_data(start,"ResAvgFree");
used=get_long_data(start,"ResUsed");
avus=get_double_data(start,"ResAvgUsed");
reqf=get_long_data(start,"ReqFail");
fsz=get_long_data(start,"FailSize");
*end='-';
dbgprintf("dbcheck: host %s test %s free %ld avgfree %f\n",
hostname, testname, free, avfr);
dbgprintf("dbcheck: host %s test %s used %ld avgused %f\n",
hostname, testname, used, avus);
dbgprintf("dbcheck: host %s test %s reqfail %ld failsize %ld\n",
hostname, testname, reqf, fsz);
sprintf(rrdvalues, "%d:%ld:%f:%ld:%f:%ld:%ld",
(int) tstamp, free, avfr, used, avus, reqf,fsz);
sprintf(rrdfn, "%s.rrd",testname);
create_and_update_rrd(hostname, rrdfn, dbcheck_memreq_params, dbcheck_memreq_tpl);
}
return 0;
}
int do_dbcheck_rb_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
/* This check can be done in slow mode so put a long heartbeat */
static char *dbcheck_rb_params[] = { "rrdcreate", rrdfn,
"DS:pct:GAUGE:28800:0:100",
rra1, rra2, rra3, rra4, NULL };
static char *dbcheck_rb_tpl = NULL;
char *curline;
char *eoln;
static time_t starttime = 0;
time_t now = time(NULL);
dbgprintf("dbcheck: host %s test %s\n",hostname, testname);
if (starttime == 0) starttime = now;
if (strstr(msg, "dbcheck.pl")) {
if (dbcheck_rb_tpl == NULL) dbcheck_rb_tpl = setup_template(dbcheck_rb_params);
curline=strstr(msg, "Rollback Checking");
if (curline) {
eoln = strchr(curline, '\n');
curline = (eoln ? (eoln+1) : NULL);
}
while (curline) {
float pct=0;
char *execname=NULL;
char *start;
if ((start = strstr(curline,"ROLLBACK")) == NULL) break;
if ((eoln = strchr(start, '\n')) == NULL) break;
*eoln = '\0';
dbgprintf("dbcheck: host %s test %s line %s\n", hostname, testname, start);
execname=xmalloc(strlen(start));
if ( sscanf(start,"ROLLBACK percentage for %s is %f",execname,&pct) !=2) goto nextline;
sprintf(rrdfn, "%s,%s.rrd",testname,execname);
dbgprintf("dbcheck: host %s test %s name %s pct %5.2f\n", hostname, testname, execname, pct);
sprintf(rrdvalues, "%d:%5.2f", (int) tstamp, pct);
create_and_update_rrd(hostname, rrdfn, dbcheck_rb_params, dbcheck_rb_tpl);
nextline:
if (execname) { xfree(execname); execname = NULL; }
if (eoln) *(eoln)='\n';
curline = (eoln ? (eoln+1) : NULL);
}
}
return 0;
}
int do_citrix_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
static char *citrix_params[] = { "rrdcreate", rrdfn, "DS:users:GAUGE:600:0:U", rra1, rra2, rra3, rra4, NULL };
static char *citrix_tpl = NULL;
char *p;
int users;
if (citrix_tpl == NULL) citrix_tpl = setup_template(citrix_params);
p = strstr(msg, " users active\n");
while (p && (p > msg) && (*p != '\n')) p--;
if (p && (sscanf(p+1, "\n%d users active\n", &users) == 1)) {
sprintf(rrdfn, "citrix.rrd");
sprintf(rrdvalues, "%d:%d", (int)tstamp, users);
return create_and_update_rrd(hostname, rrdfn, citrix_params, citrix_tpl);
}
return 0;
}
int do_dbcheck_session_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
static char *dbcheck_session_params[] = { "rrdcreate", rrdfn,
"DS:MaxSession:GAUGE:600:0:U",
"DS:CurrSession:GAUGE:600:0:U",
"DS:SessUsedPct:GAUGE:600:0:100",
"DS:MaxProcs:GAUGE:600:0:U",
"DS:CurrProcs:GAUGE:600:0:U",
"DS:ProcsUsedPct:GAUGE:600:0:100",
rra1, rra2, rra3, rra4, NULL };
static char *dbcheck_session_tpl = NULL;
static time_t starttime = 0;
unsigned long maxsess=0, currsess=0, maxproc=0, currproc=0 ;
double pctsess=0, pctproc=0;
time_t now = time(NULL);
dbgprintf("dbcheck: host %s test %s\n",hostname, testname);
if (starttime == 0) starttime = now;
if (strstr(msg, "dbcheck.pl")) {
sprintf(rrdfn, "%s.rrd",testname);
if (dbcheck_session_tpl == NULL) dbcheck_session_tpl = setup_template(dbcheck_session_params);
maxsess=get_long_data(msg, "MaxSession");
currsess=get_long_data(msg,"CurrSession");
pctsess=get_double_data(msg,"SessUsedPct");
maxproc=get_long_data(msg,"MaxProcs");
currproc=get_long_data(msg,"CurrProcs");
pctproc=get_double_data(msg,"ProcsUsedPct");
dbgprintf("dbcheck: host %s test %s maxsess %ld currsess %ld pctsess %5.2f\n",
hostname, testname, maxsess, currsess, pctsess);
dbgprintf("dbcheck: host %s test %s maxproc %ld currproc %ld pctproc %5.2f\n",
hostname, testname, maxproc, currproc, pctproc);
sprintf(rrdvalues, "%d:%ld:%ld:%5.2f:%ld:%ld:%5.2f",
(int) tstamp, maxsess, currsess, pctsess, maxproc, currproc, pctproc);
create_and_update_rrd(hostname, rrdfn, dbcheck_session_params, dbcheck_session_tpl);
}
return 0;
}
int do_bbproxy_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *bbproxy_params[] = { "DS:runtime:GAUGE:600:0:U", NULL };
static void *bbproxy_tpl = NULL;
char *p;
float runtime;
if (bbproxy_tpl == NULL) bbproxy_tpl = setup_template(bbproxy_params);
p = strstr(msg, "Average queue time");
if (p && (sscanf(p, "Average queue time : %f", &runtime) == 1)) {
if (strcmp("bbproxy", testname) != 0) {
setupfn2("%s.%s.rrd", "bbproxy", testname);
}
else {
setupfn("%s.rrd", "bbproxy");
}
sprintf(rrdvalues, "%d:%.2f", (int) tstamp, runtime);
return create_and_update_rrd(hostname, testname, classname, pagepaths, bbproxy_params, bbproxy_tpl);
}
return 0;
}
int do_beastat_jvm_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *beastat_jvm_params[] = { "DS:HeapFreeCurrent:GAUGE:600:0:U",
"DS:HeapSizeCurrent:GAUGE:600:0:U",
NULL };
static void *beastat_jvm_tpl = NULL;
unsigned long heapfree=0, heapsize=0;
dbgprintf("beastat: host %s test %s\n",hostname, testname);
if (strstr(msg, "beastat.pl")) {
setupfn("%s.rrd",testname);
if (beastat_jvm_tpl == NULL) beastat_jvm_tpl = setup_template(beastat_jvm_params);
heapfree=get_long_data(msg, "HeapFreeCurrent");
heapsize=get_long_data(msg,"HeapSizeCurrent");
dbgprintf("beastat: host %s test %s heapfree %ld heapsize %ld\n",
hostname, testname, heapfree, heapsize);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%ld:%ld",
(int) tstamp, heapfree, heapsize);
create_and_update_rrd(hostname, testname, classname, pagepaths, beastat_jvm_params, beastat_jvm_tpl);
}
return 0;
}
int do_external_rrd(char *hostname, char *testname, char *msg, time_t tstamp)
{
pid_t childpid;
dbgprintf("-> do_external(%s, %s)\n", hostname, testname);
childpid = fork();
if (childpid == 0) {
FILE *fd;
char fn[PATH_MAX];
enum { R_DEFS, R_FN, R_DATA, R_NEXT } pstate;
FILE *extfd;
char extcmd[2*PATH_MAX];
strbuffer_t *inbuf;
char *p;
char **params = NULL;
int paridx = 1;
pid_t mypid = getpid();
MEMDEFINE(fn); MEMDEFINE(extcmd);
sprintf(fn, "%s/rrd_msg_%d", xgetenv("BBTMP"), (int) getpid());
dbgprintf("%09d : Saving msg to file %s\n", (int)mypid, fn);
fd = fopen(fn, "w");
if (fd == NULL) {
errprintf("Cannot create temp file %s\n", fn);
exit(1);
}
if (fwrite(msg, strlen(msg), 1, fd) != 1) {
errprintf("Error writing to file %s: %s\n", fn, strerror(errno));
exit(1) ;
}
if (fclose(fd)) errprintf("Error closing file %s: %s\n", fn, strerror(errno));
inbuf = newstrbuffer(0);
/* Now call the external helper */
sprintf(extcmd, "%s %s %s %s", exthandler, hostname, testname, fn);
dbgprintf("%09d : Calling helper script %s\n", (int)mypid, extcmd);
extfd = popen(extcmd, "r");
if (extfd) {
pstate = R_DEFS;
initfgets(extfd);
while (unlimfgets(inbuf, extfd)) {
p = strchr(STRBUF(inbuf), '\n'); if (p) *p = '\0';
dbgprintf("%09d : Helper input '%s'\n", (int)mypid, STRBUF(inbuf));
if (STRBUFLEN(inbuf) == 0) continue;
if (pstate == R_NEXT) {
/* After doing one set of data, allow script to re-use the same DS defs */
if (strncasecmp(STRBUF(inbuf), "DS:", 3) == 0) {
/* New DS definitions, scratch the old ones */
pstate = R_DEFS;
if (params) {
for (paridx=2; (params[paridx] != NULL); paridx++)
xfree(params[paridx]);
}
xfree(params);
params = NULL;
pstate = R_DEFS;
}
else pstate = R_FN;
}
switch (pstate) {
case R_DEFS:
if (params == NULL) {
params = (char **)calloc(8, sizeof(char *));
params[0] = "rrdcreate";
params[1] = rrdfn;
paridx = 1;
}
if (strncasecmp(STRBUF(inbuf), "DS:", 3) == 0) {
/* Dataset definition */
paridx++;
params = (char **)realloc(params, (7 + paridx)*sizeof(char *));
params[paridx] = strdup(STRBUF(inbuf));
params[paridx+1] = NULL;
break;
}
else {
/* No more DS defs - put in the RRA's last. */
params[++paridx] = strdup(rra1);
params[++paridx] = strdup(rra2);
params[++paridx] = strdup(rra3);
params[++paridx] = strdup(rra4);
params[++paridx] = NULL;
pstate = R_FN;
}
/* Fall through */
case R_FN:
strncpy(rrdfn, STRBUF(inbuf), sizeof(rrdfn)-1);
rrdfn[sizeof(rrdfn)-1] = '\0';
pstate = R_DATA;
break;
case R_DATA:
snprintf(rrdvalues, sizeof(rrdvalues)-1, "%d:%s", (int)tstamp, STRBUF(inbuf));
rrdvalues[sizeof(rrdvalues)-1] = '\0';
create_and_update_rrd(hostname, rrdfn, params, NULL);
pstate = R_NEXT;
break;
case R_NEXT:
/* Should not happen */
break;
}
}
pclose(extfd);
}
else {
errprintf("Pipe open of RRD handler failed: %s\n", strerror(errno));
}
if (params) {
for (paridx=2; (params[paridx] != NULL); paridx++) xfree(params[paridx]);
xfree(params);
}
dbgprintf("%09d : Unlinking temp file\n", (int)mypid);
unlink(fn);
freestrbuffer(inbuf);
exit(0);
}
else if (childpid > 0) {
/* Parent continues */
}
else {
errprintf("Fork failed in RRD handler: %s\n", strerror(errno));
}
dbgprintf("<- do_external(%s, %s)\n", hostname, testname);
return 0;
}
int do_devmon_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
#define MAXCOLS 20
char *devmon_params[MAXCOLS+7] = { NULL, };
char *eoln, *curline;
static int ptnsetup = 0;
static pcre *inclpattern = NULL;
static pcre *exclpattern = NULL;
int in_devmon = 1;
int numds = 0;
char *rrdbasename;
int lineno = 0;
rrdbasename = NULL;
curline = msg;
while (curline) {
char *fsline = NULL;
char *p;
char *columns[MAXCOLS];
int columncount;
char *ifname = NULL;
int pused = -1;
int wanteddisk = 1;
long long aused = 0;
char *dsval;
int i;
eoln = strchr(curline, '\n'); if (eoln) *eoln = '\0';
lineno++;
if(!strncmp(curline, "<!--DEVMON RRD: ",16)) {
in_devmon = 0;
/*if(rrdbasename) {xfree(rrdbasename);rrdbasename = NULL;}*/
rrdbasename = strtok(curline+16," ");
if (rrdbasename == NULL) rrdbasename = xstrdup(testname);
dbgprintf("DEVMON: changing testname from %s to %s\n",testname,rrdbasename);
numds = 0;
goto nextline;
}
if(in_devmon == 0 && !strncmp(curline, "-->",3)) {
in_devmon = 1;
goto nextline;
}
if (in_devmon != 0 ) goto nextline;
for (columncount=0; (columncount<MAXCOLS); columncount++) columns[columncount] = "";
fsline = xstrdup(curline); columncount = 0; p = strtok(fsline, " ");
while (p && (columncount < MAXCOLS)) { columns[columncount++] = p; p = strtok(NULL, " "); }
/* DS:ds0:COUNTER:600:0:U DS:ds1:COUNTER:600:0:U */
if (!strncmp(curline, "DS:",3)) {
dbgprintf("Looking for DS defintions in %s\n",curline);
while ( numds < MAXCOLS) {
dbgprintf("Seeing if column %d that has %s is a DS\n",numds,columns[numds]);
if (strncmp(columns[numds],"DS:",3)) break;
devmon_params[numds] = xstrdup(columns[numds]);
numds++;
}
dbgprintf("Found %d DS definitions\n",numds);
devmon_params[numds] = NULL;
goto nextline;
}
dbgprintf("Found %d columns in devmon rrd data\n",columncount);
if (columncount > 2) {
dbgprintf("Skipping line %d, found %d (max 2) columns in devmon rrd data, space in repeater name?\n",lineno,columncount);
goto nextline;
}
/* Now we should be on to values:
* eth0.0 4678222:9966777
*/
ifname = xstrdup(columns[0]);
dsval = strtok(columns[1],":");
if (dsval == NULL) {
dbgprintf("Skipping line %d, line is malformed\n",lineno);
goto nextline;
}
snprintf(rrdvalues, sizeof(rrdvalues), "%d:", (int)tstamp);
strcat(rrdvalues,dsval);
for (i=1;i < numds;i++) {
dsval = strtok(NULL,":");
if (dsval == NULL) {
dbgprintf("Skipping line %d, %d tokens present, expecting %d\n",lineno,i,numds);
goto nextline;
}
strcat(rrdvalues,":");
strcat(rrdvalues,dsval);
}
/* File names in the format if_load.eth0.0.rrd */
setupfn2("%s.%s.rrd", rrdbasename, ifname);
dbgprintf("Sending from devmon to RRD for %s %s: %s\n",rrdbasename,ifname,rrdvalues);
create_and_update_rrd(hostname, testname, classname, pagepaths, devmon_params, NULL);
if (ifname) { xfree(ifname); ifname = NULL; }
if (eoln) *eoln = '\n';
nextline:
if (fsline) { xfree(fsline); fsline = NULL; }
curline = (eoln ? (eoln+1) : NULL);
}
return 0;
}
int do_mailq_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *mailq_params[] = { "DS:mailq:GAUGE:600:0:U", NULL };
static void *mailq_tpl = NULL;
char *p;
char *inqueue, *outqueue;
int mailq, inq, outq;
if (mailq_tpl == NULL) mailq_tpl = setup_template(mailq_params);
/*
* The normail "mailq" report only has a "... N requests" line and a single graph.
* Erik's enhanced script has both an incoming and an outgoing mail queue, with
* two different RRD's. We'll try to handle both setups.
*/
outqueue = strstr(msg, "\nMail queue out:");
inqueue = strstr(msg, "\nMail queue in:");
if (inqueue && outqueue) {
/* Dual queue message */
/* Skip the "Mail queue X" line */
outqueue = strchr(outqueue+1, '\n');
inqueue = strchr(inqueue+1, '\n');
if ((outqueue == NULL) || (inqueue == NULL)) return 0;
outqueue++; inqueue++;
/* Next line has "&green Mail Queue (26 requests)". Cut string at end-of-line */
p = strchr(outqueue, '\n'); if (p) *p = '\0';
p = strchr(inqueue, '\n'); if (p) *p = '\0';
/* Skip until we find a number, and get the digit. */
p = outqueue + strcspn(outqueue, "0123456789"); outq = atoi(p);
p = inqueue + strcspn(inqueue, "0123456789"); inq = atoi(p);
/* Update RRD's */
setupfn("%s.rrd", "mailqin");
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, inq);
create_and_update_rrd(hostname, testname, classname, pagepaths, mailq_params, mailq_tpl);
setupfn("%s.rrd", "mailqout");
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, outq);
create_and_update_rrd(hostname, testname, classname, pagepaths, mailq_params, mailq_tpl);
return 0;
}
else {
char *valptr;
/* Looking for "... N requests ... " */
valptr = strstr(msg, "requests");
if (valptr) {
/* Go back past any whitespace before "requests" */
do { valptr--; } while ((valptr > msg) && (*valptr != '\n') && isspace((int)*valptr));
/* Go back to the beginning of the number */
while ((valptr > msg) && isdigit((int) *(valptr-1))) valptr--;
mailq = atoi(valptr);
setupfn("%s.rrd", "mailq");
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, mailq);
return create_and_update_rrd(hostname, testname, classname, pagepaths, mailq_params, mailq_tpl);
}
}
return 0;
}
int do_net_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *xymonnet_params[] = { "DS:sec:GAUGE:600:0:U", NULL };
static void *xymonnet_tpl = NULL;
char *p;
float seconds = 0.0;
int do_default = 1;
if (xymonnet_tpl == NULL) xymonnet_tpl = setup_template(xymonnet_params);
if (strcmp(testname, "http") == 0) {
char *line1, *url = NULL, *eoln;
do_default = 0;
line1 = msg;
while ((line1 = strchr(line1, '\n')) != NULL) {
line1++; /* Skip the newline */
eoln = strchr(line1, '\n'); if (eoln) *eoln = '\0';
if ( (strncmp(line1, "&green", 6) == 0) ||
(strncmp(line1, "&yellow", 7) == 0) ||
(strncmp(line1, "&red", 4) == 0) ) {
p = strstr(line1, "http");
if (p) {
url = xstrdup(p);
p = strchr(url, ' ');
if (p) *p = '\0';
}
}
else if (url && ((p = strstr(line1, "Seconds:")) != NULL) && (sscanf(p, "Seconds: %f", &seconds) == 1)) {
char *urlfn = url;
if (strncmp(urlfn, "http://", 7) == 0) urlfn += 7;
p = urlfn; while ((p = strchr(p, '/')) != NULL) *p = ',';
setupfn3("%s.%s.%s.rrd", "tcp", "http", urlfn);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%.2f", (int)tstamp, seconds);
create_and_update_rrd(hostname, testname, classname, pagepaths, xymonnet_params, xymonnet_tpl);
xfree(url); url = NULL;
}
if (eoln) *eoln = '\n';
}
if (url) xfree(url);
}
else if (strcmp(testname, xgetenv("PINGCOLUMN")) == 0) {
/*
* Ping-tests, possibly using fping.
*/
char *tmod = "ms";
do_default = 0;
if ((p = strstr(msg, "time=")) != NULL) {
/* Standard ping, reports ".... time=0.2 ms" */
seconds = atof(p+5);
tmod = p + 5; tmod += strspn(tmod, "0123456789. ");
}
else if ((p = strstr(msg, "alive")) != NULL) {
/* fping, reports ".... alive (0.43 ms)" */
seconds = atof(p+7);
tmod = p + 7; tmod += strspn(tmod, "0123456789. ");
}
if (strncmp(tmod, "ms", 2) == 0) seconds = seconds / 1000.0;
else if (strncmp(tmod, "usec", 4) == 0) seconds = seconds / 1000000.0;
setupfn2("%s.%s.rrd", "tcp", testname);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%.6f", (int)tstamp, seconds);
return create_and_update_rrd(hostname, testname, classname, pagepaths, xymonnet_params, xymonnet_tpl);
}
else if (strcmp(testname, "ntp") == 0) {
/*
* sntp output:
* 2009 Nov 13 11:29:10.000313 + 0.038766 +/- 0.052900 secs
* ntpdate output:
* server 172.16.10.2, stratum 3, offset -0.040324, delay 0.02568
* 13 Nov 11:29:06 ntpdate[7038]: adjust time server 172.16.10.2 offset -0.040324 sec
*/
char dataforntpstat[100];
char *offsetval = NULL;
char offsetbuf[40];
char *msgcopy = strdup(msg);
if (strstr(msgcopy, "ntpdate") != NULL) {
/* Old-style "ntpdate" output */
char *p;
p = strstr(msgcopy, "offset ");
if (p) {
p += 7;
offsetval = strtok(p, " \r\n\t");
}
}
else if (strstr(msgcopy, " secs") != NULL) {
/* Probably new "sntp" output */
char *year, *tm, *offsetdirection, *offset, *plusminus, *errorbound, *secs;
tm = offsetdirection = plusminus = errorbound = secs = NULL;
year = strtok(msgcopy, " ");
tm = year ? strtok(NULL, " ") : NULL;
offsetdirection = tm ? strtok(NULL, " ") : NULL;
offset = offsetdirection ? strtok(NULL, " ") : NULL;
plusminus = offset ? strtok(NULL, " ") : NULL;
errorbound = plusminus ? strtok(NULL, " ") : NULL;
secs = errorbound ? strtok(NULL, " ") : NULL;
if ( offsetdirection && ((strcmp(offsetdirection, "+") == 0) || (strcmp(offsetdirection, "-") == 0)) &&
plusminus && (strcmp(plusminus, "+/-") == 0) &&
secs && (strcmp(secs, "secs") == 0) ) {
/* Looks sane */
snprintf(offsetbuf, sizeof(offsetbuf), "%s%s", offsetdirection, offset);
offsetval = offsetbuf;
}
}
if (offsetval) {
snprintf(dataforntpstat, sizeof(dataforntpstat), "offset=%s", offsetval);
do_ntpstat_rrd(hostname, testname, classname, pagepaths, dataforntpstat, tstamp);
}
xfree(msgcopy);
}
if (do_default) {
/*
* Normal network tests - pick up the "Seconds:" value
*/
p = strstr(msg, "\nSeconds:");
if (p && (sscanf(p+1, "Seconds: %f", &seconds) == 1)) {
setupfn2("%s.%s.rrd", "tcp", testname);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%f", (int)tstamp, seconds);
return create_and_update_rrd(hostname, testname, classname, pagepaths, xymonnet_params, xymonnet_tpl);
}
}
return 0;
}
int do_ncv_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
char **params = NULL;
int paridx;
char dsdef[1024]; /* destination DS syntax for rrd engine */
char *l, *name, *val;
char *envnam;
char *dstypes = NULL; /* contain NCV_testname value */
int split_ncv = 0;
int dslen;
sprintf(rrdvalues, "%d", (int)tstamp);
params = (char **)calloc(1, sizeof(char *));
paridx = 0;
/* Get the NCV_* or SPLITNCV_* environment setting */
envnam = (char *)malloc(9 + strlen(testname) + 1);
sprintf(envnam, "SPLITNCV_%s", testname);
l = getenv(envnam);
if (l) {
split_ncv = 1;
dslen = 200;
}
else {
split_ncv = 0;
dslen = 19;
setupfn("%s.rrd", testname);
sprintf(envnam, "NCV_%s", testname);
l = getenv(envnam);
}
if (l) {
dstypes = (char *)malloc(strlen(l)+3);
sprintf(dstypes, ",%s,", l);
}
xfree(envnam);
l = strchr(msg, '\n'); if (l) l++;
while (l && *l && strncmp(l, "@@\n", 3)) {
name = val = NULL;
l += strspn(l, " \t\n");
if (*l) {
/* See if this line contains a '=' or ':' sign */
name = l;
l += strcspn(l, ":=\n");
if (*l) {
if (( *l == '=') || (*l == ':')) {
*l = '\0'; l++;
}
else {
/* No marker, so skip this line */
name = NULL;
}
}
else break; /* We've hit the end of the message */
}
/* Skip any color marker "&COLOR " in front of the ds name */
if (name && (*name == '&')) {
name++;
name += strspn(name, "abcdefghijklmnopqrstuvwxyz");
name += strspn(name, " \t");
if (*name == '\0') name = NULL;
}
if (name) {
val = l + strspn(l, " \t");
/* Find the end of the value string */
l = val; if ((*l == '-') || (*l == '+')) l++; /* Pass leading sign */
l += strspn(l, "0123456789.+-"); /* and the numbers. */
if( *val ) {
int iseol = (*l == '\n');
*l = '\0';
if (!iseol) {
/* If extra data after the value, skip to end of line */
l = strchr(l+1, '\n');
if (l) l++;
}
else {
l++;
}
}
else break; /* No value data */
}
if (name && val && *val) {
char *endptr;
strtod(val, &endptr);
if (isspace((int)*endptr) || (*endptr == '\0')) {
char dsname[250]; /* name of ncv in status message (with space and all) */
char dskey[252]; /* name of final DS key (stripped) */
char *dstype = NULL; /* type of final DS */
char *inp;
int outidx = 0;
/* val contains a valid number */
/* rrdcreate(1) says: ds must be in the set [a-zA-Z0-9_] ... */
for (inp=name,outidx=0; (*inp && (outidx < dslen)); inp++) {
if ( ((*inp >= 'A') && (*inp <= 'Z')) ||
((*inp >= 'a') && (*inp <= 'z')) ||
((*inp >= '0') && (*inp <= '9')) ) {
dsname[outidx++] = *inp;
}
/* ... however, for split ncv, we replace anything else */
/* with an underscore, compacting successive invalid */
/* characters into a single one */
else if (split_ncv && ((outidx == 0) || (dsname[outidx - 1] != '_'))) {
dsname[outidx++] = '_';
}
}
if ((outidx > 0) && (dsname[outidx-1] == '_')) {
dsname[outidx-1] = '\0';
}
else {
dsname[outidx] = '\0';
}
sprintf(dskey, ",%s:", dsname);
if (split_ncv) setupfn2("%s,%s.rrd", testname, dsname);
if (dstypes) {
dstype = strstr(dstypes, dskey);
if (!dstype) {
strcpy(dskey, ",*:");
dstype = strstr(dstypes, dskey);
}
}
if (dstype) { /* if ds type is forced */
char *p;
dstype += strlen(dskey);
p = strchr(dstype, ','); if (p) *p = '\0';
if(split_ncv) {
sprintf(dsdef, "DS:lambda:%s:600:U:U", dstype);
}
else {
sprintf(dsdef, "DS:%s:%s:600:U:U", dsname, dstype);
}
if (p) *p = ',';
}
else { /* nothing specified in the environnement, and no '*:' default */
if(split_ncv) {
strcpy(dsdef, "DS:lambda:DERIVE:600:U:U");
}
else {
sprintf(dsdef, "DS:%s:DERIVE:600:U:U", dsname);
}
}
if (!dstype || (strncasecmp(dstype, "NONE", 4) != 0)) { /* if we have something */
params[paridx] = strdup(dsdef);
paridx++;
params = (char **)realloc(params, (1 + paridx)*sizeof(char *));
params[paridx] = NULL;
sprintf(rrdvalues+strlen(rrdvalues), ":%s", val);
}
}
if (split_ncv && (paridx > 0)) {
create_and_update_rrd(hostname, testname, classname, pagepaths, params, NULL);
/* We've created one RRD, so reset the params for the next one */
for (paridx=0; (params[paridx] != NULL); paridx++) xfree(params[paridx]);
paridx = 0;
params[0] = NULL;
sprintf(rrdvalues, "%d", (int)tstamp);
}
}
} /* end of while */
if (!split_ncv && params[0]) create_and_update_rrd(hostname, testname, classname, pagepaths, params, NULL);
for (paridx=0; (params[paridx] != NULL); paridx++) xfree(params[paridx]);
xfree(params);
if (dstypes) xfree(dstypes);
return 0;
}
int do_temperature_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *temperature_params[] = { "DS:temperature:GAUGE:600:1:U",
NULL };
static void *temperature_tpl = NULL;
/* Sample input report:
Device Temp(C) Temp(F)
-----------------------------------
&green Motherboard#0 31 87
&green Motherboard#1 28 82
&green AMBIENT 25 77
&green CPU0 40 104
&green CPU1 40 104
&green CPU2 40 104
&green CPU3 40 104
&green Board 0 29 84
&green Board 1 35 95
&green Board 2 30 86
&green Board 3 37 98
&green Board 4 28 82
&green Board 6 28 82
&green Board CLK 27 80
&green MB 24 75
&green IOB 19 66
&green DBP0 19 66
&green CPU 0 Die 79 174
&green CPU 0 Ambient 27 80
&green CPU 1 Die 73 163
&green CPU 1 Ambient 26 78
-----------------------------------
Status green: All devices look okay
*/
char *bol, *eol, *comment, *p;
int tmpC;
if (temperature_tpl == NULL) temperature_tpl = setup_template(temperature_params);
bol = eol = msg;
while (eol && ((p = strstr(eol, "\n&")) != NULL)) {
int gotone = 0;
bol = p + 1;
eol = strchr(bol, '\n'); if (eol) *eol = '\0';
/* See if there's a comment in parenthesis */
comment = strchr(bol, '('); /* Begin comment */
p = strchr(bol, ')'); /* End comment */
if (comment && p && (comment < p)) *comment = '\0'; /* Cut off the comment */
if (strncmp(bol, "&green", 6) == 0) { bol += 6; gotone = 1; }
else if (strncmp(bol, "&yellow", 7) == 0) { bol += 7; gotone = 1; }
else if (strncmp(bol, "&red", 4) == 0) { bol += 4; gotone = 1; }
else if (strncmp(bol, "&clear", 6) == 0) { bol += 6; gotone = 1; }
if (gotone) {
char savech;
bol += strspn(bol, " \t");
/* Strip off any leading bold and italic HTML tags */
if (strncasecmp(bol, "<i><b>", 6) == 0) { bol += 6; }
else if (strncasecmp(bol, "<i>", 3) == 0) { bol += 3; }
else if (strncasecmp(bol, "<b><i>", 6) == 0) { bol += 6; }
else if (strncasecmp(bol, "<b>", 3) == 0) { bol += 3; }
bol += strspn(bol, " \t");
p = bol + strlen(bol) - 1;
while ((p > bol) && isspace((int)*p)) p--;
while ((p > bol) && isdigit((int)*p)) p--;
// tmpF = atoi(p);
while ((p > bol) && isspace((int)*p)) p--;
while ((p > bol) && isdigit((int)*p)) p--;
tmpC = atoi(p);
while ((p > bol) && isspace((int)*p)) p--;
savech = *(p+1); *(p+1) = '\0';
setupfn2("%s.%s.rrd", "temperature", bol); *(p+1) = savech;
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, tmpC);
create_and_update_rrd(hostname, testname, classname, pagepaths, temperature_params, temperature_tpl);
}
if (comment) *comment = '(';
if (eol) *eol = '\n';
}
return 0;
}
int do_vmstat_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
enum ostype_t ostype;
vmstat_layout_t *layout = NULL;
char *datapart = msg;
int values[MAX_VMSTAT_VALUES];
int defcount, defidx, datacount, result;
char *p;
char **creparams;
if ((strncmp(msg, "status", 6) == 0) || (strncmp(msg, "data", 4) == 0)) {
/* Full message, including "status" or "data" line - so skip the first line. */
datapart = strchr(msg, '\n');
if (datapart) {
datapart++;
}
else {
errprintf("Too few lines (only 1) in vmstat report from %s\n", hostname);
return -1;
}
}
ostype = get_ostype(datapart);
datapart = strchr(datapart, '\n');
if (datapart) {
datapart++;
}
else {
errprintf("Too few lines (only 1 or 2) in vmstat report from %s\n", hostname);
return -1;
}
/* Pick up the values in the datapart line. Stop at newline. */
p = strchr(datapart, '\n'); if (p) *p = '\0';
p = strtok(datapart, " "); datacount = 0;
while (p && (datacount < MAX_VMSTAT_VALUES)) {
values[datacount++] = atoi(p);
p = strtok(NULL, " ");
}
/* Must do this now, to check on the layout of any existing file */
setupfn("%s.rrd", "vmstat");
switch (ostype) {
case OS_SOLARIS:
layout = vmstat_solaris_layout; break;
case OS_OSF:
layout = vmstat_osf_layout; break;
case OS_AIX:
/* Special, because there are two layouts for AIX */
{
char **dsnames = NULL;
int dscount, i;
dscount = rrddatasets(hostname, &dsnames);
layout = ((dscount == 17) ? vmstat_aix_layout : vmstat_aix_power5_layout);
if ((dscount > 0) && dsnames) {
/* Free the dsnames list */
for (i=0; (i<dscount); i++) xfree(dsnames[i]);
xfree(dsnames);
}
}
break;
case OS_IRIX:
layout = vmstat_irix_layout; break;
case OS_HPUX:
layout = vmstat_hpux_layout; break;
case OS_FREEBSD:
layout = vmstat_freebsd_layout; break;
case OS_NETBSD:
layout = vmstat_netbsd_layout; break;
case OS_OPENBSD:
layout = vmstat_openbsd_layout; break;
case OS_LINUX22:
layout = vmstat_linux22_layout; break;
case OS_LINUX:
case OS_ZVM:
case OS_ZVSE:
case OS_ZOS:
layout = vmstat_linux_layout; break;
case OS_RHEL3:
layout = vmstat_rhel3_layout; break;
case OS_SCO_SV:
layout = vmstat_sco_sv_layout; break;
case OS_UNKNOWN:
errprintf("Host '%s' reports vmstat for an unknown OS\n", hostname);
return -1;
default:
errprintf("Cannot handle vmstat from host '%s' \n", hostname);
return -1;
}
if (layout == NULL) {
return -1;
}
/* How many values are defined in the dataset ? */
for (defcount = 0; (layout[defcount].name); defcount++) ;
/* Setup the create-parameters */
creparams = (char **)malloc((defcount+1)*sizeof(char *));
for (defidx=0; (defidx < defcount); defidx++) {
creparams[defidx] = (char *)malloc(strlen(layout[defidx].name) + strlen("DS::GAUGE:600:0:U") + 1);
sprintf(creparams[defidx], "DS:%s:GAUGE:600:0:U", layout[defidx].name);
}
creparams[defcount] = NULL;
/* Setup the update string, picking out values according to the layout */
p = rrdvalues + snprintf(rrdvalues, sizeof(rrdvalues), "%d", (int)tstamp);
for (defidx=0; (defidx < defcount); defidx++) {
int dataidx = layout[defidx].index;
if ((dataidx >= datacount) || (dataidx == -1)) {
p += snprintf(p, sizeof(rrdvalues)-(p-rrdvalues), ":U");
}
else {
p += snprintf(p, sizeof(rrdvalues)-(p-rrdvalues), ":%d", values[layout[defidx].index]);
}
}
result = create_and_update_rrd(hostname, testname, classname, pagepaths, creparams, NULL);
for (defidx=0; (defidx < defcount); defidx++) xfree(creparams[defidx]);
xfree(creparams);
return result;
}
int do_la_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *la_params[] = { "DS:la:GAUGE:600:U:U", NULL };
static void *la_tpl = NULL;
static char *clock_params[] = { "DS:la:GAUGE:600:U:U", NULL }; /* "la" is a misnomer, but to stay compatiable with existing RRD files */
static void *clock_tpl = NULL;
static pcre *as400_exp = NULL;
static pcre *zVM_exp = NULL;
static time_t starttime = 0;
char *p, *eoln = NULL;
int gotusers=0, gotprocs=0, gotload=0, gotclock=0;
int users=0, procs=0, load=0, clockdiff=0;
time_t now = getcurrenttime(NULL);
if (la_tpl == NULL) la_tpl = setup_template(la_params);
if (clock_tpl == NULL) clock_tpl = setup_template(clock_params);
if (starttime == 0) starttime = now;
if (strstr(msg, "bb-xsnmp")) {
/*
* bb-xsnmp.pl script output.
*
* green Tue Apr 5 12:57:37 2005 up: 254.58 days, CPU Usage= 9%
*
* &green CPU Time in Busy Mode: 9%
* &green CPU Time in Idle Mode: 91%
*
* &yellow CPU Usage Threshold: 90%
* &red CPU Usage Threshold: 95%
*
* <!-- Enterprise: netapp , Version: 6.42 -->
* bb-xsnmp.pl Version: 1.78
*/
p = strstr(msg, "CPU Usage=");
if (p) {
p += strlen("CPU Usage=");
gotload = 1;
load = atoi(p);
}
goto done_parsing;
}
else if (strstr(msg, "z/VM") || strstr(msg, "VSE/ESA") || strstr(msg, "z/VSE") || strstr(msg, "z/OS")) {
/* z/VM cpu message. Looks like this, from Rich Smrcina (client config mode):
* green 5 Apr 2005 20:07:34 CPU Utilization 7% z/VM Version 4 Release 4.0, service level 0402 (32-bit) AVGPROC-007% 01
* VSE/ESA or z/VSE cpu message.
* VSE/ESA 2.7.2 cr IPLed on ...
* or
* z/VSE 3.1.1 cr IPLed on ...
* In server (centralized) config mode or for z/OS (which is centralized config only)
* the operating system name is part of the message (as in the tests above).
*/
int ovector[30];
char w[100];
int res;
if (zVM_exp == NULL) {
const char *errmsg = NULL;
int errofs = 0;
zVM_exp = pcre_compile(".* CPU Utilization *([0-9]+)%", PCRE_CASELESS, &errmsg, &errofs, NULL);
}
res = pcre_exec(zVM_exp, NULL, msg, strlen(msg), 0, 0, ovector, (sizeof(ovector)/sizeof(int)));
if (res >= 0) {
/* We have a match - pick up the data. */
*w = '\0'; if (res > 0) pcre_copy_substring(msg, ovector, res, 1, w, sizeof(w));
if (strlen(w)) {
load = atoi(w); gotload = 1;
}
}
goto done_parsing;
}
eoln = strchr(msg, '\n'); if (eoln) *eoln = '\0';
p = strstr(msg, "up: ");
if (!p) p = strstr(msg, "Uptime:"); /* Netapp filerstats2bb script */
if (!p) p = strstr(msg, "uptime:");
if (p) {
/* First line of cpu report, contains "up: 159 days, 1 users, 169 procs, load=21" */
p = strchr(p, ',');
if (p) {
gotusers = (sscanf(p, ", %d users", &users) == 1);
p = strchr(p+1, ',');
}
if (p) {
gotprocs = (sscanf(p, ", %d procs", &procs) == 1);
p = strchr(p+1, ',');
}
/*
* Load can be either
* - "load=xx%" (Windows)
* - "load=xx.xx" (Unix, DISPREALLOADAVG=TRUE)
* - "load=xx" (Unix, DISPREALLOADAVG=FALSE)
*
* We want the load in percent (Windows), or LA*100 (Unix).
*/
p = strstr(msg, "load=");
if (p) {
p += 5;
if (strchr(p, '%')) {
gotload = 1;
load = atoi(p);
}
else if (strchr(p, '.')) {
gotload = 1;
load = 100*atoi(p);
/* Find the decimal part, and cut off at 2 decimals */
p = strchr(p, '.'); if (strlen(p) > 3) *(p+3) = '\0';
load += atoi(p+1);
}
else {
gotload = 1;
load = atoi(p);
}
}
}
else {
/*
* No "uptime" in message - could be from an AS/400. They look like this:
* green March 21, 2005 12:33:24 PM EST deltacdc 108 users 45525 jobs(126 batch,0 waiting for message), load=26%
*/
int ovector[30];
char w[100];
int res;
if (as400_exp == NULL) {
const char *errmsg = NULL;
int errofs = 0;
as400_exp = pcre_compile(".* ([0-9]+) users ([0-9]+) jobs.* load=([0-9]+)\\%",
PCRE_CASELESS, &errmsg, &errofs, NULL);
}
res = pcre_exec(as400_exp, NULL, msg, strlen(msg), 0, 0, ovector, (sizeof(ovector)/sizeof(int)));
if (res >= 0) {
/* We have a match - pick up the AS/400 data. */
*w = '\0'; if (res > 0) pcre_copy_substring(msg, ovector, res, 1, w, sizeof(w));
if (strlen(w)) {
users = atoi(w); gotusers = 1;
}
*w = '\0'; if (res > 0) pcre_copy_substring(msg, ovector, res, 3, w, sizeof(w));
if (strlen(w)) {
load = atoi(w); gotload = 1;
}
}
}
done_parsing:
if (eoln) *eoln = '\n';
p = strstr(msg, "System clock is ");
if (p) {
if (sscanf(p, "System clock is %d seconds off", &clockdiff) == 1) gotclock = 1;
}
if (!gotload) {
/* See if it's a report from the ciscocpu.pl script. */
p = strstr(msg, "<br>CPU 5 min average:");
if (p) {
/* It reports in % cpu utilization */
p = strchr(p, ':');
load = atoi(p+1);
gotload = 1;
}
}
if (gotload) {
setupfn("%s.rrd", "la");
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, load);
create_and_update_rrd(hostname, testname, classname, pagepaths, la_params, la_tpl);
}
if (gotprocs) {
setupfn("%s.rrd", "procs");
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, procs);
create_and_update_rrd(hostname, testname, classname, pagepaths, la_params, la_tpl);
}
if (gotusers) {
setupfn("%s.rrd", "users");
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, users);
create_and_update_rrd(hostname, testname, classname, pagepaths, la_params, la_tpl);
}
if (gotclock) {
setupfn("%s.rrd", "clock");
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%d", (int)tstamp, clockdiff);
create_and_update_rrd(hostname, testname, classname, pagepaths, clock_params, clock_tpl);
}
/*
* If we have run for less than 6 minutes, drop the memory updates here.
* We want to be sure not to use memory statistics from the CPU report
* if there is a memory add-on sending a separate memory statistics
*/
if ((now - starttime) < 360) return 0;
if (!memhosts_init || (xtreeFind(memhosts, hostname) == xtreeEnd(memhosts))) {
/* Pick up memory statistics */
int found, overflow, realuse, swapuse;
long long phystotal, physavail, pagetotal, pageavail;
found = overflow = realuse = swapuse = 0;
phystotal = physavail = pagetotal = pageavail = 0;
p = strstr(msg, "Total Physical memory:");
if (p) {
phystotal = str2ll(strchr(p, ':') + 1, NULL);
if (phystotal != LONG_MAX) found++; else overflow++;
}
if (found == 1) {
p = strstr(msg, "Available Physical memory:");
if (p) {
physavail = str2ll(strchr(p, ':') + 1, NULL);
if (physavail != LONG_MAX) found++; else overflow++;
}
}
if (found == 2) {
p = strstr(msg, "Total PageFile size:");
if (p) {
pagetotal = str2ll(strchr(p, ':') + 1, NULL);
if (pagetotal != LONG_MAX) found++; else overflow++;
}
}
if (found == 3) {
p = strstr(msg, "Available PageFile size:");
if (p) {
pageavail = str2ll(strchr(p, ':') + 1, NULL);
if (pageavail != LONG_MAX) found++; else overflow++;
}
}
if (found == 4) {
if (!phystotal || !pagetotal) { errprintf("Host %s cpu report had 0 total physical/pagefile memory listed\n", hostname); return 0; }
phystotal = phystotal / 100;
pagetotal = pagetotal / 100;
realuse = 100 - (physavail / phystotal);
swapuse = 100 - (pageavail / pagetotal);
do_memory_rrd_update(tstamp, hostname, testname, classname, pagepaths, realuse, swapuse, -1);
}
else if (overflow) {
errprintf("Host %s cpu report overflows in memory usage calculation\n", hostname);
}
}
return 0;
}
int do_beastat_jdbc_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static char *beastat_jdbc_params[] = { "DS:ActConnAvgCnt:GAUGE:600:0:U",
"DS:ActConnCurrCnt:GAUGE:600:0:U",
"DS:ActConnHighCnt:GAUGE:600:0:U",
"DS:WtForConnCurrCnt:GAUGE:600:0:U",
"DS:ConnDelayTime:GAUGE:600:0:U",
"DS:ConnLeakProfileCnt:GAUGE:600:0:U",
"DS:LeakedConnCnt:GAUGE:600:0:U",
"DS:MaxCapacity:GAUGE:600:0:U",
"DS:NumAvailable:GAUGE:600:0:U",
"DS:NumUnavailable:GAUGE:600:0:U",
"DS:HighNumAvailable:GAUGE:600:0:U",
"DS:HighNumUnavailable:GAUGE:600:0:U",
"DS:WaitSecHighCnt:GAUGE:600:0:U",
"DS:ConnTotalCnt:DERIVE:600:0:U",
"DS:FailToReconnCnt:DERIVE:600:0:U",
"DS:WaitForConnHighCnt:GAUGE:600:0:U",
NULL };
static void *beastat_jdbc_tpl = NULL;
static char *checktest = "Type=JDBCConnectionPoolRuntime";
char *curline;
char *eoln;
dbgprintf("beastat: host %s test %s\n",hostname, testname);
if (strstr(msg, "beastat.pl")) {
if (beastat_jdbc_tpl == NULL) beastat_jdbc_tpl = setup_template(beastat_jdbc_params);
/*
---- Full Status Report ----
Type=ExecuteQueueRuntime - Location=admin - Name=weblogic.kernel.System
*/
curline=strstr(msg, "---- Full Status Report ----");
if (curline) {
eoln = strchr(curline, '\n');
curline = (eoln ? (eoln+1) : NULL);
}
while (curline) {
unsigned long acac=0, accc=0, achc=0, wfccc=0, cdt=0, clpc=0, lcc=0;
unsigned long mc=0, na=0, nu=0, hna=0, hnu=0, wshc=0, ctc=0, ftrc=0, wfchc=0;
char *start=NULL, *execname=NULL, *nameptr=NULL;
if ((start = strstr(curline,checktest))==NULL) break;
if ((eoln = strchr(start, '\n')) == NULL) break;
*eoln = '\0';
if ((nameptr=strstr(start,"Name=")) == NULL ) {
dbgprintf("do_beastat.c: No name found in host %s test %s line %s\n",
hostname,testname,start);
goto nextline;
}
execname=xstrdup(nameptr+5);
*eoln = '\n';
start=eoln+1;
if ((eoln = strstr(start,checktest))==NULL) eoln=strstr(start,"dbcheck.pl");
if (eoln) *(--eoln)='\0';
setupfn2("%s,%s.rrd",testname,execname);
acac=get_long_data(start,"ActiveConnectionsAverageCount");
accc=get_long_data(start,"ActiveConnectionsCurrentCount");
achc=get_long_data(start,"ActiveConnectionsHighCount");
wfccc=get_long_data(start,"WaitingForConnectionCurrentCount");
cdt=get_long_data(start,"ConnectionDelayTime");
clpc=get_long_data(start,"ConnectionLeakProfileCount");
lcc=get_long_data(start,"LeakedConnectionCount");
mc=get_long_data(start,"MaxCapacity");
na=get_long_data(start,"NumAvailable");
nu=get_long_data(start,"NumUnavailable");
hna=get_long_data(start,"HighestNumAvailable");
hnu=get_long_data(start,"HighestNumUnavailable");
wshc=get_long_data(start,"WaitSecondsHighCount");
ctc=get_long_data(start,"ConnectionsTotalCount");
ftrc=get_long_data(start,"FailuresToReconnectCount");
wfchc=get_long_data(start,"WaitingForConnectionHighCount");
dbgprintf("beastat: host %s test %s name %s acac %ld accc %ld achc %ld wfccc %ld cdt %ld clpc %ld lcc %ld\n", hostname, testname, execname, acac, accc, achc, wfccc, cdt, clpc, lcc);
dbgprintf("beastat: host %s test %s name %s mc %ld na %ld nu %ld hna %ld hnu %ld wshc %ld ctc %ld ftrc %ld wfchc %ld\n",hostname, testname, execname, mc, na, nu, hna, hnu, wshc, ctc, ftrc, wfchc);
snprintf(rrdvalues, sizeof(rrdvalues), "%d:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld:%ld",
(int) tstamp, acac, accc, achc, wfccc, cdt, clpc, lcc,
mc, na, nu, hna, hnu, wshc, ctc, ftrc, wfchc);
create_and_update_rrd(hostname, testname, classname, pagepaths, beastat_jdbc_params, beastat_jdbc_tpl);
if (execname) { xfree(execname); execname = NULL; }
nextline:
if (eoln) *(eoln)='\n';
curline = (eoln ? (eoln+1) : NULL);
}
}
return 0;
}
int do_external_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
pid_t childpid;
dbgprintf("-> do_external(%s, %s)\n", hostname, testname);
childpid = fork();
if (childpid == 0) {
FILE *fd;
char fn[PATH_MAX];
enum { R_DEFS, R_FN, R_DATA, R_NEXT } pstate;
FILE *extfd;
char extcmd[2*PATH_MAX];
strbuffer_t *inbuf;
char *p;
char **params = NULL;
int paridx = 0;
pid_t mypid = getpid();
MEMDEFINE(fn); MEMDEFINE(extcmd);
sprintf(fn, "%s/rrd_msg_%d", xgetenv("XYMONTMP"), (int) getpid());
dbgprintf("%09d : Saving msg to file %s\n", (int)mypid, fn);
fd = fopen(fn, "w");
if (fd == NULL) {
errprintf("Cannot create temp file %s\n", fn);
exit(1);
}
if (fwrite(msg, strlen(msg), 1, fd) != 1) {
errprintf("Error writing to file %s: %s\n", fn, strerror(errno));
exit(1) ;
}
if (fclose(fd)) errprintf("Error closing file %s: %s\n", fn, strerror(errno));
/*
* Disable the RRD update cache.
* We cannot use the cache, because this child
* process terminates without flushing the cache,
* and it cannot feed the update-data back to the
* parent process which owns the cache. So using
* an external handler means the updates will be
* sync'ed to disk immediately.
*
* NB: It is OK to do this now and not re-enable it,
* since we're running in the external helper
* child process - so this only affects the current
* update.
*
* Thanks to Graham Nayler for the analysis.
*/
use_rrd_cache = 0;
inbuf = newstrbuffer(0);
/* Now call the external helper */
sprintf(extcmd, "%s %s %s %s", exthandler, hostname, testname, fn);
dbgprintf("%09d : Calling helper script %s\n", (int)mypid, extcmd);
extfd = popen(extcmd, "r");
if (extfd) {
pstate = R_DEFS;
initfgets(extfd);
while (unlimfgets(inbuf, extfd)) {
p = strchr(STRBUF(inbuf), '\n'); if (p) *p = '\0';
dbgprintf("%09d : Helper input '%s'\n", (int)mypid, STRBUF(inbuf));
if (STRBUFLEN(inbuf) == 0) continue;
if (pstate == R_NEXT) {
/* After doing one set of data, allow script to re-use the same DS defs */
if (strncasecmp(STRBUF(inbuf), "DS:", 3) == 0) {
/* New DS definitions, scratch the old ones */
if (params) {
for (paridx=0; (params[paridx] != NULL); paridx++)
xfree(params[paridx]);
xfree(params);
params = NULL;
}
pstate = R_DEFS;
}
else pstate = R_FN;
}
switch (pstate) {
case R_DEFS:
if (params == NULL) {
params = (char **)calloc(1, sizeof(char *));
paridx = 0;
}
if (strncasecmp(STRBUF(inbuf), "DS:", 3) == 0) {
/* Dataset definition */
params[paridx] = strdup(STRBUF(inbuf));
paridx++;
params = (char **)realloc(params, (1 + paridx)*sizeof(char *));
params[paridx] = NULL;
break;
}
else {
/* No more DS defs */
pstate = R_FN;
}
/* Fall through */
case R_FN:
setupfn("%s", STRBUF(inbuf));
pstate = R_DATA;
break;
case R_DATA:
snprintf(rrdvalues, sizeof(rrdvalues)-1, "%d:%s", (int)tstamp, STRBUF(inbuf));
rrdvalues[sizeof(rrdvalues)-1] = '\0';
create_and_update_rrd(hostname, testname, classname, pagepaths, params, NULL);
pstate = R_NEXT;
break;
case R_NEXT:
/* Should not happen */
break;
}
}
pclose(extfd);
}
else {
errprintf("Pipe open of RRD handler failed: %s\n", strerror(errno));
}
if (params) {
for (paridx=0; (params[paridx] != NULL); paridx++) xfree(params[paridx]);
xfree(params);
}
dbgprintf("%09d : Unlinking temp file\n", (int)mypid);
unlink(fn);
freestrbuffer(inbuf);
exit(0);
}
else if (childpid > 0) {
/* Parent continues */
}
else {
errprintf("Fork failed in RRD handler: %s\n", strerror(errno));
}
dbgprintf("<- do_external(%s, %s)\n", hostname, testname);
return 0;
}
int do_ifstat_rrd(char *hostname, char *testname, char *classname, char *pagepaths, char *msg, time_t tstamp)
{
static int pcres_compiled = 0;
static pcre **ifstat_linux_pcres = NULL;
static pcre **ifstat_freebsd_pcres = NULL;
static pcre **ifstat_openbsd_pcres = NULL;
static pcre **ifstat_netbsd_pcres = NULL;
static pcre **ifstat_darwin_pcres = NULL;
static pcre **ifstat_solaris_pcres = NULL;
static pcre **ifstat_aix_pcres = NULL;
static pcre **ifstat_hpux_pcres = NULL;
static pcre **ifstat_sco_sv_pcres = NULL;
static pcre **ifstat_bbwin_pcres = NULL;
enum ostype_t ostype;
char *datapart = msg;
char *outp;
char *bol, *eoln, *ifname, *rxstr, *txstr, *dummy;
int dmatch;
if (pcres_compiled == 0) {
pcres_compiled = 1;
ifstat_linux_pcres = compile_exprs("LINUX", ifstat_linux_exprs,
(sizeof(ifstat_linux_exprs) / sizeof(ifstat_linux_exprs[0])));
ifstat_freebsd_pcres = compile_exprs("FREEBSD", ifstat_freebsd_exprs,
(sizeof(ifstat_freebsd_exprs) / sizeof(ifstat_freebsd_exprs[0])));
ifstat_openbsd_pcres = compile_exprs("OPENBSD", ifstat_openbsd_exprs,
(sizeof(ifstat_openbsd_exprs) / sizeof(ifstat_openbsd_exprs[0])));
ifstat_netbsd_pcres = compile_exprs("NETBSD", ifstat_netbsd_exprs,
(sizeof(ifstat_netbsd_exprs) / sizeof(ifstat_netbsd_exprs[0])));
ifstat_darwin_pcres = compile_exprs("DARWIN", ifstat_darwin_exprs,
(sizeof(ifstat_darwin_exprs) / sizeof(ifstat_darwin_exprs[0])));
ifstat_solaris_pcres = compile_exprs("SOLARIS", ifstat_solaris_exprs,
(sizeof(ifstat_solaris_exprs) / sizeof(ifstat_solaris_exprs[0])));
ifstat_aix_pcres = compile_exprs("AIX", ifstat_aix_exprs,
(sizeof(ifstat_aix_exprs) / sizeof(ifstat_aix_exprs[0])));
ifstat_hpux_pcres = compile_exprs("HPUX", ifstat_hpux_exprs,
(sizeof(ifstat_hpux_exprs) / sizeof(ifstat_hpux_exprs[0])));
ifstat_sco_sv_pcres = compile_exprs("SCO_SV", ifstat_sco_sv_exprs,
(sizeof(ifstat_sco_sv_exprs) / sizeof(ifstat_sco_sv_exprs[0])));
ifstat_bbwin_pcres = compile_exprs("BBWIN", ifstat_bbwin_exprs,
(sizeof(ifstat_bbwin_exprs) / sizeof(ifstat_bbwin_exprs[0])));
}
if (ifstat_tpl == NULL) ifstat_tpl = setup_template(ifstat_params);
if ((strncmp(msg, "status", 6) == 0) || (strncmp(msg, "data", 4) == 0)) {
/* Skip the first line of full status- and data-messages. */
datapart = strchr(msg, '\n');
if (datapart) datapart++; else datapart = msg;
}
ostype = get_ostype(datapart);
datapart = strchr(datapart, '\n');
if (datapart) {
datapart++;
}
else {
errprintf("Too few lines in ifstat report from %s\n", hostname);
return -1;
}
/* Setup the update string */
outp = rrdvalues + sprintf(rrdvalues, "%d", (int)tstamp);
dmatch = 0;
ifname = rxstr = txstr = dummy = NULL;
bol = datapart;
while (bol) {
eoln = strchr(bol, '\n'); if (eoln) *eoln = '\0';
switch (ostype) {
case OS_LINUX22:
case OS_LINUX:
case OS_RHEL3:
case OS_ZVM:
case OS_ZVSE:
case OS_ZOS:
if (pickdata(bol, ifstat_linux_pcres[0], 1, &ifname)) {
/*
* Linux' netif aliases mess up things.
* Clear everything when we see an interface name.
* But we dont want to track the "lo" interface.
*/
if (strcmp(ifname, "lo") == 0) {
xfree(ifname); ifname = NULL;
}
else {
dmatch = 1;
if (rxstr) { xfree(rxstr); rxstr = NULL; }
if (txstr) { xfree(txstr); txstr = NULL; }
}
}
else if (pickdata(bol, ifstat_linux_pcres[1], 1, &rxstr, &txstr)) dmatch |= 6;
break;
case OS_FREEBSD:
if (pickdata(bol, ifstat_freebsd_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_OPENBSD:
if (pickdata(bol, ifstat_openbsd_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_NETBSD:
if (pickdata(bol, ifstat_netbsd_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_SOLARIS:
if (pickdata(bol, ifstat_solaris_pcres[0], 0, &ifname, &txstr)) dmatch |= 1;
else if (pickdata(bol, ifstat_solaris_pcres[1], 0, &dummy, &rxstr)) dmatch |= 6;
if (ifname && dummy && (strcmp(ifname, dummy) != 0)) {
/* They must match, drop the data */
errprintf("Host %s has weird ifstat data - device name mismatch %s:%s\n", hostname, ifname, dummy);
xfree(ifname); xfree(txstr); xfree(rxstr); xfree(dummy);
dmatch = 0;
}
break;
case OS_AIX:
if (pickdata(bol, ifstat_aix_pcres[0], 1, &ifname)) {
/* Interface names comes first, so any rx/tx data is discarded */
dmatch |= 1;
if (rxstr) { xfree(rxstr); rxstr = NULL; }
if (txstr) { xfree(txstr); txstr = NULL; }
}
else if (pickdata(bol, ifstat_aix_pcres[1], 1, &txstr, &rxstr)) dmatch |= 6;
break;
case OS_HPUX:
if (pickdata(bol, ifstat_hpux_pcres[0], 1, &ifname)) {
/* Interface names comes first, so any rx/tx data is discarded */
dmatch |= 1;
if (rxstr) { xfree(rxstr); rxstr = NULL; }
if (txstr) { xfree(txstr); txstr = NULL; }
}
else if (pickdata(bol, ifstat_hpux_pcres[1], 1, &rxstr)) dmatch |= 2;
else if (pickdata(bol, ifstat_hpux_pcres[2], 1, &txstr)) dmatch |= 4;
break;
case OS_DARWIN:
if (pickdata(bol, ifstat_darwin_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_SCO_SV:
if (pickdata(bol, ifstat_sco_sv_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
case OS_WIN32_BBWIN:
if (pickdata(bol, ifstat_bbwin_pcres[0], 0, &ifname, &rxstr, &txstr)) dmatch = 7;
break;
default:
break;
}
if ((dmatch == 7) && ifname && rxstr && txstr) {
setupfn2("%s.%s.rrd", "ifstat", ifname);
sprintf(rrdvalues, "%d:%s:%s", (int)tstamp, txstr, rxstr);
create_and_update_rrd(hostname, testname, classname, pagepaths, ifstat_params, ifstat_tpl);
xfree(ifname); xfree(rxstr); xfree(txstr);
if (dummy) xfree(dummy);
ifname = rxstr = txstr = dummy = NULL;
dmatch = 0;
}
if (eoln) {
*eoln = '\n';
bol = eoln+1;
if (*bol == '\0') bol = NULL;
}
else {
bol = NULL;
}
}
if (ifname) xfree(ifname);
if (rxstr) xfree(rxstr);
if (txstr) xfree(txstr);
if (dummy) xfree(dummy);
return 0;
}
