1: #include    "parms.h"
   2: #include    "structs.h"
   3: #include    <sys/types.h>
   4: #include    <sys/stat.h>
   5: 
   6: #ifdef  RCSIDENT
   7: static char rcsid[] = "$Header: readem.c,v 1.8 87/07/01 13:47:53 paul Exp $";
   8: #endif	RCSIDENT
   9: 
  10: 
  11: /*
  12: *	this particular collection of junk handles the basic idea
  13: *	of what to do when you are showing a note.
  14: *	It displays the note, and then manages to collect enough info
  15: *	from the terminal to either progress to the next note or
  16: *	show some of the responses.
  17: *
  18: *	original author : rob kolstad
  19: *	modified	: ray essick may 22, 1981
  20: *	modified (again): Ray Essick December 1981
  21: *	modified (more):  Ray Essick, February 1982
  22: *	added MODERATED:  Rich $alz, August 1985
  23: *	added LOCAL and YorN: Rich $alz, August 1985
  24: *
  25: */
  26: static char YES[] = "YES";
  27: static char NO[] = "NO ";
  28: #define YorN(c)     ((c) != 0 ? YES : NO)
  29: 
  30: readem (io, readnum, firstdis, resp)
  31: struct io_f *io;
  32: int    *firstdis;
  33: {
  34:     struct note_f   note;
  35:     struct resp_f   rsprec;
  36:     struct io_f io2;
  37:     FILE * txtfile;
  38:     int     rrecnum,
  39:             roffset;
  40:     char    tonf[WDLEN + 1];                /* for forwarding */
  41:     char    ntitle[TITLEN + 20];            /* scratch space */
  42:     char    nfsave[WDLEN + 1];              /* path name for 's' and 'S' */
  43:     int     c;                      /* input char */
  44:     char   *p,
  45:            *q;                      /* scratch pointers */
  46:     int     replot;                 /* whether to change what's on the screen */
  47:     int     toresp;                 /* init entry as resp */
  48:     int     forward;                    /* scroll forward/backward on deleted note */
  49:     int     toauth,                 /* send to author */
  50:             znum,                   /* forward as resp to this note */
  51:             znote,
  52:             zresp,                  /* scratch for asearch */
  53:             i,
  54:             j,
  55:             wtext;                  /* send mail with text */
  56:     char    cmdline[CMDLEN];                /* leggo brand build-a-command */
  57:     int     retcode;
  58: 
  59: 
  60:     replot = 1;                     /* first pass always writes to the screen */
  61:     retcode = -1;                   /* init so grabs character */
  62:     forward = 1;                    /* default to scroll forward */
  63:     toresp = (resp != 0);               /* for entry */
  64:     while (1)
  65:     {
  66:     x (readnum < 0, "readem: given bad readnum");
  67:     if (readnum > io -> descr.d_nnote)
  68:         readnum = io -> descr.d_nnote;
  69:     if (readnum == 0 && io -> descr.d_plcy == 0)    /* empty notesfile */
  70:         return 0;                   /* so back to the index */
  71:     getnrec (io, readnum, &note);
  72:     if (note.n_stat & DELETED)
  73:         if (forward)
  74:         goto nextnt;                /* forward scroll */
  75:         else
  76:         goto prevnote;              /* backward scroll */
  77:     if (toresp)
  78:     {
  79:         toresp = 0;
  80:         goto showit;
  81:     }
  82:     if (replot)
  83:         retcode = dspnote (io, &note, readnum); /* show the note if we need new one */
  84:     replot = 1;                 /* reset later if don't want replot */
  85:     forward = 1;
  86:     if (retcode < 0)
  87:     {
  88:     input:  at (0, 1);
  89: #ifdef  PROMPT
  90:         printf (PROMPT);                /* let him know we're ready */
  91: #endif	PROMPT
  92:         c = gchar ();
  93:         printf ("\10 \10");             /* Kurt wants this to go away */
  94:     }
  95:     else
  96:     {
  97:         c = retcode;
  98:         retcode = (-1);             /* make sure don't loop! */
  99:     }
 100:     switch (c)
 101:     {
 102:         case '?':                   /* if he doesn't know what to type */
 103:         case 'h':
 104:         help (RDMHLP);              /* print the pseudo-man page */
 105:         goto showit;
 106: 
 107:         case 'D':                   /* delete this note/response */
 108:         if (resp)               /* check to see if his note */
 109:         {
 110:             if ((rsprec.r_auth[roffset].aid & UIDMASK) != globuid)
 111:             {
 112:             at (0, PROMPTMSGX);
 113:             printf ("Not your response");
 114:             replot = 0;
 115:             continue;
 116:             }
 117:         }
 118:         else
 119:         {
 120:             if ((note.n_auth.aid & UIDMASK) != globuid)
 121:             {
 122:             at (0, PROMPTMSGX);
 123:             printf ("Not your note");
 124:             replot = 0;
 125:             continue;
 126:             }
 127:             if (readnum == 0)
 128:             {
 129:             at (0, PROMPTMSGX);
 130:             printf ("Use 'Z' to delete policy");
 131:             replot = 0;
 132:             continue;
 133:             }
 134:         }
 135: 
 136:         at (0, 1);
 137:         if (askyn ("Delete? (y/n):   \b\b") == 'n')
 138:             goto showit;
 139:         printf ("\r                \r");
 140: 
 141:         locknf (io, DSCRLOCK);          /* CRITICAL section */
 142:         getnrec (io, readnum, &note);       /* this should catch most */
 143:         getdscr (io, &io -> descr);     /* and an up to date descriptor */
 144:         if (resp)               /* go about deleting it */
 145:         {
 146:             if (resp == note.n_nresp && inorder (&io -> descr.d_lstxmit, &rsprec.r_when[roffset]))
 147:             {
 148:             delresp (io, readnum, rrecnum, roffset, 0);
 149:             note.n_nresp--;         /* adjust note response count */
 150:             unlocknf (io, DSCRLOCK);    /* must free up the lock */
 151:             break;              /* show next response */
 152:             }
 153:             else
 154:             {
 155:             at (0, PROMPTMSGX);
 156:             printf ("Can't delete: networked, or not last response");
 157:             replot = 0;
 158:             unlocknf (io, DSCRLOCK);    /* release lock here too */
 159:             continue;
 160:             }
 161:         }
 162:         else                    /* its a note */
 163:         {
 164:             if (note.n_nresp || inorder (&note.n_date, &io -> descr.d_lstxmit))
 165:             {
 166:             at (0, PROMPTMSGX);
 167:             printf ("Can't delete; note has responses or is networked");
 168:             replot = 0;
 169:             unlocknf (io, DSCRLOCK);    /* release the lock */
 170:             continue;
 171:             }
 172:             delnote (io, readnum++, 0);
 173:             resp = 0;
 174:             unlocknf (io, DSCRLOCK);        /* release the lock */
 175:             continue;
 176:         }
 177: 
 178:         case 'E':                   /* edit an article */
 179:         if (resp)               /* check to see if his note */
 180:         {
 181:             if ((rsprec.r_auth[roffset].aid & UIDMASK) != globuid)
 182:             {
 183:             at (0, PROMPTMSGX);
 184:             printf ("Not your response");
 185:             replot = 0;
 186:             continue;
 187:             }
 188:         }
 189:         else
 190:         {
 191:             if ((note.n_auth.aid & UIDMASK) != globuid)
 192:             {
 193:             at (0, PROMPTMSGX);
 194:             printf ("Not your note");
 195:             replot = 0;
 196:             continue;
 197:             }
 198:             if (readnum == 0)
 199:             {
 200:             at (0, PROMPTMSGX);
 201:             printf ("Sorry, E doesn't work for policy notes yet");
 202:             replot = 0;
 203:             continue;
 204:             }
 205:         }
 206: 
 207:         locknf (io, DSCRLOCK);          /* CRITICAL section */
 208:         getnrec (io, readnum, &note);       /* this should catch most */
 209:         getdscr (io, &io -> descr);     /* and an up to date descriptor */
 210:         if (resp)               /* go about deleting it */
 211:         {
 212:             if (resp == note.n_nresp && inorder (&io -> descr.d_lstxmit, &rsprec.r_when[roffset]))
 213:             {
 214:             delresp (io, readnum, rrecnum, roffset, 0);
 215:             note.n_nresp--;         /* adjust note response count */
 216:             unlocknf (io, DSCRLOCK);    /* must free up the lock */
 217:             sprintf (nfsave, "/tmp/nfe%d", getpid ());
 218:                             /* build scr file */
 219:             x ((txtfile = fopen (nfsave, "w")) == NULL, "readem: scrfile");
 220:             x (chmod (nfsave, 0666) < 0, "readem: chmod");
 221:             pageout (io, &rsprec.r_addr[roffset], txtfile);
 222:                             /* dump it */
 223:             fclose (txtfile);       /* also flushes it */
 224:             x ((txtfile = fopen (nfsave, "r")) == NULL, "readem: edit reopen");
 225:             resp = addresp (io, txtfile, readnum, EDIT);
 226:             getnrec (io, readnum, &note);   /* up to date */
 227:                             /* add it back in ! */
 228:             x (unlink (nfsave) < 0, "readem: edit unlink");
 229:             break;              /* show next response */
 230:             }
 231:             else
 232:             {
 233:             at (0, PROMPTMSGX);
 234:             printf ("Can't edit: networked, or not last response");
 235:             replot = 0;
 236:             unlocknf (io, DSCRLOCK);    /* release lock here too */
 237:             continue;
 238:             }
 239:         }
 240:         else                    /* its a note */
 241:         {
 242:             if (note.n_nresp || inorder (&note.n_date, &io -> descr.d_lstxmit))
 243:             {
 244:             at (0, PROMPTMSGX);
 245:             printf ("Can't edit; note has responses or is networked");
 246:             replot = 0;
 247:             unlocknf (io, DSCRLOCK);    /* release the lock */
 248:             continue;
 249:             }
 250:             delnote (io, readnum++, 0);
 251:             resp = 0;
 252:             unlocknf (io, DSCRLOCK);        /* release the lock */
 253:             sprintf (nfsave, "/tmp/nfe%d", getpid ());
 254:                             /* build scr file */
 255:             x ((txtfile = fopen (nfsave, "w")) == NULL, "readem: scrfile");
 256:             x (chmod (nfsave, 0666) < 0, "readem: chmod");
 257:             pageout (io, &note.n_addr, txtfile);
 258:                             /* dump it */
 259:             fclose (txtfile);           /* also flushes it */
 260:             x ((txtfile = fopen (nfsave, "r")) == NULL, "readem: edit reopen");
 261:             znum = addnote (io, txtfile, "Edit note text:",
 262:                 "Note title: ", &note.ntitle, EDIT);
 263:             x (unlink (nfsave) < 0, "readem: edit unlink");
 264:             if (znum > 0)
 265:             readnum = znum;         /* this is the one */
 266:             continue;
 267:         }
 268: 
 269:         case 'Z':                   /* zap notes/responses - directors only */
 270:                             /* kills any note/response */
 271:         getdscr (io, &io -> descr);     /* up to date descriptor */
 272:         if (allow (io, DRCTOK) == 0)
 273:         {
 274:             at (0, PROMPTMSGX);
 275:             printf ("Not a director");
 276:             replot = 0;
 277:             continue;
 278:         }
 279: 
 280:         at (0, 1);
 281:         if (askyn ("Delete? (y/n):   \b\b") == 'n')
 282:             goto showit;            /* replotter */
 283:         printf ("\r                  \r");
 284: /*
 285:  *		should log the deletion here, so the "meta-director" can
 286:  *		watch for fascist directors preying on the peasants.
 287:  */
 288:         if (readnum == 0)           /* deleting policy */
 289:         {
 290:             locknf (io, DSCRLOCK);      /* lock us up */
 291:             getdscr (io, &io -> descr);     /* grab up-to-date */
 292:             io -> descr.d_plcy = 0;     /* its gone now */
 293:             putdscr (io, &io -> descr);     /* replace descriptor */
 294:             unlocknf (io, DSCRLOCK);
 295:             return 0;               /* back to the index */
 296:         }
 297:         if (resp)               /* delete a response */
 298:         {
 299:             delresp (io, readnum, rrecnum, roffset, 1);
 300:                             /* kill it */
 301:             note.n_nresp--;         /* and response count */
 302:             break;              /* display next response */
 303:         }
 304:         else
 305:             delnote (io, readnum++, 1);
 306:         continue;
 307: 
 308:         case 'r':                   /* replot the current note/response */
 309:         case '\f':                  /* everyone else uses ^L, might as well */
 310:     showit:                     /* come here to refill screen */
 311:         if (replot == 0)
 312:             continue;               /* screen appears fine */
 313:         if (resp)
 314:             break;              /* show him the response */
 315:         else
 316:         {
 317:             replot = 1;             /* make sure it gets done */
 318:             continue;
 319:         }
 320: 
 321:     nextnt:
 322:         case '\r':                  /* wants the next note */
 323:         case '\n':
 324:         if (readnum == 0)
 325:             return 0;               /* policy leaves */
 326:         if (++readnum > io -> descr.d_nnote)
 327:         {
 328:             *firstdis = io -> descr.d_nnote;
 329:             return 0;
 330:         }
 331:         resp = 0;               /* reset response index */
 332:         continue;
 333: 
 334:         case 'm':                   /* mail a note/response via Unix mail */
 335:         toauth = 0;
 336:         wtext = 0;              /* to others and no text */
 337:         goto sendmail;
 338:         case 'M':                   /* same as 'm' but with text */
 339:         toauth = 0;
 340:         wtext = 1;              /* to others with text */
 341:         goto sendmail;
 342:         /* mail to author, possibly with text. */
 343:         case 'P':
 344:         case 'p':
 345: #ifdef NO_Pp_FOR_MODERATED
 346:         /* some people may want this */
 347:         if (io -> d_descr.d_stat & MODERATED)
 348:         {
 349:             at (0, 10);
 350:             printf ("Moderated; use 'm' or 'M' command\n");
 351:             continue;
 352:         }
 353: #endif NO_Pp_FOR_MODERATED
 354:         toauth = 1;
 355:         wtext = c == 'P';           /* to author with text */
 356:     sendmail:                   /* jump to here once set mail parms */
 357:         if (resp)
 358:         {
 359:             strcpy (ntitle, "Re: ");        /* prefix */
 360:             strcat (ntitle, note.ntitle);   /* append title */
 361:             mailit (io, &rsprec.r_addr[roffset], &rsprec.r_auth[roffset],
 362:                 &rsprec.r_when[roffset], ntitle, toauth, wtext);
 363:             break;
 364:         }
 365:         else
 366:         {
 367:             strncpy (ntitle, note.ntitle, TITLEN);
 368:             mailit (io, &note.n_addr, &note.n_auth,
 369:                 &note.n_date, ntitle, toauth, wtext);
 370:         }
 371:         goto showit;                /* replot current page */
 372: 
 373:         case '!':                   /* wants to fork a shell */
 374:         gshell ();
 375:         goto showit;
 376: 
 377:         case 'q':                   /* quit this, maybe whole system */
 378: #ifdef  K_KEY
 379:         case 'k':
 380: #endif	K_KEY
 381:         return QUITSEQ;
 382: 
 383:         case '\04':
 384:         return QUITFAST;            /* leave totally */
 385: 
 386:         case 'z':                   /* total exit w/update */
 387:         return QUITUPD;
 388: 
 389:         case 'Q':                   /* exit system without updating sequencer */
 390: #ifdef  K_KEY
 391:         case 'K':
 392: #endif	K_KEY
 393:         return QUITNOSEQ;
 394: 
 395:         case 'i':                   /* go back to note index */
 396:         *firstdis = readnum;
 397:         return 0;
 398: 
 399:         case '\b':
 400:         case '-':                   /* display previous response */
 401:         if (resp <= 0)
 402:             goto prevnote;          /* '-' at base note */
 403:         if (--resp)
 404:             break;              /* show the previous response */
 405:         continue;               /* show him the base note */
 406: 
 407:     prevnote:                   /* display previous note */
 408:         if (readnum == 0)
 409:             return 0;               /* policy leaves */
 410:         forward = 0;                /* set to scroll backwards on deleted note */
 411:         if (--readnum < 1)
 412:         {
 413:             readnum = 1;            /* zero is policy, so stop at 1 */
 414:             forward = 1;            /* bounce off bottom end */
 415:             continue;               /* go hunt for the right note */
 416:         }
 417:         resp = 0;
 418:         continue;
 419: 
 420:         case 'x':
 421:         case 'X':
 422:         if (readnum == 0)
 423:             return 0;               /* policy leaves */
 424:         retcode = tsearch (io, readnum - 1, c == 'x');
 425:                             /* look it up */
 426:         if (retcode <= 0)
 427:             replot = 0;
 428:         else
 429:         {
 430:             readnum = retcode;
 431:             resp = 0;
 432:         }
 433:         goto showit;
 434: 
 435:         case 'a':
 436:         case 'A':                   /* author search from current spot */
 437:         if (readnum == 0)
 438:             return 0;               /* not from policy ! */
 439:         znote = readnum;
 440:         zresp = resp;
 441:         if (zresp == 0)
 442:             znote--;
 443:         else
 444:             zresp++;                /* select 'next' */
 445:         retcode = asearch (io, &znote, &zresp, (c == 'a'));
 446:                             /* look */
 447:         if (retcode < 0)
 448:         {
 449:             replot = 0;
 450:             goto showit;            /* didn't want anything */
 451:         }
 452:         if (retcode == 0)
 453:         {
 454:             replot = 0;
 455:         }
 456:         else
 457:         {
 458:             readnum = znote;
 459:             resp = zresp;           /* set returned values */
 460:             getnrec (io, readnum, &note);   /* grab right descriptor */
 461:         }
 462:         goto showit;                /* and display them */
 463: 
 464:         case 'd':                   /* toggle a notes director status */
 465:         if (allow (io, DRCTOK) == 0)
 466:         {                   /* tell him what's up */
 467:             at (0, PROMPTMSGX);
 468:             printf (
 469:          "Anonymous: %s   Networked: %s   Moderated: %s   Local: %s",
 470:                 YorN (io -> descr.d_stat & ANONOK),
 471:                 YorN (io -> descr.d_stat & NETWRKD),
 472:                 YorN (io -> descr.d_stat & MODERATED),
 473:                 YorN (io -> descr.d_stat & LOCAL));
 474:             replot = 0;             /* leave on screen */
 475:             goto showit;
 476:         }
 477:         if (resp == 0)              /* toggle a note */
 478:         {
 479:             locknf (io, DSCRLOCK);
 480:             getnrec (io, readnum, &note);
 481:             if (note.n_stat & DIRMES)
 482:             note.n_stat &= NOT DIRMES;
 483:             else
 484:             note.n_stat |= DIRMES;
 485:             putnrec (io, readnum, &note);   /* replace */
 486:             unlocknf (io, DSCRLOCK);
 487:             goto showit;
 488:         }
 489:         else                    /* toggle a response */
 490:         {
 491:             locknf (io, DSCRLOCK);      /* this locks the resp index too */
 492:             getrrec (io, rrecnum, &rsprec); /* grab that block */
 493:             if (rsprec.r_stat[roffset] & DIRMES)
 494:             rsprec.r_stat[roffset] &= NOT DIRMES;
 495:             else
 496:             rsprec.r_stat[roffset] |= DIRMES;
 497:             putrrec (io, rrecnum, &rsprec); /* replace */
 498:             unlocknf (io, DSCRLOCK);
 499:             goto showit;            /* and redisplay */
 500:         }
 501: 
 502:         case 'e':                   /* allow him to edit his title */
 503:         if (readnum == 0)
 504:             continue;               /* don't touch */
 505:         if (resp)
 506:             goto badkey;            /* bell and reinput */
 507:         else
 508:         {
 509:             if (allow (io, DRCTOK) == 0 &&
 510:                 (globuid != (note.n_auth.aid & UIDMASK) ||
 511:                             /* check uid */
 512:                 strcmp (System, note.n_id.sys) != 0))
 513:                             /* other sys */
 514:             {
 515:             at (0, PROMPTMSGX);
 516:             printf ("Not your note");
 517:             replot = 0;
 518:             continue;
 519:             }
 520:             at (0, 1);
 521:             printf ("New Title: ");
 522:             if ((i = gline (ntitle, TITLEN - 1)) == 1)
 523:                             /* glom onto a title */
 524:             continue;           /* empty title, leave alone */
 525:             strclean (ntitle);          /* zip controls */
 526:             locknf (io, DSCRLOCK);
 527:             getnrec (io, readnum, &note);   /* well, update it */
 528:             strncpy (note.ntitle, ntitle, TITLEN);
 529:             note.ntitle[TITLEN - 1] = '\0'; /* null for sure */
 530:             putnrec (io, readnum, &note);   /* and replace */
 531:             unlocknf (io, DSCRLOCK);
 532:             goto showit;            /* replot the message */
 533:         }
 534: 
 535:         case 't':                   /* talk to the author of a note */
 536:         if (resp)
 537:             talkto (&rsprec.r_auth[roffset]);
 538:         else
 539:             talkto (&note.n_auth);
 540:         goto showit;                /* and replot the current message */
 541: 
 542:         case 'W':                   /* write a response with the text */
 543:         case 'w':                   /* let him write a response */
 544:         getdscr (io, &io -> descr);     /* get up to date */
 545: 
 546:         if (io -> descr.d_stat & MODERATED)
 547:         {
 548:             wtext = c == 'W';
 549:             toauth = MODERATED;     /* toauth distinguishes m/w */
 550:             goto sendmail;
 551:         }
 552: 
 553:         if (allow (io, RESPOK) == 0)
 554:         {
 555:             at (0, PROMPTMSGX);
 556:             printf ("Sorry, you are not allowed to write");
 557:             replot = 0;
 558:             continue;               /* back to key processing */
 559:         }
 560:         if (readnum == 0)
 561:         {
 562:             at (0, PROMPTMSGX);
 563:             printf ("No responses allowed to policy note");
 564:             replot = 0;
 565:             continue;               /* no responses to policy note */
 566:         }
 567: 
 568:         if (c == 'w')
 569:             txtfile = NULL;         /* no preface text */
 570:         else
 571:         {
 572:             sprintf (cmdline, "/tmp/nfx%d", getpid ());
 573:             x ((txtfile = fopen (cmdline, "w")) == NULL, "readem: bad scrfile");
 574:             x (chmod (cmdline, 0666) < 0, "readem: chmod failed");
 575:             if (resp)
 576:             {
 577:             preptxt (io, txtfile, &rsprec.r_auth[roffset],
 578:                 &rsprec.r_when[roffset], &rsprec.r_addr[roffset], NULL);
 579:             }
 580:             else
 581:             {
 582:             preptxt (io, txtfile, &note.n_auth, &note.n_date, &note.n_addr, note.ntitle);
 583:             }
 584:             fclose (txtfile);
 585:             x ((txtfile = fopen (cmdline, "r")) == NULL, "readem: reopen");
 586:         }
 587:         zresp = addresp (io, txtfile, readnum, EDIT);/* put it in */
 588:         if (zresp > 0)
 589:             getnrec (io, readnum, &note);   /* update descriptor */
 590: 
 591:         if (txtfile != NULL)
 592:         {
 593:             fclose (txtfile);           /* toss out scratch */
 594:             x (unlink (cmdline) < 0, "readem: couldnt unlink scratch");
 595:         }
 596:         if (zresp)
 597:             resp = zresp;           /* show the new */
 598:         goto showit;
 599: 
 600:         case 'B':                   /* bitch, bitch, bitch */
 601:         if (init (&io2, GRIPES) < 0)        /* check gripe file */
 602:         {
 603:             at (0, PROMPTMSGX);
 604:             printf ("No gripe file");
 605:             replot = 0;
 606:         }
 607:         else
 608:         {
 609:             addnote (&io2, NULL, "Edit Gripe text:", "Gripe Header: ", NULL, EDIT);
 610:                             /* let him put the note in */
 611:             finish (&io2);          /* close up the gripe file */
 612:         }
 613:         goto showit;
 614: 
 615:         case 'C':                   /* copy to other notesfile with editing */
 616:         case 'c':                   /* copy to other notefile without editing */
 617:         if (c == 'C')
 618:             wtext = 1;
 619:         else
 620:             wtext = 0;              /* determine which */
 621:         while (1)
 622:         {
 623:             printf ("\nCopy to: ");
 624:             if (gline (tonf, NNLEN) == 1)
 625:             goto showit;            /* gave up */
 626:             if (init (&io2, tonf) >= 0)
 627:             break;
 628:             printf ("Can't find notesfile %s\n", tonf);
 629:         }
 630:         sprintf (cmdline, "/tmp/nfx%d", getpid ());
 631:         x ((txtfile = fopen (cmdline, "w")) == NULL, "readem:creat scratch failed");
 632:         x (chmod (cmdline, 0666) < 0, "readem: chmod failed");
 633:         if (resp)
 634:         {
 635:             preptxt (io, txtfile, &rsprec.r_auth[roffset],
 636:                 &rsprec.r_when[roffset], &rsprec.r_addr[roffset], NULL);
 637:         }
 638:         else
 639:         {
 640:             preptxt (io, txtfile, &note.n_auth, &note.n_date, &note.n_addr, note.ntitle);
 641:         }
 642:         fclose (txtfile);           /* close it */
 643:         x ((txtfile = fopen (cmdline, "r")) == NULL, "readem: couldnt reopen");
 644:         c = 'n';                /* default to note */
 645:         if (allow (&io2, WRITOK) && allow (&io2, READOK) && allow (&io2, RESPOK))
 646:             c = askyn ("Copy as Response (y/n)? ");
 647:         if (c == 'n' && allow (&io2, WRITOK))
 648:             if (!resp && wtext == 0)        /* use old title */
 649:             addnote (&io2, txtfile, NULL, NULL, note.ntitle, wtext);
 650:             else
 651:             addnote (&io2, txtfile, "Edit copied text:", "Copy Title: ", NULL, wtext);
 652:         else
 653:             if (c == 'y')
 654:             {
 655:             if (znum = limindx (&io2))
 656:                 addresp (&io2, txtfile, znum, wtext);
 657:             }
 658:             else
 659:             {
 660:             printf ("You haven't permission");
 661:             c = 'b';            /* leave message */
 662:             }
 663:         if (strcmp (io -> nf, io2.nf) == 0) /* if was this notefile */
 664:             getdscr (io, &io -> descr);     /* get new descriptor */
 665:         finish (&io2);              /* close up that notefile */
 666:         if (txtfile != NULL)
 667:         {
 668:             fclose (txtfile);           /* throw it away */
 669:             x (unlink (cmdline) < 0, "readem: couldnt unlink scratch");
 670:         }
 671:         if (c == 'b')
 672:         {
 673:             replot = 0;
 674:             continue;               /* leave on screen */
 675:         }
 676:         else
 677:             goto showit;            /* redo the screen */
 678: 
 679:         case 'f':                   /* Forward (copy) string to other notefile w/o edit */
 680:         case 'F':                   /* Forward (copy) string to other notefile w/edit */
 681:         if (resp)
 682:         {
 683:             at (0, PROMPTMSGX);
 684:             printf ("f/F only allowed from base note");
 685:             replot = 0;
 686:             continue;
 687:         }
 688:         if (c == 'F')
 689:             wtext = 1;
 690:         else
 691:             wtext = 0;              /* determine which */
 692:         while (1)
 693:         {
 694:             printf ("\nForward to: ");
 695:             if (gline (tonf, NNLEN) == 1)
 696:             goto showit;            /* gave up */
 697:             if (init (&io2, tonf) >= 0)
 698:             break;
 699:             printf ("Can't find notesfile %s\n", tonf);
 700:         }
 701:         sprintf (cmdline, "/tmp/nfx%d", getpid ());
 702:         x ((txtfile = fopen (cmdline, "w")) == NULL, "readem:creat scratch failed");
 703:         x (chmod (cmdline, 0666) < 0, "readem: chmod failed");
 704:         preptxt (io, txtfile, &note.n_auth, &note.n_date, &note.n_addr, note.ntitle);
 705:         fclose (txtfile);           /* close it */
 706:         x ((txtfile = fopen (cmdline, "r")) == NULL, "readem: couldnt reopen");
 707:         c = 'n';
 708:         if (allow (&io2, WRITOK))
 709:         {
 710:             if (wtext == 0)
 711:             znum = addnote (&io2, txtfile, NULL, NULL, note.ntitle, NOEDIT);
 712:             else
 713:             znum = addnote (&io2, txtfile, "Edit copy text:", "Copy Title:", NULL, EDIT);
 714:             fclose (txtfile);
 715:             x ((txtfile = fopen (cmdline, "w")) == NULL, "readem:creat scratch failed");
 716:             for (i = 1; i <= note.n_nresp; i++)
 717:             {
 718:             if (wtext)          /* if editing */
 719:                 printf ("Forwarding response %d of %d",
 720:                     i, note.n_nresp);   /* \n by addresp() below */
 721:             if (lrsp (io, readnum, i, &rsprec, &roffset, &rrecnum) == -1)
 722:                 continue;           /* hit end of chain */
 723:             preptxt (io, txtfile, &rsprec.r_auth[roffset],
 724:                 &rsprec.r_when[roffset], &rsprec.r_addr[roffset], NULL);
 725:             fclose (txtfile);
 726:             x ((txtfile = fopen (cmdline, "r")) == NULL, "readem:creat scratch failed");
 727:             addresp (&io2, txtfile, znum, wtext);
 728:             fclose (txtfile);
 729:             x ((txtfile = fopen (cmdline, "w")) == NULL, "readem:creat scratch failed");
 730:             }
 731:         }
 732:         else
 733:         {
 734:             printf ("You haven't permission");
 735:             c = 'b';                /* leave message */
 736:         }
 737:         if (strcmp (io -> nf, io2.nf) == 0) /* if was this notefile */
 738:             getdscr (io, &io -> descr);     /* get new descriptor */
 739:         finish (&io2);              /* close up that notefile */
 740:         if (txtfile != NULL)
 741:         {
 742:             fclose (txtfile);           /* throw it away */
 743:             x (unlink (cmdline) < 0, "readem: couldnt unlink scratch");
 744:         }
 745:         if (c == 'b')
 746:         {
 747:             replot = 0;
 748:             continue;               /* leave on screen */
 749:         }
 750:         else
 751:             goto showit;            /* redo the screen */
 752: 
 753: 
 754:         case 'N':                   /* go to an archive */
 755:         sprintf (tonf, "%s/%s", ARCHDIR, io -> nf);/* build dest */
 756:         goto donest;                /* share common code */
 757: 
 758: 
 759:         case 'n':                   /* nest notesfiles - a stack */
 760:         at (-1, 10);
 761:         printf ("  New notesfile: ");
 762:         printf ("               \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
 763:         if (gline (tonf, NNLEN) == 1)
 764:             goto showit;            /* forget it, replot */
 765:     donest:                     /* used by N */
 766:         closenf (io);               /* save fids */
 767:         if ((i = control (tonf, NOSEQ)) == -1)  /* do the other */
 768:             sleep (1);              /* some error there */
 769:         if (opennf (io, 0) < 0)
 770:         {
 771:             at (0, PROMPTMSGX);
 772:             printf ("Couldn't reopen notesfile %s", io -> fullname);
 773:             fflush (stdout);
 774:             sleep (2);
 775:             return QUITNOSEQ;           /* don't update */
 776:         }
 777:         if (i == QUITFAST)          /* he in a hurry? */
 778:             return QUITFAST;            /* oblige him */
 779:         goto showit;                /* redisplay page */
 780: 
 781:         case 's':                   /* place text at end of 'nfsave' */
 782:         case 'S':                   /* place the whole string */
 783:         at (-1, 1);
 784:         printf ("File name:             \b\b\b\b\b\b\b\b\b\b\b\b");
 785:         znum = gline (nfsave, WDLEN);
 786:         at (-1, 1);
 787:         printf ("%*s", znum + 11, " ");     /* overwrite */
 788:         if (znum == 1)              /* no file */
 789:         {
 790:             at (0, PROMPTMSGX);         /* tell him didn't do */
 791:             printf ("No Text Saved");
 792:             replot = 0;
 793:             continue;
 794:         }
 795:         p = q = nfsave;             /* kill leading spaces */
 796:         while (*p == ' ')
 797:             p++;                /* skip them */
 798:         for (; *p; p++, q++)
 799:             *q = *p;                /* move down */
 800:         *q = '\0';              /* terminate */
 801:         for (--q;; q--)             /* strip trailing */
 802:         {
 803:             if (*q != ' ')
 804:             break;
 805:             *q = '\0';              /* strip trailing */
 806:         }
 807:         if (nfsave[0] == '|')           /* pipe */
 808:         {
 809:             p = "Pipe";
 810:         }
 811:         else
 812:         {
 813:             struct stat sb;         /* hold stat result */
 814: 
 815:             if (stat (nfsave, &sb) == 0)    /* find it? */
 816:             p = "Appended";
 817:             else
 818:             p = "New File";         /* prolly new */
 819:         }
 820:         if (c == 's')               /* save single page */
 821:         {
 822:             if (resp)
 823:             {
 824:             znum = savtxt (io, nfsave, &rsprec.r_auth[roffset],
 825:                 &rsprec.r_when[roffset], &rsprec.r_addr[roffset], (char *) NULL);
 826:             }
 827:             else
 828:             {
 829:             znum = savtxt (io, nfsave, &note.n_auth, &note.n_date, &note.n_addr, note.ntitle);
 830:             }
 831:         }
 832:         else                    /* save whole string */
 833:         {
 834:             znum = savtxt (io, nfsave, &note.n_auth, &note.n_date, &note.n_addr, note.ntitle);
 835: 
 836:             for (i = 1; i <= note.n_nresp; i++)
 837:             {
 838:             if (lrsp (io, readnum, i, &rsprec, &roffset, &rrecnum) == -1)
 839:                 continue;           /* hit end of chain */
 840:             znum += savtxt (io, nfsave, &rsprec.r_auth[roffset],
 841:                 &rsprec.r_when[roffset], &rsprec.r_addr[roffset], (char *) NULL);
 842:             }
 843:         }
 844:         at (0, PROMPTMSGX);
 845:         printf ("Saved %d lines in \"%s\" [%s]", znum, nfsave, p);
 846:         replot = 0;             /* dont erase it */
 847:         continue;               /* don't replot */
 848: 
 849:         case 'j':                   /* goto next note/resp */
 850:         case 'l':
 851:         if (readnum == 0)
 852:             return 0;               /* policy returns */
 853:         if (resp == note.n_nresp)
 854:             goto findnext;          /* at end of the responses for this note */
 855:         if ((resp = nxtresp (io, readnum, resp, &io -> stime)) > 0)
 856:             break;              /* go show it */
 857:         else
 858:             goto findnext;          /* try next note ! */
 859: 
 860:     findnext:
 861:         case 'J':                   /* next unread note */
 862:         case 'L':                   /* like J */
 863:         if (readnum == 0)
 864:             return 0;               /* policy note returns */
 865:         resp = 0;
 866:         if ((readnum = nxtnote (io, readnum, &io -> stime)) > 0)
 867:             continue;
 868:         else
 869:         {
 870:             if (c == 'L' || c == 'l')       /* leave */
 871:             return QUITSEQ;         /* and update... */
 872:             *firstdis = io -> descr.d_nnote;    /* last index page */
 873:             return 0;               /* and show it */
 874:         }
 875: 
 876:         case '+':
 877:         case ';':
 878:         case ' ':
 879:         if (readnum == 0)
 880:             return 0;               /* such is the fate of policy notes */
 881:         resp++;
 882:         if (resp > note.n_nresp)
 883:             goto nextnt;
 884:         break;
 885: 
 886:         case '*':                   /* skip to last note */
 887:         resp = note.n_nresp;
 888:         break;                  /* and show it */
 889: 
 890:         case '=':                   /* go back to the base note */
 891:         resp = 0;               /* reset index into responses */
 892:         continue;
 893: 
 894:         case '1':                   /* skip n responses */
 895:         case '2':
 896:         case '3':
 897:         case '4':
 898:         case '5':
 899:         case '6':
 900:         case '7':
 901:         case '8':
 902:         case '9':
 903:         if (note.n_nresp < 1)
 904:             goto nextnt;
 905:         resp += c - '0';            /* let him skip all over responses */
 906:         if (resp > note.n_nresp)
 907:             resp = note.n_nresp;        /* dont go past end */
 908:         break;
 909: 
 910: 
 911:         default:                    /* something we haven't covered */
 912:     badkey:                     /* so can jump down here */
 913:         printf ("\07");
 914:         replot = 0;             /* leave whatever is up on the screen */
 915:         continue;
 916:     }
 917:     if (resp > note.n_nresp)
 918:         resp = note.n_nresp;            /* set to the end */
 919:     if (resp == 0)
 920:         continue;                   /* wound up at base note */
 921:     if (lrsp (io, readnum, resp, &rsprec, &roffset, &rrecnum) == -1)
 922:     {
 923:         getnrec (io, readnum, &note);       /* get a new descriptor */
 924:         goto showit;                /* dropped something */
 925:     }
 926:     retcode = dspresp (io, &note, &rsprec, roffset, resp, readnum);
 927:                             /* show the darn thing */
 928:     replot = 0;                 /* leave the response on the screen */
 929:     }
 930: }

Defined functions

readem defined in line 30; used 1 times

Defined variables

NO defined in line 27; used 1 times
  • in line 28
YES defined in line 26; used 1 times
  • in line 28
rcsid defined in line 7; never used

Defined macros

YorN defined in line 28; used 4 times
Last modified: 1987-07-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 5355
Valid CSS Valid XHTML 1.0 Strict