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