![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rfuncs2.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / new / news / src|
Return to rfuncs2.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / new / news / src |
1.1 ! root 1: /* ! 2: * This software is Copyright 1986 by Rick Adams. ! 3: * ! 4: * Permission is hereby granted to copy, reproduce, redistribute or ! 5: * otherwise use this software as long as: there is no monetary ! 6: * profit gained specifically from the use or reproduction or this ! 7: * software, it is not sold, rented, traded or otherwise marketed, and ! 8: * this copyright notice is included prominently in any copy ! 9: * made. ! 10: * ! 11: * The author make no claims as to the fitness or correctness of ! 12: * this software for any use whatsoever, and it is provided as is. ! 13: * Any use of this software is at the user's own risk. ! 14: * ! 15: * rfuncs2 - more routines needed by readr. ! 16: */ ! 17: ! 18: #ifdef SCCSID ! 19: static char *SccsId = "@(#)rfuncs2.c 1.35 3/21/87"; ! 20: #endif /* SCCSID */ ! 21: ! 22: /*LINTLIBRARY*/ ! 23: ! 24: #include "rparams.h" ! 25: ! 26: static char lbuf[LBUFLEN]; ! 27: extern char *replyname(); ! 28: ! 29: FILE *popen(); ! 30: ! 31: /* ! 32: * Match title. ! 33: */ ! 34: titmat(h, titlist) ! 35: register struct hbuf *h; ! 36: register char *titlist; ! 37: { ! 38: register char *p; ! 39: ! 40: while (*titlist != '\0') { ! 41: ! 42: if (strcmp(titlist, h->ident) == 0) ! 43: return TRUE; ! 44: for (p = h->title; *p != '\0'; p++) ! 45: if (prefix(p, titlist)) { ! 46: return TRUE; ! 47: } ! 48: while (*titlist++ != '\0') ! 49: ; ! 50: } ! 51: return FALSE; ! 52: } ! 53: ! 54: ! 55: /* ! 56: * Save the news item in the user's file. ! 57: * Allow files with first character as '|' to write article ! 58: * to program across a pipe. ! 59: */ ! 60: ! 61: #define PIPECHAR '|' ! 62: ! 63: save(file, to) ! 64: register char *file, *to; ! 65: { ! 66: register FILE *ufp, *hfp; ! 67: #ifdef u370 ! 68: static struct hbuf hh; ! 69: #else /* !u370 */ ! 70: struct hbuf hh; ! 71: #endif /* !u370 */ ! 72: int isprogram = 0; ! 73: int isnew = 1; ! 74: register int i; ! 75: ! 76: for(i=0;i<NUNREC;i++) ! 77: hh.unrec[i] = NULL; ! 78: ! 79: if ((hfp = art_open(file, "r")) == NULL) { ! 80: fprintf(stderr, "Can't get article.\n"); ! 81: return; ! 82: } ! 83: if (hread(&hh, hfp, TRUE) == NULL) { ! 84: fprintf(stderr, "Article is garbled.\n"); ! 85: return; ! 86: } ! 87: ufp = fopen(to, "r"); ! 88: if (ufp != NULL) { ! 89: (void) fclose(ufp); ! 90: isnew = 0; ! 91: } ! 92: (void) setgid(gid); ! 93: (void) setuid(uid); ! 94: (void) umask(savmask); ! 95: ! 96: if (*to == PIPECHAR) { ! 97: if ((ufp = popen (&to[1], "w")) == NULL) { ! 98: fprintf(stderr,"Cannot execute %s\n", &to[1]); ! 99: return; ! 100: } ! 101: isprogram++; ! 102: } else if ((ufp = fopen(to, "a")) == NULL) { ! 103: fprintf(stderr,"Cannot append to %s.\n", to); ! 104: return; ! 105: } ! 106: /* ! 107: * V7MAIL code is here to conform to V7 mail format. ! 108: * If you need a different format to be able to ! 109: * use your local mail command (such as four ^A's ! 110: * on the end of articles) substitute it here. ! 111: */ ! 112: #ifdef MMDF ! 113: if (!isprogram) ! 114: fprintf(ufp, "\001\001\001\001\n"); /* MMDF message header */ ! 115: #endif /* MMDF */ ! 116: #ifdef V7MAIL ! 117: hh.subtime = cgtdate(hh.subdate); ! 118: fprintf(ufp, "From %s %s", replyname(&hh), ctime(&hh.subtime)); ! 119: #endif ! 120: hprint(&hh, ufp, 2); ! 121: #ifdef V7MAIL ! 122: tprint(hfp, ufp, TRUE); ! 123: putc('\n', ufp); /* force blank line at end (ugh) */ ! 124: #else ! 125: tprint(hfp, ufp, FALSE); ! 126: #endif ! 127: (void) fclose(hfp); ! 128: #ifdef MMDF ! 129: if (!isprogram) ! 130: fprintf(ufp, "\001\001\001\001\n"); /* MMDF message header */ ! 131: #endif /* MMDF */ ! 132: if (isprogram) ! 133: (void) pclose (ufp); ! 134: else ! 135: (void) fclose(ufp); ! 136: if (!isprogram) ! 137: printf("%s: %s\n", to, isnew ? "New file" : "Appended"); ! 138: } ! 139: ! 140: ! 141: /* ! 142: * Print out the rest of the article. ! 143: */ ! 144: tprint(ifp, ofp, checkfrom) ! 145: register FILE *ifp, *ofp; ! 146: int checkfrom; ! 147: { ! 148: while ((fgets(bfr, sizeof bfr, ifp)) != NULL && !SigTrap) { ! 149: if (checkfrom && strncmp(bfr, "From ", 5) == 0) ! 150: putc('>', ofp); ! 151: (void) fputs(bfr, ofp); ! 152: if (ferror(ofp)) break; /* E.g. disk full */ ! 153: } ! 154: if (SigTrap) ! 155: qfflush(ofp); ! 156: (void) fflush(ofp); ! 157: fprintf(ofp, (SigTrap ? "\n\n" : "\n")); ! 158: SigTrap = FALSE; ! 159: } ! 160: ! 161: ! 162: /* ! 163: * Print the file header. ! 164: */ ! 165: hprint(hp, ofp, verbose) ! 166: register struct hbuf *hp; ! 167: int verbose; ! 168: register FILE *ofp; ! 169: { ! 170: register char *p1, *p2; ! 171: char fname[BUFLEN]; ! 172: char *tailpath(); ! 173: ! 174: fname[0] = '\0'; /* init name holder */ ! 175: ! 176: if (verbose == 2) { ! 177: lhwrite(hp, ofp); ! 178: return; ! 179: } ! 180: ! 181: if (lflag || eflag) { ! 182: char buf1[80], buf2[200]; ! 183: char *cp; ! 184: ! 185: (void) strcpy(bfr, groupdir); ! 186: for (cp=bfr; *cp; cp++) ! 187: if (*cp == '/') ! 188: *cp = '.'; ! 189: (void) sprintf(buf1, "%s/%ld", bfr, bit); ! 190: (void) sprintf(buf2, "%-20s %s", buf1, hp->title); ! 191: fprintf(ofp, "%.76s\n", buf2); ! 192: return; ! 193: } ! 194: ! 195: p1 = index(hp->from, '('); /* Find the sender's full name. */ ! 196: if (p1 == NULL && hp->path[0]) ! 197: p1 = index(hp->path, '('); ! 198: if (p1 != NULL) { ! 199: strcpy(fname, p1+1); ! 200: p2 = index(fname, ')'); ! 201: if (p2 != NULL) ! 202: *p2 = '\0'; ! 203: } ! 204: ! 205: fprintf(ofp, "Subject: %s\n", hp->title); ! 206: if (!hflag && hp->summary[0]) ! 207: fprintf(ofp, "Summary: %s\n", hp->summary); ! 208: if (!hflag && hp->keywords[0]) ! 209: fprintf(ofp, "Keywords: %s\n", hp->keywords); ! 210: if (verbose) { ! 211: fprintf(ofp, "From: %s\n", hp->from); ! 212: fprintf(ofp, "Path: %s\n", hp->path); ! 213: if (hp->organization[0]) ! 214: fprintf(ofp, "Organization: %s\n", hp->organization); ! 215: } ! 216: else { ! 217: if (p1 != NULL) ! 218: *--p1 = '\0'; /* bump over the '(' */ ! 219: #ifdef INTERNET ! 220: /* ! 221: * Prefer Path line if it's in internet format, or if we don't ! 222: * understand internet format here, or if there is no reply-to. ! 223: */ ! 224: fprintf(ofp, "From: %s", hp->from); ! 225: #else ! 226: fprintf(ofp, "Path: %s", tailpath(hp)); ! 227: #endif ! 228: if (fname[0] || hp->organization[0]) { ! 229: if (fname[0] == '\0') { ! 230: (void) strcpy(fname,hp->from); ! 231: p2 = index(fname,'@'); ! 232: if (p2) ! 233: *p2 = '\0'; ! 234: } ! 235: fprintf(ofp, " (%s", fname); ! 236: if (hp->organization[0] && !hflag) ! 237: fprintf(ofp, " @ %s", hp->organization); ! 238: fprintf(ofp, ")"); ! 239: } ! 240: fprintf(ofp, "\n"); ! 241: if (p1 != NULL) ! 242: *p1 = ' '; ! 243: } ! 244: ! 245: if (verbose) { ! 246: fprintf(ofp, "Newsgroups: %s\n", hp->nbuf); ! 247: fprintf(ofp, "Date: %s\n", hp->subdate); ! 248: if (hp->sender[0]) ! 249: fprintf(ofp, "Sender: %s\n", hp->sender); ! 250: if (hp->replyto[0]) ! 251: fprintf(ofp, "Reply-To: %s\n", hp->replyto); ! 252: if (hp->followto[0]) ! 253: fprintf(ofp, "Followup-To: %s\n", hp->followto); ! 254: } ! 255: else if (index(hp->nbuf, ',') || strcmp(groupdir, "junk") == 0) ! 256: fprintf(ofp, "Newsgroups: %s\n", hp->nbuf); ! 257: ! 258: if (pflag || ofp != stdout) ! 259: putc('\n', ofp); ! 260: } ! 261: ! 262: ! 263: /* ! 264: * If ofp != stdout, close it and run the script in coptbuf. ! 265: */ ! 266: cout(ofp) ! 267: FILE *ofp; ! 268: { ! 269: register char *p, *q, *r; ! 270: ! 271: if (ofp == stdout || ofp == NULL) ! 272: return; ! 273: (void) fclose(ofp); ! 274: p = coptbuf; ! 275: q = lbuf; ! 276: while ((*q = *p++) != '\0') ! 277: if (*q++ == FMETA) { ! 278: q--; ! 279: r = outfile; ! 280: while ((*q++ = *r++) != '\0') ! 281: ; ! 282: q--; ! 283: } ! 284: fwait(fsubr(ushell, lbuf, (char *)NULL)); ! 285: (void) unlink(outfile); ! 286: } ! 287: ! 288: ! 289: cdump(ofp) ! 290: register FILE *ofp; ! 291: { ! 292: if (ofp == stdout) ! 293: return; ! 294: fclose(ofp); ! 295: unlink(outfile); ! 296: } ! 297: ! 298: ! 299: /* ! 300: * Quiet 'flush'. ! 301: * Empty (without fflush()) the buffer for stream fp. ! 302: */ ! 303: /* ARGSUSED */ ! 304: qfflush(fp) ! 305: FILE *fp; ! 306: { ! 307: #ifdef fileno ! 308: int fno, err; ! 309: ! 310: fno = fileno(fp); ! 311: err = ferror(fp); ! 312: fileno(fp) = -1; ! 313: (void) fflush(fp); ! 314: fileno(fp) = fno; ! 315: if (!err) ! 316: (void) clearerr(fp); ! 317: #endif /* fileno */ ! 318: } ! 319: ! 320: /* ! 321: * Count the number of remaining lines in file fp. ! 322: * Do not move the file pointer. ! 323: */ ! 324: linecnt(fp) ! 325: FILE *fp; ! 326: { ! 327: long curpos; ! 328: register int nlines = 0; ! 329: register int c; ! 330: ! 331: if (fp == NULL) ! 332: return 0; ! 333: curpos = ftell(fp); ! 334: while ((c = getc(fp)) != EOF) ! 335: if (c == '\n') ! 336: nlines++; ! 337: (void) fseek(fp, curpos, 0); ! 338: return nlines; ! 339: } ! 340: ! 341: ! 342: /* ! 343: * Transmit file to system. ! 344: */ ! 345: transmit(sp, file) ! 346: register struct srec *sp; ! 347: char *file; ! 348: { ! 349: register FILE *ifp, *ofp; ! 350: register int c, i; ! 351: #ifdef u370 ! 352: static struct hbuf hh; ! 353: #else /* !u370 */ ! 354: struct hbuf hh; ! 355: #endif /* !u370 */ ! 356: char TRANS[BUFLEN]; ! 357: ! 358: #ifdef DEBUG ! 359: fprintf(stderr, "xmit %s to %s using %s\n", file, sp->s_name, sp->s_xmit); ! 360: #endif ! 361: bzero((char *)&hh, sizeof hh); ! 362: ifp = xart_open(file, "r"); ! 363: if (hread(&hh, ifp, TRUE) == NULL) ! 364: return; ! 365: strcpy(TRANS, "/tmp/trXXXXXX"); ! 366: ofp = xfopen(mktemp(TRANS), "w"); ! 367: if (index(sp->s_flags, 'A') == NULL) ! 368: hwrite(&hh, ofp); ! 369: else { ! 370: #ifdef OLD ! 371: fprintf(ofp, "A%s\n%s\n%s!%s\n%s\n%s\n", oident(hh.ident), hh.nbuf, PATHSYSNAME, ! 372: hh.path, hh.subdate, hh.title); ! 373: #else /* !OLD */ ! 374: logerr("Must have OLD defined to use A flag for xmit"); ! 375: unlink(TRANS); ! 376: return; ! 377: #endif /* !OLD */ ! 378: } ! 379: while ((c = getc(ifp)) != EOF) ! 380: putc(c, ofp); ! 381: (void) fclose(ifp); ! 382: (void) fclose(ofp); ! 383: for (i=0;i<NUNREC;i++) ! 384: if (hh.unrec[i] != NULL) ! 385: free(hh.unrec[i]); ! 386: if (*sp->s_xmit == '\0' || strpbrk(sp->s_flags, "FUMH")) ! 387: (void) sprintf(bfr, DFTXMIT, sp->s_name, TRANS); ! 388: else ! 389: (void) sprintf(bfr, "(%s) < %s", sp->s_xmit, TRANS); ! 390: #ifdef DEBUG ! 391: fprintf(stderr, "%s\n", bfr); ! 392: #endif ! 393: (void) system(bfr); ! 394: (void) unlink(TRANS); ! 395: } ! 396: ! 397: ! 398: /* ! 399: * Cancel the article whose header is in hp, by posting a control message ! 400: * to cancel it. The scope of the control message depends on who would ! 401: * really be willing to cancel it. It is sent as far as it will do any good. ! 402: * notauthor is true iff the person posting this article is not the ! 403: * real author of the article being cancelled. ! 404: */ ! 405: cancel(ofp, hp, notauthor) ! 406: FILE *ofp; ! 407: struct hbuf *hp; ! 408: int notauthor; ! 409: { ! 410: int pid; ! 411: ! 412: fflush(ofp); ! 413: pid = vfork(); ! 414: if (pid < 0) { ! 415: perror("readnews: cancel"); ! 416: return 0; ! 417: } ! 418: if (pid > 0) ! 419: return 0; ! 420: if (notauthor) ! 421: (void) sprintf(bfr, "%s/%s -c 'cancel %s' -n %s -d %s < /dev/null", ! 422: LIB, "inews", hp->ident, hp->nbuf, ! 423: #ifdef ORGDISTRIB ! 424: ORGDISTRIB); ! 425: #else /* !ORGDISTRIB */ ! 426: "local"); ! 427: #endif /* !ORGDISTRIB */ ! 428: else { ! 429: if (hp->distribution[0] == '\0') ! 430: (void) sprintf(bfr, "%s/%s -c 'cancel %s' -n %s < /dev/null", ! 431: LIB, "inews", hp->ident, hp->nbuf); ! 432: else ! 433: (void) sprintf(bfr, "%s/%s -c 'cancel %s' -n %s -d %s < /dev/null", ! 434: LIB, "inews", hp->ident, hp->nbuf, hp->distribution); ! 435: } ! 436: execl("/bin/sh", "sh", "-c", bfr, (char *) 0); ! 437: perror(bfr); ! 438: for ( ; ; ) ! 439: exit(1); ! 440: } ! 441: ! 442: ! 443: dash(num, ofp) ! 444: register int num; ! 445: register FILE *ofp; ! 446: { ! 447: register int i; ! 448: ! 449: for (i = 0; i < num; i++) ! 450: putc('-', ofp); ! 451: putc('\n', ofp); ! 452: } ! 453: ! 454: ! 455: help(ofp) ! 456: register FILE *ofp; ! 457: { ! 458: register FILE *fp; ! 459: register int c; ! 460: char temp[BUFLEN]; ! 461: ! 462: if (cflag) { ! 463: oneline: ! 464: fprintf(ofp, "(n)ext re(p)rint (w)rite (q)uit (r)eply\ ! 465: (c)ancel -[n] +[n] (f)ollowup (N)ext (U)nsubscribe (v)ersion\n"); ! 466: return; ! 467: } ! 468: (void) sprintf(temp, "%s/%s", LIB, "help"); ! 469: if ((fp = fopen(temp, "r")) == NULL) { ! 470: fprintf(ofp, "No help file.\n"); ! 471: goto oneline; ! 472: } ! 473: while ((c = getc(fp)) != EOF && !SigTrap) ! 474: putc(c, ofp); ! 475: (void) fclose(fp); ! 476: } ! 477: ! 478: ! 479: pout(ofp) ! 480: FILE *ofp; ! 481: { ! 482: register char *p, *q, *r; ! 483: ! 484: p = PAGER; ! 485: q = lbuf; ! 486: while ((*q = *p++) != '\0') ! 487: if (*q++ == FMETA) { ! 488: q--; ! 489: r = filename; ! 490: while ((*q++ = *r++) != '\0') ! 491: ; ! 492: q--; ! 493: } ! 494: fwait(fsubr(ushell, lbuf, (char *)NULL)); ! 495: fprintf(ofp, "\n"); ! 496: } ! 497: ! 498: /* ! 499: * Print a very brief version of the date in question. ! 500: */ ! 501: char * ! 502: briefdate(datestr) ! 503: char *datestr; ! 504: { ! 505: time_t dt, now; ! 506: char *tmstr; ! 507: char *wkday, *monthdate, *timeofday; ! 508: static char rbuf[20]; ! 509: ! 510: dt = cgtdate(datestr); ! 511: tmstr = ctime(&dt); ! 512: ! 513: wkday = tmstr; tmstr[3] = '\0'; ! 514: monthdate = tmstr+4; tmstr[10] = '\0'; ! 515: timeofday = tmstr+11; tmstr[16] = '\0'; ! 516: ! 517: (void) time(&now); ! 518: if (now - dt < WEEKS) ! 519: (void) strcpy(rbuf, wkday); ! 520: else ! 521: (void) strcpy(rbuf, monthdate); ! 522: (void) strcat(rbuf, " "); ! 523: (void) strcat(rbuf, timeofday); ! 524: return rbuf; ! 525: } ! 526: ! 527: /* ! 528: * Return TRUE iff stdout is /dev/null. ! 529: */ ! 530: ignoring() ! 531: { ! 532: struct stat ss, ns; ! 533: ! 534: if (fstat(1, &ss) < 0) ! 535: return FALSE; ! 536: if (stat("/dev/null", &ns) < 0) ! 537: return FALSE; ! 538: if (ss.st_dev == ns.st_dev && ss.st_rdev == ns.st_rdev) ! 539: return TRUE; ! 540: return FALSE; ! 541: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.