int
main(int argc, char **argv)
{
char *name, *hename;
char host[MAXHOSTNAMELEN];
__pmHostEnt *hep;
while (pmGetOptions(argc, argv, &opts) != EOF)
opts.errors++;
if (opts.errors || argc > opts.optind + 1) {
pmUsageMessage(&opts);
exit(1);
}
if (argc == opts.optind) {
if (gethostname(host, MAXHOSTNAMELEN) < 0) {
fprintf(stderr, "%s: gethostname failure\n", pmProgname);
exit(1);
}
name = host;
}
else
name = argv[opts.optind];
hep = __pmGetAddrInfo(name);
if (hep == NULL) {
printf("%s\n", name);
}
else {
hename = __pmHostEntGetName(hep);
printf("%s\n", hename ? hename : name);
}
exit(0);
}
int
main(int argc, char *argv[])
{
int c;
int sts;
char *rawfile = NULL;
int i;
int ctxid;
int first = 1;
int dflag = 0;
int iflag = 0;
int Lflag = 0;
int lflag = 0;
int Mflag = 0;
int mflag = 0;
int tflag = 0;
int vflag = 0;
int mode = PM_MODE_FORW;
__pmContext *ctxp;
pmResult *raw_result;
pmResult *skel_result = NULL;
pmResult *result;
struct timeval done;
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'a': /* dump everything */
dflag = iflag = lflag = mflag = sflag = tflag = 1;
break;
case 'd': /* dump pmDesc structures */
dflag = 1;
break;
case 'i': /* dump instance domains */
iflag = 1;
break;
case 'L': /* dump label, verbose */
Lflag = 1;
lflag = 1;
break;
case 'l': /* dump label */
lflag = 1;
break;
case 'm': /* dump metrics in log */
mflag = 1;
break;
case 'M': /* report <mark> records */
Mflag = 1;
break;
case 'r': /* read log in reverse chornological order */
mode = PM_MODE_BACK;
break;
case 's': /* report data size in log */
sflag = 1;
break;
case 't': /* dump temporal index */
tflag = 1;
break;
case 'v': /* verbose, dump in raw format */
vflag = 1;
rawfile = opts.optarg;
break;
case 'x': /* report Ddd Mmm DD <timestamp> YYYY */
/* -xx reports numeric timeval also */
xflag++;
break;
}
}
if (opts.errors ||
(vflag && opts.optind != argc) ||
(!vflag && opts.optind > argc - 1 && !opts.narchives)) {
pmUsageMessage(&opts);
exit(1);
}
if (vflag) {
FILE *f;
if ((f = fopen(rawfile, "r")) == NULL) {
fprintf(stderr, "%s: Cannot open \"%s\": %s\n", pmProgname, rawfile, osstrerror());
exit(1);
}
printf("Raw dump of physical archive file \"%s\" ...\n", rawfile);
rawdump(f);
exit(0);
}
if (dflag + iflag + lflag + mflag + tflag == 0)
mflag = 1; /* default */
/* delay option end processing until now that we have the archive name */
if (opts.narchives == 0)
__pmAddOptArchive(&opts, argv[opts.optind++]);
opts.flags &= ~PM_OPTFLAG_DONE;
__pmEndOptions(&opts);
if ((sts = ctxid = pmNewContext(PM_CONTEXT_ARCHIVE, opts.archives[0])) < 0) {
fprintf(stderr, "%s: Cannot open archive \"%s\": %s\n",
pmProgname, opts.archives[0], pmErrStr(sts));
exit(1);
}
/* complete TZ and time window option (origin) setup */
if (pmGetContextOptions(ctxid, &opts)) {
pmflush();
exit(1);
}
numpmid = argc - opts.optind;
if (numpmid) {
numpmid = 0;
pmid = NULL;
for (i = 0; opts.optind < argc; i++, opts.optind++) {
numpmid++;
pmid = (pmID *)realloc(pmid, numpmid * sizeof(pmID));
if ((sts = pmLookupName(1, &argv[opts.optind], &pmid[numpmid-1])) < 0) {
if (sts == PM_ERR_NONLEAF) {
numpmid--;
if ((sts = pmTraversePMNS(argv[opts.optind], dometric)) < 0)
fprintf(stderr, "%s: pmTraversePMNS(%s): %s\n",
pmProgname, argv[opts.optind], pmErrStr(sts));
}
else
fprintf(stderr, "%s: pmLookupName(%s): %s\n",
pmProgname, argv[opts.optind], pmErrStr(sts));
if (sts < 0)
numpmid--;
}
}
if (numpmid == 0) {
fprintf(stderr, "No metric names can be translated, dump abandoned\n");
exit(1);
}
}
if ((sts = pmGetArchiveLabel(&label)) < 0) {
fprintf(stderr, "%s: Cannot get archive label record: %s\n",
pmProgname, pmErrStr(sts));
exit(1);
}
if (numpmid > 0) {
/*
* setup dummy pmResult
*/
skel_result = (pmResult *)malloc(sizeof(pmResult)+(numpmid-1)*sizeof(pmValueSet *));
if (skel_result == NULL) {
fprintf(stderr, "%s: malloc(skel_result): %s\n", pmProgname, osstrerror());
exit(1);
}
}
/*
* Note: ctxp->c_lock remains locked throughout ... __pmHandleToPtr()
* is only called once, and a single context is used throughout
* ... so there is no PM_UNLOCK(ctxp->c_lock) anywhere in the
* pmdumplog code.
* This works because ctxp->c_lock is a recursive lock and
* pmdumplog is single-threaded.
*/
if ((ctxp = __pmHandleToPtr(ctxid)) == NULL) {
fprintf(stderr, "%s: botch: __pmHandleToPtr(%d) returns NULL!\n",
pmProgname, ctxid);
exit(1);
}
pmSetMode(mode, &opts.start, 0);
if (lflag)
dumpLabel(Lflag);
if (dflag)
dumpDesc(ctxp);
if (iflag)
dumpInDom(ctxp);
if (tflag)
dumpTI(ctxp);
if (mflag) {
if (mode == PM_MODE_FORW) {
if (opts.start_optarg != NULL || opts.finish_optarg != NULL) {
/* -S or -T */
sts = pmSetMode(mode, &opts.start, 0);
done = opts.finish;
}
else {
/* read the whole archive */
done.tv_sec = 0;
done.tv_usec = 0;
sts = pmSetMode(mode, &done, 0);
done.tv_sec = INT_MAX;
}
}
else {
if (opts.start_optarg != NULL || opts.finish_optarg != NULL) {
/* -S or -T */
done.tv_sec = INT_MAX;
done.tv_usec = 0;
sts = pmSetMode(mode, &done, 0);
done = opts.start;
}
else {
/* read the whole archive backwards */
done.tv_sec = INT_MAX;
done.tv_usec = 0;
sts = pmSetMode(mode, &done, 0);
done.tv_sec = 0;
}
}
if (sts < 0) {
fprintf(stderr, "%s: pmSetMode: %s\n", pmProgname, pmErrStr(sts));
exit(1);
}
sts = 0;
for ( ; ; ) {
sts = __pmLogFetch(ctxp, 0, NULL, &raw_result);
if (sts < 0)
break;
if (numpmid == 0 || (raw_result->numpmid == 0 && Mflag)) {
/*
* want 'em all or <mark> record ...
*/
result = raw_result;
}
else if (numpmid > 0) {
/*
* cherry pick from raw_result if pmid matches one
* of interest
*/
int picked = 0;
int j;
skel_result->timestamp = raw_result->timestamp;
for (j = 0; j < numpmid; j++)
skel_result->vset[j] = NULL;
for (i = 0; i < raw_result->numpmid; i++) {
for (j = 0; j < numpmid; j++) {
if (pmid[j] == raw_result->vset[i]->pmid) {
skel_result->vset[j] = raw_result->vset[i];
picked++;
break;
}
}
}
if (picked == 0) {
/* no metrics of interest, skip this record */
pmFreeResult(raw_result);
continue;
}
skel_result->numpmid = picked;
if (picked != numpmid) {
/* did not find 'em all ... shuffle time */
int j;
i = 0;
for (j = 0; j < numpmid; j++) {
if (skel_result->vset[j] != NULL)
skel_result->vset[i++] = skel_result->vset[j];
}
}
result = skel_result;
}
else {
/* not interesting */
pmFreeResult(raw_result);
continue;
}
if (first && mode == PM_MODE_BACK) {
first = 0;
printf("\nLog finished at %24.24s - dump in reverse order\n",
pmCtime(&result->timestamp.tv_sec, timebuf));
}
if ((mode == PM_MODE_FORW && tvcmp(result->timestamp, done) > 0) ||
(mode == PM_MODE_BACK && tvcmp(result->timestamp, done) < 0)) {
sts = PM_ERR_EOL;
break;
}
putchar('\n');
dump_result(result);
pmFreeResult(raw_result);
}
if (sts != PM_ERR_EOL) {
fprintf(stderr, "%s: pmFetch: %s\n", pmProgname, pmErrStr(sts));
exit(1);
}
}
exit(0);
}
int
main(int argc, char **argv)
{
int c;
int sts;
int samples;
int pauseFlag = 0;
int lines = 0;
char *source;
const char *host;
info_t info; /* values to report each sample */
char timebuf[26]; /* for pmCtime result */
setlinebuf(stdout);
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'P':
pauseFlag++;
break;
default:
opts.errors++;
break;
}
}
if (pauseFlag && opts.context != PM_CONTEXT_ARCHIVE) {
pmprintf("%s: pause can only be used with archives\n", pmProgname);
opts.errors++;
}
if (opts.errors || opts.optind < argc - 1) {
pmUsageMessage(&opts);
exit(1);
}
if (opts.context == PM_CONTEXT_ARCHIVE) {
source = opts.archives[0];
} else if (opts.context == PM_CONTEXT_HOST) {
source = opts.hosts[0];
} else {
opts.context = PM_CONTEXT_HOST;
source = "local:";
}
if ((sts = c = pmNewContext(opts.context, source)) < 0) {
if (opts.context == PM_CONTEXT_HOST)
fprintf(stderr, "%s: Cannot connect to PMCD on host \"%s\": %s\n",
pmProgname, source, pmErrStr(sts));
else
fprintf(stderr, "%s: Cannot open archive \"%s\": %s\n",
pmProgname, source, pmErrStr(sts));
exit(1);
}
/* complete TZ and time window option (origin) setup */
if (pmGetContextOptions(c, &opts)) {
pmflush();
exit(1);
}
host = pmGetContextHostName(c);
ncpu = get_ncpu();
if ((opts.context == PM_CONTEXT_ARCHIVE) &&
(opts.start.tv_sec != 0 || opts.start.tv_usec != 0)) {
if ((sts = pmSetMode(PM_MODE_FORW, &opts.start, 0)) < 0) {
fprintf(stderr, "%s: pmSetMode failed: %s\n",
pmProgname, pmErrStr(sts));
exit(1);
}
}
get_sample(&info);
/* set a default sampling interval if none has been requested */
if (opts.interval.tv_sec == 0 && opts.interval.tv_usec == 0)
opts.interval.tv_sec = 5;
/* set sampling loop termination via the command line options */
samples = opts.samples ? opts.samples : -1;
while (samples == -1 || samples-- > 0) {
if (lines % 15 == 0) {
if (opts.context == PM_CONTEXT_ARCHIVE)
printf("Archive: %s, ", opts.archives[0]);
printf("Host: %s, %d cpu(s), %s",
host, ncpu,
pmCtime((const time_t *)&info.timestamp.tv_sec, timebuf));
/* - report format
CPU Busy Busy Free Mem Disk Load Average
Util CPU Util (Mbytes) IOPS 1 Min 15 Min
X.XXX XXX X.XXX XXXXX.XXX XXXXXX XXXX.XX XXXX.XX
*/
printf(" CPU");
if (ncpu > 1)
printf(" Busy Busy");
printf(" Free Mem Disk Load Average\n");
printf(" Util");
if (ncpu > 1)
printf(" CPU Util");
printf(" (Mbytes) IOPS 1 Min 15 Min\n");
}
if (opts.context != PM_CONTEXT_ARCHIVE || pauseFlag)
__pmtimevalSleep(opts.interval);
get_sample(&info);
printf("%5.2f", info.cpu_util);
if (ncpu > 1)
printf(" %3d %5.2f", info.peak_cpu, info.peak_cpu_util);
printf(" %9.3f", info.freemem);
printf(" %6d", info.dkiops);
printf(" %7.2f %7.2f\n", info.load1, info.load15);
lines++;
}
exit(0);
}
int
main(int argc, char **argv)
{
int c;
char *p;
int ctx;
int sts;
char *configfile = NULL;
int fflag = 0;
int iflag = 0;
int lflag = 0;
pmSetProgname(argv[0]);
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'c': /* my configfile */
if (configfile != NULL) {
fprintf(stderr, "%s: at most one -c option allowed\n", pmGetProgname());
exit(EXIT_FAILURE);
}
configfile = opts.optarg;
break;
case 'f': /* my flag */
fflag++;
break;
case 'i': /* my instances */
iflag++;
/* TODO extract instances from opts.optarg */
break;
case 'l': /* my logfile */
if (lflag) {
fprintf(stderr, "%s: at most one -l option allowed\n", pmGetProgname());
exit(EXIT_FAILURE);
}
pmOpenLog(pmGetProgname(), opts.optarg, stderr, &sts);
if (sts != 1) {
fprintf(stderr, "%s: Could not open logfile \"%s\"\n", pmGetProgname(), opts.optarg);
exit(EXIT_FAILURE);
}
lflag++;
break;
}
}
if (opts.flags & PM_OPTFLAG_EXIT) {
pmflush();
pmUsageMessage(&opts);
exit(0);
}
if (opts.narchives == 1) {
if ((ctx = pmNewContext(PM_CONTEXT_ARCHIVE, opts.archives[0])) < 0) {
fprintf(stderr, "%s: Cannot open archive \"%s\": %s\n",
pmGetProgname(), opts.archives[0], pmErrStr(ctx));
exit(EXIT_FAILURE);
}
if ((sts = pmGetContextOptions(ctx, &opts)) < 0) {
pmflush();
fprintf(stderr, "%s: pmGetContextOptions(%d, ...) failed: %s\n",
pmGetProgname(), pmWhichContext(), pmErrStr(sts));
exit(EXIT_FAILURE);
}
}
else if (opts.narchives > 0) {
fprintf(stderr, "%s: at most one archive allowed\n", pmGetProgname());
exit(EXIT_FAILURE);
}
if (opts.nhosts == 1) {
if ((ctx = pmNewContext(PM_CONTEXT_HOST, opts.hosts[0])) < 0) {
fprintf(stderr, "%s: Cannot connect to pmcd on host \"%s\": %s\n",
pmGetProgname(), opts.hosts[0], pmErrStr(ctx));
exit(EXIT_FAILURE);
}
}
else if (opts.nhosts > 0) {
fprintf(stderr, "%s: at most one host allowed\n", pmGetProgname());
exit(EXIT_FAILURE);
}
if (opts.errors) {
pmUsageMessage(&opts);
exit(EXIT_FAILURE);
}
if (opts.align_optarg != NULL)
printf("Got -A \"%s\"\n", opts.align_optarg);
if (opts.guiflag)
printf("Got -g\n");
if (opts.nsflag)
printf("Loaded PMNS\n");
if (opts.guiport)
printf("Got -p \"%s\"\n", opts.guiport_optarg);
if (opts.align_optarg != NULL || opts.start_optarg != NULL ||
opts.finish_optarg != NULL || opts.origin_optarg != NULL) {
printf("Start time: ");
pmPrintStamp(stdout, &opts.start);
putchar('\n');
printf("Origin time: ");
pmPrintStamp(stdout, &opts.origin);
putchar('\n');
printf("Finish time: ");
pmPrintStamp(stdout, &opts.finish);
putchar('\n');
}
if (sflag)
printf("Got -s \"%d\"\n", opts.samples);
if (opts.interval.tv_sec > 0 || opts.interval.tv_usec > 0)
printf("Got -t %d.%06d (secs)\n",
(int)opts.interval.tv_sec, (int)opts.interval.tv_usec);
p = getenv("PCP_CONTAINER");
if (p != NULL)
printf("Got --container=\"%s\"\n", p);
if (opts.timezone != NULL)
printf("Got -Z \"%s\"\n", opts.timezone);
if (opts.tzflag)
printf("Got -z\n");
if (opts.Lflag)
printf("Got -L\n");
/* non-flag args are argv[optind] ... argv[argc-1] */
while (opts.optind < argc) {
printf("extra argument[%d]: %s\n", opts.optind, argv[opts.optind]);
opts.optind++;
}
while (!sflag || opts.samples-- > 0) {
/* put real stuff here */
break;
}
return 0;
}
int
main(int argc, char *argv[])
{
int c;
int sts;
int ctx;
int i;
int lflag = 0; /* no label by default */
int nfile;
int n;
char *p;
struct dirent **namelist;
__pmContext *ctxp;
char *archpathname; /* from the command line */
char *archdirname; /* after dirname() */
char archname[MAXPATHLEN]; /* full pathname to base of archive name */
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'l': /* display the archive label */
lflag = 1;
break;
case 'v': /* bump verbosity */
vflag++;
break;
}
}
if (!opts.errors && opts.optind >= argc) {
pmprintf("Error: no archive specified\n\n");
opts.errors++;
}
if (opts.errors) {
pmUsageMessage(&opts);
exit(EXIT_FAILURE);
}
sep = __pmPathSeparator();
setlinebuf(stderr);
__pmAddOptArchive(&opts, argv[opts.optind]);
opts.flags &= ~PM_OPTFLAG_DONE;
__pmEndOptions(&opts);
archpathname = argv[opts.optind];
archbasename = strdup(basename(strdup(archpathname)));
/*
* treat foo, foo.index, foo.meta, foo.NNN as all equivalent
* to "foo"
*/
p = strrchr(archbasename, '.');
if (p != NULL) {
if (strcmp(p, ".index") == 0 || strcmp(p, ".meta") == 0)
*p = '\0';
else {
char *q = p;
q++;
if (isdigit(*q)) {
/*
* foo.<digit> ... if archpathname does exist, then
* safe to strip digits, else leave as is for the
* case of, e.g. archive-20150415.041154 which is the
* pmmgr basename for an archive with a first volume
* named archive-20150415.041154.0
*/
if (access(archpathname, F_OK) == 0) {
q++;
while (*q && isdigit(*q))
q++;
if (*q == '\0')
*p = '\0';
}
}
}
}
archdirname = dirname(strdup(archpathname));
if (vflag)
fprintf(stderr, "Scanning for components of archive \"%s\"\n", archpathname);
nfile = scandir(archdirname, &namelist, filter, NULL);
if (nfile < 1) {
fprintf(stderr, "%s: no PCP archive files match \"%s\"\n", pmProgname, archpathname);
exit(EXIT_FAILURE);
}
/*
* Pass 0 for data, metadata and index files ... check physical
* archive record structure, then label record
*/
sts = STS_OK;
for (i = 0; i < nfile; i++) {
char path[MAXPATHLEN];
if (strcmp(archdirname, ".") == 0) {
/* skip ./ prefix */
strncpy(path, namelist[i]->d_name, sizeof(path));
}
else {
snprintf(path, sizeof(path), "%s%c%s", archdirname, sep, namelist[i]->d_name);
}
if (pass0(path) == STS_FATAL)
/* unrepairable or unrepaired error */
sts = STS_FATAL;
}
if (meta_state == STATE_MISSING) {
fprintf(stderr, "%s%c%s.meta: missing metadata file\n", archdirname, sep, archbasename);
sts = STS_FATAL;
}
if (log_state == STATE_MISSING) {
fprintf(stderr, "%s%c%s.0 (or similar): missing log file \n", archdirname, sep, archbasename);
sts = STS_FATAL;
}
if (sts == STS_FATAL) {
if (vflag) fprintf(stderr, "Due to earlier errors, cannot continue ... bye\n");
exit(EXIT_FAILURE);
}
if ((sts = ctx = pmNewContext(PM_CONTEXT_ARCHIVE, archpathname)) < 0) {
fprintf(stderr, "%s: cannot open archive \"%s\": %s\n", pmProgname, archpathname, pmErrStr(sts));
fprintf(stderr, "Checking abandoned.\n");
exit(EXIT_FAILURE);
}
if (pmGetContextOptions(ctx, &opts) < 0) {
pmflush(); /* runtime errors only at this stage */
exit(EXIT_FAILURE);
}
if (lflag)
dumpLabel();
/*
* Note: ctxp->c_lock remains locked throughout ... __pmHandleToPtr()
* is only called once, and a single context is used throughout
* ... so there is no PM_UNLOCK(ctxp->c_lock) anywhere in the
* pmchecklog code.
* This works because ctxp->c_lock is a recursive lock and
* pmchecklog is single-threaded.
*/
if ((n = pmWhichContext()) >= 0) {
if ((ctxp = __pmHandleToPtr(n)) == NULL) {
fprintf(stderr, "%s: botch: __pmHandleToPtr(%d) returns NULL!\n", pmProgname, n);
exit(EXIT_FAILURE);
}
}
else {
fprintf(stderr, "%s: botch: %s!\n", pmProgname, pmErrStr(PM_ERR_NOCONTEXT));
exit(EXIT_FAILURE);
}
if (strcmp(archdirname, ".") == 0)
/* skip ./ prefix */
strncpy(archname, archbasename, sizeof(archname) - 1);
else
snprintf(archname, sizeof(archname), "%s%c%s", archdirname, sep, archbasename);
sts = pass1(ctxp, archname);
if (index_state == STATE_BAD) {
/* prevent subsequent use of bad temporal index */
ctxp->c_archctl->ac_log->l_numti = 0;
}
sts = pass2(ctxp, archname);
sts = pass3(ctxp, archname, &opts);
if (vflag) {
if (result_count > 0)
fprintf(stderr, "Processed %d pmResult records\n", result_count);
if (mark_count > 0)
fprintf(stderr, "Processed %d <mark> records\n", mark_count);
}
return 0;
}
int
main(int argc, char *argv[])
{
int sts;
int ctx;
int c;
char *infile;
int nfilelist;
int filenum;
char *archive = NULL;
int j;
char *buf;
fields_t *f;
char *s;
int gzipped;
FILE *fp;
metric_t *m;
handler_t *h;
int unhandled_metric_cnt = 0;
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'F':
Fflag = 1;
break;
case 'v':
vflag++;
break;
}
}
nfilelist = argc - opts.optind - 1;
if (nfilelist < 1)
opts.errors++;
else
archive = argv[argc - 1];
if (opts.errors) {
pmUsageMessage(&opts);
exit(1);
}
if ((buf = malloc(BUFSIZE)) == NULL) {
perror("Error: out of memory:");
exit(1);
}
if (Fflag) {
snprintf(buf, BUFSIZE, "%s.meta", archive); unlink(buf);
snprintf(buf, BUFSIZE, "%s.index", archive); unlink(buf);
for (j=0;; j++) {
snprintf(buf, BUFSIZE, "%s.%d", archive, j);
if (unlink(buf) < 0)
break;
}
}
ctx = pmiStart(archive, 0);
if ((sts = pmiUseContext(ctx)) < 0) {
fprintf(stderr, "Error: pmiUseContext failed: %s\n", pmiErrStr(sts));
exit(1);
}
/*
* Define the metrics name space, see metrics.c (generated by pmdesc)
*/
for (m = metrics; m->name; m++) {
pmDesc *d = &m->desc;
sts = pmiAddMetric(m->name, d->pmid, d->type, d->indom, d->sem, d->units);
if (sts < 0) {
fprintf(stderr, "Error: failed to add metric %s: %s\n", m->name, pmiErrStr(sts));
exit(1);
}
}
/*
* Populate special case instance domains
*/
pmiAddInstance(pmInDom_build(LINUX_DOMAIN, LOADAVG_INDOM), "1 minute", 1);
pmiAddInstance(pmInDom_build(LINUX_DOMAIN, LOADAVG_INDOM), "5 minute", 5);
pmiAddInstance(pmInDom_build(LINUX_DOMAIN, LOADAVG_INDOM), "15 minute", 15);
indom_cnt[LOADAVG_INDOM] = 3;
for (filenum=0; filenum < nfilelist; filenum++) {
infile = argv[opts.optind + filenum];
gzipped = strstr(infile, ".gz") != NULL;
if (gzipped) {
snprintf(buf, BUFSIZE, "gzip -c -d %s", infile);
if ((fp = popen(buf, "r")) == NULL)
perror(buf);
}
else
if ((fp = fopen(infile, "r")) == NULL)
perror(infile);
if (fp == NULL) {
pmUsageMessage(&opts);
exit(1);
}
/*
* parse the header
*/
sts = header_handler(fp, infile, buf, BUFSIZE);
/*
* Parse remaining data stream for this input file
*/
while(fgets(buf, BUFSIZE, fp)) {
if ((s = strrchr(buf, '\n')) != NULL)
*s = '\0';
if (!buf[0])
continue;
f = fields_new(buf, strlen(buf)+1);
if (f->nfields > 0) {
if ((h = find_handler(f->fields[0])) == NULL) {
unhandled_metric_cnt++;
if (vflag > 1)
printf("Unhandled tag: \"%s\"\n", f->fields[0]);
}
else {
sts = h->handler(h, f);
if (sts < 0 && h->handler == timestamp_handler) {
fprintf(stderr, "Error: %s\n", pmiErrStr(sts));
exit(1);
}
}
}
fields_free(f);
}
/* final flush for this file */
if ((sts = timestamp_flush()) < 0) {
fprintf(stderr, "Error: failed to write final timestamp: %s\n", pmiErrStr(sts));
exit(1);
}
if (gzipped)
pclose(fp);
else
fclose(fp);
}
sts = pmiEnd();
if (unhandled_metric_cnt && vflag)
fprintf(stderr, "Warning: %d unhandled metric/values\n", unhandled_metric_cnt);
exit(0);
}
int main(int argc, char **argv)
{
int autoport = 0;
QApplication a(argc, argv);
setupEnvironment();
/* -a/-h ignored, back-compat for time control from libpcp_gui */
opts.short_options = "ahD:p:V?";
opts.long_options = longopts;
(void)pmGetOptions(argc, argv, &opts);
if (opts.errors || opts.optind != argc) {
pmUsageMessage(&opts);
exit(1);
}
if (!opts.guiport) {
char *endnum, *envstr;
autoport = 1;
if ((envstr = getenv("PMTIME_PORT")) == NULL) {
opts.guiport = PmTime::BasePort;
} else {
opts.guiport = strtol(envstr, &endnum, 0);
if (*endnum != '\0' || opts.guiport < 0) {
pmprintf(
"%s: PMTIME_PORT must be a numeric port number (not %s)\n",
pmProgname, envstr);
pmflush();
exit(1);
}
}
}
console = new Console;
TimeLord tl(&a);
do {
if (tl.listen(QHostAddress::LocalHost, opts.guiport))
break;
opts.guiport++;
} while (autoport && (opts.guiport >= 0));
if (!opts.guiport || tl.isListening() == false) {
if (!autoport)
pmprintf("%s: cannot find an available port\n", pmProgname);
else
pmprintf("%s: cannot connect to requested port (%d)\n",
pmProgname, opts.guiport);
pmflush();
exit(1);
} else if (autoport) { /* write to stdout for client */
char name[32];
int c = snprintf(name, sizeof(name), "port=%u\n", opts.guiport);
if (write(fileno(stdout), name, c + 1) < 0) {
if (errno != EPIPE) {
pmprintf("%s: cannot write port for client: %s\n",
pmProgname, strerror(errno));
pmflush();
}
exit(1);
}
}
PmTimeLive hc;
PmTimeArch ac;
tl.setContext(&hc, &ac);
hc.init();
if (!pmDebug) hc.disableConsole();
else hc.popup(1);
ac.init();
if (!pmDebug) ac.disableConsole();
else ac.popup(1);
a.exec();
return 0;
}
int
main(int argc, char *argv[])
{
int c;
int sts;
char *endnum;
pmDesc desc;
int one_trip = 1;
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'w': /* wide flag */
line_fmt = "%.1024s";
break;
case 'p': /* show flag */
if (one_trip) {
show_spec = 0;
one_trip = 0;
}
if ((sts = parse_show_spec(opts.optarg)) < 0) {
pmprintf("%s: unrecognized print flag specification (%s)\n",
pmProgname, opts.optarg);
opts.errors++;
} else {
show_spec |= sts;
}
break;
case 'm': /* top N */
top = (int)strtol(opts.optarg, &endnum, 10);
if (top <= 0) {
pmprintf("%s: -m requires a positive integer\n", pmProgname);
opts.errors++;
}
break;
}
}
if (opts.optind < argc)
opts.errors++;
if (opts.errors) {
pmUsageMessage(&opts);
exit(1);
}
create_namelist();
if (opts.interval.tv_sec == 0)
opts.interval.tv_sec = 2;
if (opts.nhosts > 0)
hostname = opts.hosts[0];
else
hostname = "local:";
if ((sts = c = pmNewContext(PM_CONTEXT_HOST, hostname)) < 0) {
fprintf(stderr, "%s: Cannot connect to PMCD on host \"%s\": %s\n",
pmProgname, hostname, pmErrStr(sts));
exit(1);
}
hostname = (char *)pmGetContextHostName(c);
if (pmGetContextOptions(c, &opts)) {
pmflush();
exit(1);
}
if ((sts = pmLookupName(num_pmid, namelist, pmidlist)) < 0) {
fprintf(stderr, "%s: Failed to lookup metrics : %s\n",
pmProgname, pmErrStr(sts));
exit(1);
}
for (c = 0; c < num_pmid; c++) {
if ((sts = pmLookupDesc(pmidlist[c], &desc)) < 0) {
fprintf(stderr, "%s: Failed to lookup descriptor for metric \"%s\": %s\n",
pmProgname, namelist[c], pmErrStr(sts));
exit(1);
}
type_tab[c] = desc.type;
/* ASSUMES that the first metric will always be a proc metric */
if (c == 0) {
proc_indom = desc.indom;
}
}
for (;;) {
doit();
__pmtimevalSleep(opts.interval);
}
return 0;
}
int
main(int argc, char **argv)
{
int c;
int sts;
int samples;
int pauseFlag = 0;
int lines = 0;
char *source;
const char *host;
char timebuf[26]; /* for pmCtime result */
setlinebuf(stdout);
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'P':
pauseFlag++;
break;
default:
opts.errors++;
break;
}
}
if (pauseFlag && opts.context != PM_CONTEXT_ARCHIVE) {
pmprintf("%s: pause can only be used with archives\n", pmGetProgname());
opts.errors++;
}
if (opts.errors || opts.optind < argc - 1) {
pmUsageMessage(&opts);
exit(1);
}
if (opts.context == PM_CONTEXT_ARCHIVE) {
source = opts.archives[0];
} else if (opts.context == PM_CONTEXT_HOST) {
source = opts.hosts[0];
} else {
opts.context = PM_CONTEXT_HOST;
source = "local:";
}
sts = pmCreateFetchGroup(& pmfg, opts.context, source);
if (sts < 0) {
if (opts.context == PM_CONTEXT_HOST)
fprintf(stderr, "%s: Cannot connect to PMCD on host \"%s\": %s\n",
pmGetProgname(), source, pmErrStr(sts));
else
fprintf(stderr, "%s: Cannot open archive \"%s\": %s\n",
pmGetProgname(), source, pmErrStr(sts));
exit(1);
}
c = pmGetFetchGroupContext(pmfg);
/* complete TZ and time window option (origin) setup */
if (pmGetContextOptions(c, &opts)) {
pmflush();
exit(1);
}
host = pmGetContextHostName(c);
/* set a default sampling interval if none has been requested */
if (opts.interval.tv_sec == 0 && opts.interval.tv_usec == 0)
opts.interval.tv_sec = 5;
if (opts.context == PM_CONTEXT_ARCHIVE) {
if ((sts = pmSetMode(PM_MODE_INTERP, &opts.start, (int)(opts.interval.tv_sec*1000 + opts.interval.tv_usec/1000))) < 0) {
fprintf(stderr, "%s: pmSetMode failed: %s\n",
pmGetProgname(), pmErrStr(sts));
exit(1);
}
}
if (opts.context == PM_CONTEXT_ARCHIVE)
get_sample(); /* fetch the separate early ncpu record */
get_sample(); /* fetch other rate metrics */
/* set sampling loop termination via the command line options */
samples = opts.samples ? opts.samples : -1;
while (samples == -1 || samples-- > 0) {
if (lines % 15 == 0) {
time_t now = info.timestamp.tv_sec;
if (opts.context == PM_CONTEXT_ARCHIVE)
printf("Archive: %s, ", opts.archives[0]);
printf("Host: %s, %d cpu(s), %s",
host, info.ncpu.l,
pmCtime(&now, timebuf));
/* - report format
CPU Busy Busy Free Mem Disk Load Average
Util CPU Util (Mbytes) IOPS 1 Min 15 Min
X.XXX XXX X.XXX XXXXX.XXX XXXXXX XXXX.XX XXXX.XX
*/
printf(" CPU");
if (info.ncpu.l > 1)
printf(" Busy Busy");
printf(" Free Mem Disk Load Average\n");
printf(" Util");
if (info.ncpu.l > 1)
printf(" CPU Util");
printf(" (Mbytes) IOPS 1 Min 15 Min\n");
}
if (opts.context != PM_CONTEXT_ARCHIVE || pauseFlag)
__pmtimevalSleep(opts.interval);
get_sample();
printf("%5.2f", info.cpu_util);
if (info.ncpu.l > 1)
printf(" %3d %5.2f", info.peak_cpu, info.peak_cpu_util);
printf(" %9.3f", info.freemem.d);
printf(" %6d", info.dkiops.l);
printf(" %7.2f %7.2f\n", info.load1.d, info.load15.d);
lines++;
}
exit(0);
}
int
main(int argc, char **argv)
{
int sts;
int n;
int c;
int i;
char *p;
char *source;
char *namelist[1];
pmID pmidlist[1];
pmResult *result;
char **instnames = NULL;
int numinst = 0;
int force = 0;
pmDesc desc;
pmAtomValue nav;
pmValueSet *vsp;
char *subopt;
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'f':
force++;
break;
case 'i': /* list of instances */
#define WHITESPACE ", \t\n"
subopt = strtok(opts.optarg, WHITESPACE);
while (subopt != NULL) {
numinst++;
n = numinst * sizeof(char *);
instnames = (char **)realloc(instnames, n);
if (instnames == NULL)
__pmNoMem("pmstore.instnames", n, PM_FATAL_ERR);
instnames[numinst-1] = subopt;
subopt = strtok(NULL, WHITESPACE);
}
#undef WHITESPACE
break;
default:
opts.errors++;
break;
}
}
if (opts.errors || opts.optind != argc - 2) {
pmUsageMessage(&opts);
exit(1);
}
if (opts.context == PM_CONTEXT_HOST)
source = opts.hosts[0];
else if (opts.context == PM_CONTEXT_LOCAL)
source = NULL;
else {
opts.context = PM_CONTEXT_HOST;
source = "local:";
}
if ((sts = pmNewContext(opts.context, source)) < 0) {
if (opts.context == PM_CONTEXT_LOCAL)
fprintf(stderr, "%s: Cannot make standalone local connection: %s\n",
pmProgname, pmErrStr(sts));
else
fprintf(stderr, "%s: Cannot connect to PMCD on host \"%s\": %s\n",
pmProgname, source, pmErrStr(sts));
exit(1);
}
namelist[0] = argv[opts.optind++];
if ((n = pmLookupName(1, namelist, pmidlist)) < 0) {
printf("%s: pmLookupName: %s\n", namelist[0], pmErrStr(n));
exit(1);
}
if (pmidlist[0] == PM_ID_NULL) {
printf("%s: unknown metric\n", namelist[0]);
exit(1);
}
if ((n = pmLookupDesc(pmidlist[0], &desc)) < 0) {
printf("%s: pmLookupDesc: %s\n", namelist[0], pmErrStr(n));
exit(1);
}
if (desc.type == PM_TYPE_AGGREGATE || desc.type == PM_TYPE_AGGREGATE_STATIC) {
fprintf(stderr, "%s: Cannot modify values for PM_TYPE_AGGREGATE metrics\n",
pmProgname);
exit(1);
}
if (desc.type == PM_TYPE_EVENT || desc.type == PM_TYPE_HIGHRES_EVENT) {
fprintf(stderr, "%s: Cannot modify values for event type metrics\n",
pmProgname);
exit(1);
}
if (instnames != NULL) {
pmDelProfile(desc.indom, 0, NULL);
for (i = 0; i < numinst; i++) {
if ((n = pmLookupInDom(desc.indom, instnames[i])) < 0) {
printf("pmLookupInDom %s[%s]: %s\n",
namelist[0], instnames[i], pmErrStr(n));
exit(1);
}
if ((sts = pmAddProfile(desc.indom, 1, &n)) < 0) {
printf("pmAddProfile %s[%s]: %s\n",
namelist[0], instnames[i], pmErrStr(sts));
exit(1);
}
}
}
if ((n = pmFetch(1, pmidlist, &result)) < 0) {
printf("%s: pmFetch: %s\n", namelist[0], pmErrStr(n));
exit(1);
}
/* value is argv[opts.optind] */
mkAtom(&nav, desc.type, argv[opts.optind]);
vsp = result->vset[0];
if (vsp->numval < 0) {
printf("%s: Error: %s\n", namelist[0], pmErrStr(vsp->numval));
exit(1);
}
if (vsp->numval == 0) {
if (!force) {
printf("%s: No value(s) available!\n", namelist[0]);
exit(1);
}
else {
pmAtomValue tmpav;
mkAtom(&tmpav, PM_TYPE_STRING, "(none)");
vsp->numval = 1;
vsp->valfmt = __pmStuffValue(&tmpav, &vsp->vlist[0], PM_TYPE_STRING);
}
}
for (i = 0; i < vsp->numval; i++) {
pmValue *vp = &vsp->vlist[i];
printf("%s", namelist[0]);
if (desc.indom != PM_INDOM_NULL) {
if ((n = pmNameInDom(desc.indom, vp->inst, &p)) < 0)
printf(" inst [%d]", vp->inst);
else {
printf(" inst [%d or \"%s\"]", vp->inst, p);
free(p);
}
}
printf(" old value=");
pmPrintValue(stdout, vsp->valfmt, desc.type, vp, 1);
vsp->valfmt = __pmStuffValue(&nav, &vsp->vlist[i], desc.type);
printf(" new value=");
pmPrintValue(stdout, vsp->valfmt, desc.type, vp, 1);
putchar('\n');
}
if ((n = pmStore(result)) < 0) {
printf("%s: pmStore: %s\n", namelist[0], pmErrStr(n));
exit(1);
}
pmFreeResult(result);
exit(0);
}
int
main(int argc, char **argv)
{
int a, c;
int sts;
int exitsts = 0;
char *source;
char *endnum;
while ((c = pmGetOptions(argc, argv, &opts)) != EOF) {
switch (c) {
case 'b': /* batchsize */
batchsize = (int)strtol(opts.optarg, &endnum, 10);
if (*endnum != '\0') {
pmprintf("%s: -b requires numeric argument\n", pmProgname);
opts.errors++;
}
break;
case 'c': /* derived metrics config file */
sts = pmLoadDerivedConfig(opts.optarg);
if (sts < 0) {
fprintf(stderr, "%s: derived configuration(s) error: %s\n", pmProgname, pmErrStr(sts));
/* errors are not necessarily fatal ... */
}
break;
case 'd':
p_desc = 1;
need_context = 1;
need_pmid = 1;
break;
case 'F':
p_force = p_value = 1;
need_context = 1;
need_pmid = 1;
break;
case 'f':
p_value = 1;
need_context = 1;
need_pmid = 1;
break;
case 'M':
p_fullmid = 1;
p_mid = 1;
need_pmid = 1;
break;
case 'm':
p_mid = 1;
need_pmid = 1;
break;
case 't':
p_oneline = 1;
need_context = 1;
need_pmid = 1;
break;
case 'T':
p_help = 1;
need_context = 1;
need_pmid = 1;
break;
case 'v':
verify = 1;
need_context = 1;
need_pmid = 1;
break;
case 'x':
events = p_value = 1;
need_context = 1;
need_pmid = 1;
break;
}
}
if (opts.errors) {
pmUsageMessage(&opts);
exit(1);
}
if (opts.context)
need_context = 1;
if (opts.context == PM_CONTEXT_ARCHIVE)
/*
* for archives, one metric per batch and start at beginning of
* archive for each batch so metric will be found if it is in
* the archive
*/
batchsize = 1;
if (verify)
p_desc = p_mid = p_fullmid = p_help = p_oneline = p_value = p_force = 0;
if ((namelist = (char **)malloc(batchsize * sizeof(char *))) == NULL) {
fprintf(stderr, "%s: namelist malloc: %s\n", pmProgname, osstrerror());
exit(1);
}
if ((pmidlist = (pmID *)malloc(batchsize * sizeof(pmID))) == NULL) {
fprintf(stderr, "%s: pmidlist malloc: %s\n", pmProgname, osstrerror());
exit(1);
}
if (!opts.nsflag)
need_context = 1; /* for distributed PMNS as no PMNS file given */
if (need_context) {
int ctxid;
if (opts.context == PM_CONTEXT_ARCHIVE)
source = opts.archives[0];
else if (opts.context == PM_CONTEXT_HOST)
source = opts.hosts[0];
else if (opts.context == PM_CONTEXT_LOCAL)
source = NULL;
else {
opts.context = PM_CONTEXT_HOST;
source = "local:";
}
if ((sts = pmNewContext(opts.context, source)) < 0) {
if (opts.context == PM_CONTEXT_HOST)
fprintf(stderr, "%s: Cannot connect to PMCD on host \"%s\": %s\n",
pmProgname, source, pmErrStr(sts));
else if (opts.context == PM_CONTEXT_LOCAL)
fprintf(stderr, "%s: Cannot make standalone connection on localhost: %s\n",
pmProgname, pmErrStr(sts));
else
fprintf(stderr, "%s: Cannot open archive \"%s\": %s\n",
pmProgname, source, pmErrStr(sts));
exit(1);
}
ctxid = sts;
if (opts.context == PM_CONTEXT_ARCHIVE) {
pmTrimNameSpace();
/* complete TZ and time window option (origin) setup */
if (pmGetContextOptions(ctxid, &opts)) {
pmflush();
exit(1);
}
}
}
if (opts.optind >= argc) {
sts = pmTraversePMNS("", dometric);
if (sts < 0) {
fprintf(stderr, "Error: %s\n", pmErrStr(sts));
exitsts = 1;
}
}
else {
for (a = opts.optind; a < argc; a++) {
sts = pmTraversePMNS(argv[a], dometric);
if (sts < 0) {
fprintf(stderr, "Error: %s: %s\n", argv[a], pmErrStr(sts));
exitsts = 1;
}
}
}
report();
exit(exitsts);
}
