-logit(n, s) char *s[];
-{ int i, tvec[2];
- FILE *f, *g;
- char buf[512];
- if ((f=fopen("/crp/pjw/awkhist/awkhist", "a"))==NULL)
- return;
- time(tvec);
- fprintf(f, "%-8s %s", getlogin(), ctime(tvec));
- for (i=0; i<n; i++)
- fprintf(f, "'%s'", s[i]);
- putc('\n', f);
- if (strcmp(s[1], "-f")) {
- fclose(f);
- return;
- }
- if ((g=fopen(s[2], "r"))==NULL) {
- fclose(f);
- return;
- }
- while ((i=fread(buf, 1, 512, g))>0)
- fwrite(buf, 1, i, f);
- fclose(f);
- fclose(g);
-}
-