\n
%s
\n\n", anchor, title); gotos(outf, codeletter); fprintf(outf, "");
}
else {
fprintf(outf, "%s\n", title);
for (tempc = title; *tempc != '\0'; tempc++)
fprintf(outf, "-");
fprintf(outf, "\n");
}
genfloor = whatincluded(outf, sortby, minreqstr, minbytestr, singular,
plural, FALSE);
if (codeletter == 'i') {
if (!aq)
fprintf(outf, "
");
fprintf(outf, "Printing directories to depth %d.\n", dirlevel);
}
if (aq)
fprintf(outf, "\n");
else
fprintf(outf, "
");
tempint = 10000;
for (fieldwidth = 5; max_reqs / tempint >= 10; fieldwidth++)
tempint *= 10;
if (byq) {
if (rawbytes) {
tempint = 100000;
for (bfieldwidth = 6; max_bytes / tempint >= 10; bfieldwidth++)
tempint *= 10;
}
else
bfieldwidth = 6;
bdivider = finddivider(max_bytes, bprefix);
}
for (cols = wantcols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
for (i = 5; i < fieldwidth; i++)
fprintf(outf, " ");
fprintf(outf, "#reqs: ");
break;
case 'r':
fprintf(outf, " %%reqs: ");
break;
case 'B':
if (byq) {
for (i = 6; i < bfieldwidth; i++)
fprintf(outf, " ");
fprintf(outf, "%sbytes: ", bprefix[0] == '\0'?" ":bprefix);
}
break;
case 'b':
if (byq)
fprintf(outf, "%%bytes: ");
break;
}
}
fprintf(outf, "%s\n", singular);
for (cols = wantcols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
for (i = 1; i <= fieldwidth; i++)
fprintf(outf, "-");
fprintf(outf, " ");
break;
case 'r':
fprintf(outf, "------ ");
break;
case 'B':
if (byq) {
for (i = 1; i <= bfieldwidth; i++)
fprintf(outf, "-");
fprintf(outf, " ");
}
break;
case 'b':
if (byq)
fprintf(outf, "------ ");
break;
}
}
for (tempc = singular; *tempc != '\0'; tempc++)
fprintf(outf, "-");
fprintf(outf, "\n");
if (genfloor < 0)
j = genfloor;
else j = 1;
if (alphahost) {
graphwidth = pagewidth;
for (cols = wantcols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
graphwidth -= fieldwidth + 2;
break;
case 'B':
graphwidth -= bfieldwidth + 2;
break;
case 'r':
case 'b':
graphwidth -= 8;
break;
}
}
graphwidth = MIN(graphwidth, Smaxlength);
}
for(p = sorthead; p -> name != NULL && (j++) != 0;
p = p -> next) {
for (cols = wantcols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
fprintf(outf, "%*d: ", fieldwidth, p -> reqs);
break;
case 'r':
pc = (p -> reqs + 0.0) / ((tot_reqs + 0.0) / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %reqs */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (pc1 == 100)
fprintf(outf, " 100%%: ");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "%2d.%02d%%: ", pc1, pc2);
else
fprintf(outf, " : ");
break;
case 'B':
if (byq) {
if (p -> bytes / bdivider > 0.5)
fprintf(outf, "%*.0lf", bfieldwidth, p -> bytes / bdivider);
else for (i = 0; i < bfieldwidth; i++)
fprintf(outf, " ");
fprintf(outf, ": ");
}
break;
case 'b':
if (byq) {
pc = p -> bytes / (tot_bytes / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %bytes */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (pc1 == 100)
fprintf(outf, " 100%%: ");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "%2d.%02d%%: ", pc1, pc2);
else
fprintf(outf, " : ");
}
break;
}
}
if (alphahost && !isdigit(p -> name[0])) { /* we've swapped the names */
reversehostname(p -> name);
/* Also in that case right align names */
for (i = graphwidth - (int)strlen(p -> name); i > 0; i--)
fprintf(outf, " ");
}
if ((kq == 2) ||
/* if we want to link to everything ... */
(kq == 1 && included(p -> name, ispagehead))) {
/* or it is a page, and we want to link to pages */
fprintf(outf, " name);
fprintf(outf, "\">");
htmlfprintf(outf, p -> name);
fprintf(outf, "");
}
else /* (the usual case for most reports) */
if (!aq)
htmlfprintf(outf, p -> name);
else
fprintf(outf, "%s", p -> name);
fprintf(outf, "\n");
}
if (aq)
asciiline(outf);
else
fprintf(outf, "");
}
/*** The domain report is similar to the generic ones. It differs in that
the domains are stored in a different structure, and that subdomains
must be printed. ***/
void domout(FILE *outf, int firstdom)
{
extern struct domain *ohead[];
extern int aq;
extern flag byq, rawbytes;
extern int osortby;
extern char ominbytestr[], ominreqstr[];
extern char Ominbytestr[], Ominreqstr[];
extern int omaxreqs;
extern double omaxbytes;
extern int Onumber;
extern char ocols[];
extern double total_bytes;
extern int total_succ_reqs;
int ofloor;
struct domain *p;
double bdivider;
char bprefix[2];
char *cols;
int fieldwidth, bfieldwidth;
double pc;
int pc1, pc2;
int i, j, k, tempint;
char *tempp;
bprefix[0] = '\0';
bprefix[1] = '\0';
if (!aq) {
fprintf(outf,
"\n\n\n
Domain Report
\n\n"); gotos(outf, 'o'); } else { fprintf(outf, "Domain Report\n"); fprintf(outf, "-------------\n"); } if (!aq) fprintf(outf, "");
ofloor = whatincluded(outf, osortby, ominreqstr, ominbytestr, "domain",
"domains", FALSE);
if (Onumber > 0) {
if (!aq)
fprintf(outf, "
");
whatincluded(outf, osortby, Ominreqstr, Ominbytestr, "requested subdomain",
"requested subdomains", TRUE);
}
if (aq)
fprintf(outf, "\n");
else
fprintf(outf, "
");
tempint = 10000;
for (fieldwidth = 5; omaxreqs / tempint >= 10; fieldwidth++)
tempint *= 10;
if (byq) {
if (rawbytes) {
tempint = 100000;
for (bfieldwidth = 6; omaxbytes / tempint >= 10; bfieldwidth++)
tempint *= 10;
}
else
bfieldwidth = 6;
bdivider = finddivider(omaxbytes, bprefix);
}
for (cols = ocols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
for (i = 5; i < fieldwidth; i++)
fprintf(outf, " ");
if (Onumber > 0)
fprintf(outf, " #reqs : ");
else
fprintf(outf, "#reqs: ");
break;
case 'r':
if (Onumber > 0)
fprintf(outf, " %%reqs : ");
else
fprintf(outf, " %%reqs: ");
break;
case 'B':
if (byq) {
for (i = 6; i < bfieldwidth; i++)
fprintf(outf, " ");
if (Onumber > 0)
fprintf(outf, " %sbytes : ", bprefix[0] == '\0'?" ":bprefix);
else
fprintf(outf, "%sbytes: ", bprefix[0] == '\0'?" ":bprefix);
}
break;
case 'b':
if (byq) {
if (Onumber > 0)
fprintf(outf, " %%bytes : ");
else
fprintf(outf, "%%bytes: ");
}
break;
}
}
fprintf(outf, "domain\n");
for (cols = ocols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
for (i = 1; i <= fieldwidth; i++)
fprintf(outf, "-");
if (Onumber > 0)
fprintf(outf, "--");
fprintf(outf, " ");
break;
case 'r':
if (Onumber > 0)
fprintf(outf, "--");
fprintf(outf, "------ ");
break;
case 'B':
if (byq) {
for (i = 1; i <= bfieldwidth; i++)
fprintf(outf, "-");
if (Onumber > 0)
fprintf(outf, "--");
fprintf(outf, " ");
}
break;
case 'b':
if (byq) {
if (Onumber > 0)
fprintf(outf, "--");
fprintf(outf, "------ ");
}
break;
}
}
fprintf(outf, "------\n");
if (ofloor < 0)
j = ofloor;
else j = 1;
for (i = firstdom; i >= 0 && (j++) != 0; i = ohead[i] -> nexti) {
if (!(i == DOMHASHSIZE - 2 && ohead[i] -> reqs == -1)) {
for (cols = ocols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
if (Onumber > 0)
fprintf(outf, " %*d : ", fieldwidth, ohead[i] -> reqs);
else
fprintf(outf, "%*d: ", fieldwidth, ohead[i] -> reqs);
break;
case 'r':
pc = (ohead[i] -> reqs + 0.0) / ((total_succ_reqs + 0.0) / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %reqs */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (Onumber > 0)
fprintf(outf, " ");
if (pc1 == 100)
fprintf(outf, " 100%%");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "%2d.%02d%%", pc1, pc2);
else
fprintf(outf, " ");
if (Onumber > 0)
fprintf(outf, " : ");
else
fprintf(outf, ": ");
break;
case 'B':
if (byq) {
if (ohead[i] -> bytes / bdivider > 0.5) {
if (Onumber > 0)
fprintf(outf, " %*.0lf ", bfieldwidth,
ohead[i] -> bytes / bdivider);
else
fprintf(outf, "%*.0lf", bfieldwidth,
ohead[i] -> bytes / bdivider);
}
else for (k = 0; k < bfieldwidth + 2 * (Onumber > 0); k++)
fprintf(outf, " ");
fprintf(outf, ": ");
}
break;
case 'b':
if (byq) {
pc = ohead[i] -> bytes / (total_bytes / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %bytes */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (Onumber > 0)
fprintf(outf, " ");
if (pc1 == 100)
fprintf(outf, " 100%%");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "%2d.%02d%%", pc1, pc2);
else
fprintf(outf, " ");
if (Onumber > 0)
fprintf(outf, " : ");
else
fprintf(outf, ": ");
}
break;
}
}
if (ohead[i] -> id[0] == '*')
/* flagged domains, not real domain names */
fprintf(outf, "[%s]\n", ohead[i] -> name);
else if (ohead[i] -> name[0] == '?')
/* real domain, but don't print name */
fprintf(outf, ".%s\n", ohead[i] -> id);
else
fprintf(outf, ".%s (%s)\n", ohead[i] -> id, ohead[i] -> name);
/* Now print its subdomains too. */
for (p = ohead[i] -> next; p -> name != NULL;
p = p -> next) {
for (cols = ocols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
fprintf(outf, "(%*d): ", fieldwidth, p -> reqs);
break;
case 'r':
pc = (p -> reqs + 0.0) /
((total_succ_reqs + 0.0) / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %reqs */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (pc1 == 100)
fprintf(outf, "( 100%%): ");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "(%2d.%02d%%): ", pc1, pc2);
else
fprintf(outf, " : ");
break;
case 'B':
if (byq) {
if (p -> bytes / bdivider > 0.5)
fprintf(outf, "(%*.0lf)", bfieldwidth, p -> bytes / bdivider);
else for (k = 0; k < bfieldwidth + 2; k++)
fprintf(outf, " ");
fprintf(outf, ": ");
}
break;
case 'b':
if (byq) {
pc = p -> bytes / (total_bytes / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %bytes */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (pc1 == 100)
fprintf(outf, "( 100%%): ");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "(%2d.%02d%%): ", pc1, pc2);
else
fprintf(outf, " : ");
}
break;
}
}
tempp = p -> id;
while ((tempp = strchr(tempp, '.')) != NULL) {
fprintf(outf, " ");
/* print two spaces for each dot in name */
tempp++;
}
if (i == DOMHASHSIZE - 1)
fprintf(outf, " "); /* + 2 more for numerical domains */
fprintf(outf, "%s", p -> id);
if (p -> name[0] != '?') /* print name */
fprintf(outf, " (%s)", p -> name);
fprintf(outf, "\n");
} /* end for domp */
}
} /* end for (i = running over domains) */
if (aq)
asciiline(outf);
else
fprintf(outf, "");
}
/*** The date reports aren't quite generic enough to combine completely,
but we can go a long way towards it. ***/
/*** First a function for printing out the headers of a report and finding
the fieldwidths etc.; then one for printing out each individual line. ***/
void datehead(FILE *outf, int maxreq, double maxbytes,
char *wantcols, char *graphtype, char anchor[11],
char title[15], char colhead[13], char codeletter,
int *unit, int *fieldwidth, int *bfieldwidth, int *graphwidth,
double *bdivider) /* NB: colhead: inc. leading spaces. */
/* The last 5 args are returned altered */
{
extern void int3printf(); /* in utils.c */
extern int aq;
extern flag byq, rawbytes, graphical;
extern int pagewidth;
extern char imagedir[];
extern char markchar;
char *cols;
char bprefix[2];
int i, j, tempint;
char *tempc;
bprefix[0] = '\0';
bprefix[1] = '\0';
if (*graphtype == 'b')
*graphtype = 'B';
if (!aq) {
fprintf(outf, "\n
%s
\n", anchor, title); gotos(outf, codeletter); } else { fprintf(outf, "%s\n", title); for (tempc = title; *tempc != '\0'; tempc++) fprintf(outf, "-"); fprintf(outf, "\n"); } tempint = 10000; for (*fieldwidth = 5; maxreq / tempint >= 10; (*fieldwidth)++) tempint *= 10; /* so fieldwidth is log_10(maxreq), but >= 5 */ if (byq) { if (rawbytes || (*graphtype == 'B' && *unit > 0)) { tempint = 100000; for (*bfieldwidth = 6; maxbytes / tempint >= 10; (*bfieldwidth)++) tempint *= 10; } else *bfieldwidth = 6; *bdivider = finddivider(maxbytes, bprefix); } if (*unit <= 0) { /* (o/wise just use the given amount) */ /* Calculate the graphwidth */ *graphwidth = pagewidth - (int)strlen(colhead) - 2; for (cols = wantcols; *cols != '\0'; cols++) { switch(*cols) { case 'R': *graphwidth -= *fieldwidth + 2; break; case 'B': *graphwidth -= *bfieldwidth + 2; break; case 'r': case 'b': *graphwidth -= 8; break; } } *graphwidth = MAX(*graphwidth, MINGRAPHWIDTH); /* must be >= MGW wide */ if (*graphtype == 'B') *unit = (maxbytes - 1) / (*bdivider * *graphwidth); else *unit = (maxreq - 1) / *graphwidth; /* except we want a 'nice' amount, so ... */ /* (Nice amount is 1, 1.5, 2, 2.5, 3, 4, 5, 6, 8 * 10^n */ j = 0; while (*unit > 24) { *unit /= 10; j++; } if (*unit == 6) *unit = 7; else if (*unit == 8) *unit = 9; else if (*unit >= 20) *unit = 24; else if (*unit >= 15) *unit = 19; else if (*unit >= 10) *unit = 14; (*unit)++; for (i = 0; i < j; i++) { *unit *= 10; } } /* end if (*unit <= 0) */ else if (*graphtype == 'B') { /* o/wise unit doesn't make sense */ *bdivider = 1; bprefix[0] = '\0'; } if (!aq) fprintf(outf, "\n");
if (!aq && graphical) {
fprintf(outf, "Each unit () represents ");
int3printf(outf, *unit);
if (*graphtype == 'B')
fprintf(outf, " %sbyte%s, or part thereof.", bprefix,
(*unit == 1)?"":"s");
else
fprintf(outf, " request%s.\n\n", (*unit == 1)?"":"s, or part thereof");
}
else {
fprintf(outf, "\nEach unit (%c) represents ", markchar);
int3printf(outf, *unit);
if (*graphtype == 'B')
fprintf(outf, " %sbyte%s, or part thereof.\n\n", bprefix,
(*unit == 1)?"":"s");
else
fprintf(outf, " request%s.\n\n",
(*unit == 1)?"":"s, or part thereof");
}
if (!aq)
fprintf(outf, "
\n", pagewidth);
fprintf(outf, "%s: ", colhead);
for (cols = wantcols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
for (i = 5; i < *fieldwidth; i++)
fprintf(outf, " ");
fprintf(outf, "#reqs: ");
break;
case 'r':
fprintf(outf, " %%reqs: ");
break;
case 'B':
if (byq) {
for (i = 6; i < *bfieldwidth; i++)
fprintf(outf, " ");
fprintf(outf, "%sbytes: ", bprefix[0] == '\0'?" ":bprefix);
}
break;
case 'b':
if (byq)
fprintf(outf, "%%bytes: ");
break;
}
}
fprintf(outf, "\n");
for (tempc = colhead; *tempc != '\0'; tempc++)
fprintf(outf, "-");
fprintf(outf, " ");
for (cols = wantcols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
for (i = 1; i <= *fieldwidth; i++)
fprintf(outf, "-");
fprintf(outf, " ");
break;
case 'r':
fprintf(outf, "------ ");
break;
case 'B':
if (byq) {
for (i = 1; i <= *bfieldwidth; i++)
fprintf(outf, "-");
fprintf(outf, " ");
}
break;
case 'b':
if (byq)
fprintf(outf, "------ ");
break;
}
}
fprintf(outf, "\n");
}
/* As promised, each separate line. We print name of date in output() though */
void dateline(FILE *outf, int reqs, double bytes, char *wantcols,
char graphtype, int fieldwidth, int bfieldwidth,
int unit, double bdivider) {
extern double total_bytes;
extern int total_succ_reqs;
extern flag byq;
char *cols;
double pc;
int pc1, pc2;
for (cols = wantcols; *cols != '\0'; cols++) {
switch(*cols) {
case 'R':
fprintf(outf, "%*d: ", fieldwidth, reqs);
break;
case 'r':
pc = (reqs + 0.0) / ((total_succ_reqs + 0.0) / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %reqs */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (pc1 == 100)
fprintf(outf, " 100%%: ");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "%2d.%02d%%: ", pc1, pc2);
else
fprintf(outf, " : ");
break;
case 'B':
if (byq)
fprintf(outf, "%*.0lf: ", bfieldwidth, bytes / bdivider);
break;
case 'b':
if (byq) {
pc = bytes / (total_bytes / 10000);
pc1 = ((int)(pc + 0.5)) / 100; /* whole no. of %bytes */
pc2 = ((int)(pc + 0.5)) % 100; /* remaining 100ths. */
if (pc1 == 100)
fprintf(outf, " 100%%: ");
else if (pc1 > 0 || pc2 > 0)
fprintf(outf, "%2d.%02d%%: ", pc1, pc2);
else
fprintf(outf, " : ");
}
break;
}
}
if (graphtype == 'B')
barplot(outf, (int)(ceil(bytes / (unit * bdivider))));
else
barplot(outf, (reqs == 0)?0:((reqs - 1) / unit) + 1);
fprintf(outf, "\n");
}
/*** The status code report (very simple) ***/
void statusout(FILE *outf)
{
extern int status[], statusnos[];
extern char statusstrs[NO_STATUS][MAXSTATUSLENGTH];
extern int aq;
int fieldwidth;
int maxreqs = 0;
int i;
for (i = 0; i < NO_STATUS; i++)
maxreqs = MAX(maxreqs, status[i]);
if (!aq) {
fprintf(outf, "\n\n
\nStatus Code Report
\n\n");
gotos(outf, 'c');
fprintf(outf, "");
}
else
fprintf(outf, "Status Code Report\n------------------\n\n");
i = 10000;
for (fieldwidth = 5; maxreqs / i >= 10; fieldwidth++)
i *= 10;
for (i = 5; i < fieldwidth; i++)
fprintf(outf, " ");
fprintf(outf, "#occs: no. description\n");
for (i = 0; i < fieldwidth; i++)
fprintf(outf, "-");
fprintf(outf, " ---------------\n");
for (i = 0; i < NO_STATUS; i++) {
if (status[i] > 0) {
if (statusstrs[i][0] == '0')
fprintf(outf, "%*d: %s\n", fieldwidth, status[i], statusstrs[i]);
else
fprintf(outf, "%*d: %d %s\n", fieldwidth, status[i], statusnos[i],
statusstrs[i]);
}
}
if (aq)
asciiline(outf);
else
fprintf(outf, "");
}
/*** Finally in the individual report printing, the error report ***/
void errout(FILE *outf, int errorder[NO_ERRS])
{
extern int errors[NO_ERRS];
extern char errs[NO_ERRS][MAXERRLENGTH];
extern int eminreqs;
extern int aq;
int fieldwidth;
int i;
if (errors[errorder[0]] >= eminreqs) { /* o/wise no report */
if (!aq) {
fprintf(outf,
"\n\n
\nError Report
\n\n");
gotos(outf, 'e');
fprintf(outf, "");
}
else
fprintf(outf, "Error Report\n------------\n");
if (eminreqs == 0)
fprintf(outf, "Printing all possible errors, ");
else
fprintf(outf, "Printing all errors with at least %d occurence%s,\n",
eminreqs, (eminreqs == 1)?"":"s");
fprintf(outf, " sorted by number of occurrences.");
if (aq)
fprintf(outf, "\n\n");
else
fprintf(outf, "
");
i = 10000;
for (fieldwidth = 5; errors[errorder[0]] / i >= 10; fieldwidth++)
i *= 10;
for (i = 5; i < fieldwidth; i++)
fprintf(outf, " ");
fprintf(outf, "#occs: error type\n");
for (i = 0; i < fieldwidth; i++)
fprintf(outf, "-");
fprintf(outf, " ----------\n");
for (i = 0; errors[errorder[i]] >= eminreqs && i < NO_ERRS; i++)
fprintf(outf, "%*d: %s\n", fieldwidth, errors[errorder[i]],
(errs[errorder[i]][0] == '\0')?"[unknown]":errs[errorder[i]]);
if (aq)
asciiline(outf);
else
fprintf(outf, "");
}
}
/*** Now the main output function which calls all that stuff ***/
void output(struct genstruct *rsorthead, struct genstruct *isorthead,
struct genstruct *Ssorthead, int firstdom,
struct genstruct *fsorthead, struct genstruct *bsorthead,
struct genstruct *Bsorthead, int errorder[])
{
extern int dayofdate(); /* in utils.c */
extern int minsbetween(); /* in utils.c */
extern void int3printf(); /* in utils.c */
extern void double3printf(); /* in utils.c */
extern char outfile[];
extern char dayname[7][4];
extern char monthname[12][4];
extern int monthlength[];
extern char hostname[];
extern char logourl[];
extern char hosturl[];
extern char commandname[];
extern char headerfile[];
extern char footerfile[];
extern char reportorder[];
extern flag q7, byq, refbyq, browbyq, kq, warnq;
extern flag mback, Dback, Wback, Hback;
extern flag xq, dq, Dq, Wq, hq, Hq, mq, Sq, rq, oq, iq, fq, bq, Bq, cq, eq;
extern int sq, aq;
extern char starttimestr[];
extern struct timestruct firsttime, lasttime, oldtime, totime, starttimec;
extern time_t starttime, stoptime;
extern int weekbeginson;
extern struct monthly *firstm, *lastm;
extern struct weekly *firstW, *lastW;
extern struct daily *firstD, *lastD;
extern struct hourly *firstH, *lastH;
extern int dreq[], hreq[];
extern double dbytes[], hbytes[];
extern int munit, Wunit, hunit, Hunit, dunit, Dunit;
extern int corrupt_lines, other_lines;
extern int no_urls, no_hosts, no_urls7, no_hosts7, no_new_hosts7;
extern double total_bytes, total_bytes7;
extern double total_ref_bytes, total_brow_bytes;
extern int total_succ_reqs, total_fail_reqs, total_other_reqs;
extern int total_succ_reqs7, total_fail_reqs7, total_other_reqs7;
extern int total_good_refs, total_good_brows;
extern int pagewidth;
extern int Ssortby, rsortby, isortby, fsortby, bsortby, Bsortby;
extern char Sminreqstr[], rminreqstr[], iminreqstr[], fminreqstr[];
extern char bminreqstr[], Bminreqstr[];
extern char Sminbytestr[], rminbytestr[], iminbytestr[], fminbytestr[];
extern char bminbytestr[], Bminbytestr[];
extern char mgraph, dgraph, Dgraph, hgraph, Hgraph, Wgraph;
extern char mcols[], dcols[], Dcols[], hcols[], Wcols[], Hcols[];
extern char rcols[], icols[], Scols[], fcols[], bcols[], Bcols[];
extern char imagedir[], baseurl[];
extern int reqtype;
extern int imaxreqs, Smaxreqs, rmaxreqs, fmaxreqs, bmaxreqs, Bmaxreqs;
extern double imaxbytes, Smaxbytes, rmaxbytes, fmaxbytes, bmaxbytes;
extern double Bmaxbytes;
FILE *outf; /* the output file */
int totalmins; /* between first and last entries analysed */
int fieldwidth; /* Width we require to print #reqs in */
int bfieldwidth; /* #bytes ditto */
char bprefix[2]; /* kilo, Mega, etc. */
int graphwidth; /* the width left for a graph after columns written */
struct monthly *mp;
struct daily *dp;
struct weekly *wp;
struct hourly *hp;
int maxreq; /* within a particular date report */
double maxbytes;
double bdivider;
int year, monthno, date;
flag finished;
int i, j, firsti, lasti;
char *ro;
char templine[MAXLINELENGTH];
FILE *tempf;
bprefix[0] = '\0';
bprefix[1] = '\0';
if (STREQ(outfile, "stdout"))
outf = stdout;
else if ((outf = fopen(outfile, "w")) == NULL) {
fprintf(stderr, "%s: Error: failed to open output file %s for writing.\n",
commandname, outfile);
exit(ERR); /* shouldn't get here because also tested at the beginning */
} /* (unless it's vanished in the meantime or something) */
if (aq == CACHE)
fprintf(outf,
"CACHE type 1 produced by analog%s. Do not modify or delete!",
VERSION);
else {
if (!aq) {
fprintf(outf, "\nWeb Server Statistics for ");
htmlfprintf(outf, hostname);
fprintf(outf, " \n");
fprintf(outf, "\n");
if (!STREQ(logourl, "none")) {
fprintf(outf, "![\"\"](\"");)
");
}
if (hosturl[0] == '-') {
fprintf(outf, "Web Server Statistics for ");
htmlfprintf(outf, hostname);
}
else {
fprintf(outf, "Web Server Statistics for ");
htmlfprintf(outf, hostname);
fprintf(outf, "");
}
fprintf(outf, "
\n\n");
}
else {
fprintf(outf, "Web Server Statistics for %s\n", hostname);
fprintf(outf, "==========================");
for (i = (int)strlen(hostname); i > 0; i--)
fprintf(outf, "=");
fprintf(outf, "\n");
}
/* insert header file */
headerfile[MAXSTRINGLENGTH - 5] = '\0'; /* for safety */
if (!STREQ(headerfile, "none")) {
if ((tempf = fopen(headerfile, "r")) == NULL) {
if (warnq)
fprintf(stderr,
"%s: Warning: Failed to open headerfile %s: ignoring it.\n",
commandname, headerfile);
}
else { /* can open header file */
if (!aq)
fprintf(outf, "
");
else
fprintf(outf, "\n");
while(fgets(templine, MAXLINELENGTH, tempf) != NULL)
fprintf(outf, "%s", templine);
fclose(tempf);
if (templine[(int)strlen(templine) - 1] != '\n')
fprintf(outf, "\n");
if (aq) {
for (i = 0; i < pagewidth; i++)
fprintf(outf, "-");
}
fprintf(outf, "\n");
}
}
}
/* Summary statistics */
if (xq) {
if (!aq)
fprintf(outf, "
");
fprintf(outf,
"\nProgram started at %c%c%c-%c%c-%c%c%c-%c%c%c%c %c%c:%c%c local time.\n",
starttimestr[0], starttimestr[1], starttimestr[2],
(starttimestr[8]==' ')?'0':starttimestr[8], starttimestr[9],
starttimestr[4], starttimestr[5], starttimestr[6],
starttimestr[20], starttimestr[21], starttimestr[22],
starttimestr[23],
starttimestr[11], starttimestr[12],
starttimestr[14], starttimestr[15]);
if (firsttime.code > oldtime.code)
q7 = OFF;
if (total_succ_reqs > 0) {
totalmins = minsbetween(firsttime.date, firsttime.monthno, firsttime.year,
firsttime.hr, firsttime.min,
lasttime.date, lasttime.monthno, lasttime.year,
lasttime.hr, lasttime.min) + 1;
if (!aq)
fprintf(outf, "
");
fprintf(outf,
"Analysed requests from %s-%02d-%s-%d %02d:%02d to %s-%02d-%s-%d %02d:%02d\n (%.1f days).\n\n",
dayname[dayofdate(firsttime.date,
firsttime.monthno, firsttime.year)],
firsttime.date, monthname[firsttime.monthno], firsttime.year,
firsttime.hr, firsttime.min,
dayname[dayofdate(lasttime.date, lasttime.monthno,
lasttime.year)],
lasttime.date, monthname[lasttime.monthno], lasttime.year,
lasttime.hr, lasttime.min,
(double)totalmins / 1440.0);
}
if (!aq)
fprintf(outf, "Total completed requests: ");
else
fprintf(outf, "Total completed requests: ");
int3printf(outf, total_succ_reqs);
if (q7) {
fprintf(outf, " (");
int3printf(outf, total_succ_reqs7);
fprintf(outf, ")");
}
if (totalmins > 30) {
if (!aq)
fprintf(outf, "\n
Average completed requests per day: ");
else
fprintf(outf, "\nAverage completed requests per day: ");
if (total_succ_reqs < 2)
fprintf(outf, "0");
else
double3printf(outf, ((double)(total_succ_reqs - 1)) * 1440.0 / (totalmins + 0.0));
if (q7) {
fprintf(outf, " (");
int3printf(outf, total_succ_reqs7 / 7);
fprintf(outf, ")");
}
}
if (total_fail_reqs > 0) {
if (!aq)
fprintf(outf, "\n
Total failed requests: ");
else
fprintf(outf, "\nTotal failed requests: ");
int3printf(outf, total_fail_reqs);
if (q7) {
fprintf(outf, " (");
int3printf(outf, total_fail_reqs7);
fprintf(outf, ")");
}
}
if (total_other_reqs > 0) {
if (!aq)
fprintf(outf, "\n
Total redirected requests: ");
else
fprintf(outf, "\nTotal redirected requests: ");
int3printf(outf, total_other_reqs);
if (q7) {
fprintf(outf, " (");
int3printf(outf, total_other_reqs7);
fprintf(outf, ")");
}
}
if (rq) { /* These data are not collected o/wise (rq => this > 0) */
if (!aq)
fprintf(outf, "\n
Number of distinct files requested: ");
else
fprintf(outf, "\nNumber of distinct files requested: ");
int3printf(outf, no_urls);
if (q7) {
fprintf(outf, " (");
int3printf(outf, no_urls7);
fprintf(outf, ")");
}
}
if ((sq == ON || sq == APPROX) && no_hosts > 0) {
if (!aq)
fprintf(outf, "\n
%sumber of distinct hosts served: ",
(sq == ON)?"N":"Approximate n");
else
fprintf(outf, "\n%sumber of distinct hosts served: ",
(sq == ON)?"N":"Approximate n");
int3printf(outf, no_hosts);
if (q7) {
fprintf(outf, " (");
int3printf(outf, no_hosts7);
fprintf(outf, ")");
if (!aq)
fprintf(outf,
"\n
%sumber of new hosts served in last 7 days: ",
(sq == ON)?"N":"Approximate n");
else
fprintf(outf, "\n%sumber of new hosts served in last 7 days: ",
(sq == ON)?"N":"Approximate n");
int3printf(outf, no_new_hosts7);
}
}
if (corrupt_lines > 0) {
if (!aq)
fprintf(outf, "\n
Corrupt logfile lines: ");
else
fprintf(outf, "\nCorrupt logfile lines: ");
int3printf(outf, corrupt_lines);
}
if (other_lines > 0) {
if (!aq)
fprintf(outf, "\n
Unwanted logfile entries: ");
else
fprintf(outf, "\nUnwanted logfile entries: ");
int3printf(outf, other_lines);
}
if (byq) {
if (!aq)
fprintf(outf, "\n
Total data transferred: ");
else
fprintf(outf, "\nTotal data transferred: ");
bdivider = finddivider(total_bytes, bprefix);
double3printf(outf, ROUND(total_bytes / bdivider));
fprintf(outf, " %sbytes", bprefix);
if (q7) {
fprintf(outf, " (");
bdivider = finddivider(total_bytes7, bprefix);
double3printf(outf, ROUND(total_bytes7 / bdivider));
fprintf(outf, " %sbytes)", bprefix);
}
if (totalmins > 30) {
if (!aq)
fprintf(outf, "\n
Average data transferred per day: ");
else
fprintf(outf, "\nAverage data transferred per day: ");
bdivider = finddivider((total_bytes * 1440) / (totalmins + 0.0),
bprefix);
double3printf(outf,
ROUND((total_bytes * 1440) / (totalmins + 0.0) / bdivider));
fprintf(outf, " %sbytes", bprefix);
if (q7) {
fprintf(outf, " (");
bdivider = finddivider(total_bytes7 / 7.0, bprefix);
double3printf(outf, ROUND(total_bytes7 / 7.0 / bdivider));
fprintf(outf, " %sbytes)", bprefix);
}
}
}
if (q7) {
if (!aq)
fprintf(outf, "\n
");
else
fprintf(outf, "\n");
fprintf(outf, "(Figures in parentheses refer to the ");
if (starttimec.code > totime.code)
fprintf(outf, "7 days to %02d-%s-%4d).", totime.date,
monthname[totime.monthno], totime.year);
else
fprintf(outf, "last 7 days).");
}
if (!aq && (mq || Wq || dq || Dq || hq || oq || Sq || iq || rq))
gotos(outf, 'z');
if (aq) {
fprintf(outf, "\n");
asciiline(outf);
}
} /* end if xq */
else if (aq == ASCII)
printf("\n");
/* Now for the rest of the reports, in reportorder order */
for (ro = reportorder; *ro != '\0'; ro++) {
switch(*ro) {
case 'm': /* Monthly report */
if (mq) {
maxreq = 0;
maxbytes = 0.0;
finished = FALSE;
for (mp = mback?lastm:firstm; !finished; mp = mp -> next) {
for (i = 0; i < 12; i++) {
maxreq = MAX(maxreq, mp -> reqs[i]);
maxbytes = MAX(maxbytes, mp -> bytes[i]);
}
if (mp == (mback?firstm:lastm))
finished = TRUE;
}
datehead(outf, maxreq, maxbytes, mcols, &mgraph, "Monthly",
"Monthly Report", " month", 'm', &munit, &fieldwidth,
&bfieldwidth, &graphwidth, &bdivider);
finished = FALSE;
year = (mback?lasttime:firsttime).year;
for (mp = mback?lastm:firstm; !finished; mp = mp -> next) {
if (mp == firstm) {
firsti = firsttime.monthno;
if (mback)
finished = TRUE;
}
else
firsti = 0;
if (mp == lastm) {
lasti = lasttime.monthno;
if (!mback)
finished = TRUE;
}
else
lasti = 11;
for (i = mback?lasti:firsti; mback?(i >= firsti):(i <= lasti);
i += mback?(-1):1) { /* run through months in chosen order */
fprintf(outf, "%s %d: ", monthname[i], year);
dateline(outf, mp -> reqs[i], mp -> bytes[i], mcols, mgraph,
fieldwidth, bfieldwidth, munit, bdivider);
}
year += mback?(-1):1;
}
if (aq)
asciiline(outf);
else
fprintf(outf, "
");
}
break;
case 'W': /* Weekly report */
if (Wq) {
maxreq = 0;
maxbytes = 0.0;
finished = FALSE;
for (wp = Wback?lastW:firstW; !finished; wp = wp -> next) {
maxreq = MAX(maxreq, wp -> reqs);
maxbytes = MAX(maxbytes, wp -> bytes);
if (wp == (Wback?firstW:lastW))
finished = TRUE;
}
datehead(outf, maxreq, maxbytes, Wcols, &Wgraph, "Weekly",
"Weekly Report", "week beg.", 'W', &Wunit, &fieldwidth,
&bfieldwidth, &graphwidth, &bdivider);
finished = FALSE;
for (wp = Wback?lastW:firstW; !finished; wp = wp -> next) {
fprintf(outf, "%2d/%s/%02d: ", wp -> start.date,
monthname[wp -> start.monthno], wp -> start.year % 100);
dateline(outf, wp -> reqs, wp -> bytes, Wcols, Wgraph, fieldwidth,
bfieldwidth, Wunit, bdivider);
if (wp == (Wback?firstW:lastW))
finished = TRUE;
} /* end running through weeks */
if (aq)
asciiline(outf);
else
fprintf(outf, "