![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to bbl.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip|
Return to bbl.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip |
1.1 root 1: /* bbl.c - ease the tasks of a BBleader */
2:
3: #include "../h/mh.h"
4: #include "../zotnet/bboards.h"
5: #include <ctype.h>
6: #include <pwd.h>
7: #include <stdio.h>
8: #include <sys/types.h>
9: #ifndef BSD42
10: #ifndef SYS5
11: #include <ndir.h>
12: #else SYS5
13: #include <dir.h>
14: #endif SYS5
15: #else BSD42
16: #include <sys/dir.h>
17: #endif BSD42
18: #include <sys/stat.h>
19:
20: /* */
21:
22: static struct swit switches[] = {
23: #define SHELLSW 0
24: "shell program", 0,
25:
26: #define VERBSW 1
27: "verbose", 0,
28: #define NVERBSW 2
29: "noverbose", 0,
30:
31: #define HELPSW 3
32: "help", 4,
33:
34: NULL, NULL
35: };
36:
37: /* */
38:
39: static int verbosw = 0;
40:
41: static int sub_ok = 0;
42:
43: static char *bboards = BBOARDS;
44:
45: static char *cwd = NULL;
46:
47: static char *current_folder = NULL;
48:
49: static char *bbfolder = NULL;
50: static char subfolder[BUFSIZ];
51:
52: static struct stat bbstat;
53: static struct stat substat;
54:
55: static char *shell = "/bin/sh";
56:
57: static struct bboard *bb = NULL;
58:
59:
60: #ifdef SYS5
61: struct passwd *getpwnam (), *getpwuid ();
62: #endif SYS5
63:
64: /* */
65:
66: /* ARGSUSED */
67:
68: main (argc, argv)
69: int argc;
70: char **argv;
71: {
72: char *cp,
73: **ap,
74: **argp,
75: buffer[80],
76: *arguments[MAXARGS];
77: struct passwd *pw;
78:
79: invo_name = r1bindex (argv[0], '/');
80: if ((cp = m_find (invo_name)) != NULL) {
81: ap = brkstring (cp = getcpy (cp), " ", "\n");
82: ap = copyip (ap, arguments);
83: }
84: else
85: ap = arguments;
86: (void) copyip (argv + 1, ap);
87: argp = arguments;
88:
89: if ((shell = getenv ("SHELL")) == NULL)
90: if ((pw = getpwuid (getuid ())) != NULL
91: && pw -> pw_shell
92: && *pw -> pw_shell)
93: shell = getcpy (pw -> pw_shell);
94:
95: if ((pw = getpwnam (bboards)) == NULL)
96: adios (NULLCP, "no entry for ~%s", bboards);
97: if (pw -> pw_uid != geteuid ())
98: adios (NULLCP, "not running setuid to %s", bboards);
99:
100: current_folder = (cp = m_find (pfolder)) ? getcpy (cp) : defalt;
101:
102: /* */
103:
104: while (cp = *argp++) {
105: if (*cp == '-')
106: switch (smatch (++cp, switches)) {
107: case AMBIGSW:
108: ambigsw (cp, switches);
109: done (1);
110: case UNKWNSW:
111: adios (NULLCP, "-%s unknown", cp);
112: case HELPSW:
113: (void) sprintf (buffer, "%s [+folder] [switches] bboard",
114: invo_name);
115: help (buffer, switches);
116: done (1);
117:
118: case SHELLSW:
119: if (!(shell = *argp++) || *shell == '-')
120: adios (NULLCP, "missing argument to %s", argp[-2]);
121: continue;
122:
123: case VERBSW:
124: verbosw++;
125: continue;
126: case NVERBSW:
127: verbosw = 0;
128: continue;
129: }
130: if (*cp == '+')
131: if (bbfolder)
132: adios (NULLCP, "only one folder at a time!");
133: else
134: bbfolder = cp;
135: else
136: if (bb != NULL)
137: adios (NULLCP, "only one BBoard a time!");
138: else
139: if ((bb = getbbnam (cp)) == NULL
140: && (bb = getbbaka (cp)) == NULL)
141: adios (NULLCP, "no such BBoard as '%s'", cp);
142: }
143:
144: /* */
145:
146: if (!bb)
147: adios (NULLCP, "no BBoard specified");
148: if (!bbfolder)
149: bbfolder = "+bbl";
150: (void) sprintf (subfolder, "%s/arc", bbfolder);
151:
152: if (!m_find ("path"))
153: free (path ("./", TFOLDER));
154: cwd = getcpy (pwd ());
155:
156: process ();
157:
158: m_replace (pfolder, current_folder);
159: m_update ();
160:
161: done (0);
162: }
163:
164: /* */
165:
166: process () {
167: int child_id;
168: char buffer[BUFSIZ];
169:
170: if (!ldrbb (bb) && !ldrchk (bb))
171: return;
172:
173: if (stat (bb -> bb_file, &bbstat) == NOTOK)
174: adios (NULLCP, "no such file as %s", bb -> bb_file);
175:
176: if (stat (bb -> bb_archive, &substat) != NOTOK
177: && substat.st_size > 0)
178: sub_ok++;
179: /* else */
180: substat.st_mode = bbstat.st_mode;/* archive should always match */
181: substat.st_gid = bbstat.st_gid;/* actual bboard mode & gid */
182:
183: /* do subfolder first, since you will lose otherwise... */
184: (void) sprintf (buffer, "Remove messages currently in %s? ", subfolder);
185: if (check_folder (subfolder) && getanswer (buffer))
186: rmf (subfolder);
187:
188: (void) sprintf (buffer, "Remove messages currently in %s? ", bbfolder);
189: if (check_folder (bbfolder) && getanswer (buffer))
190: rmf (bbfolder);
191:
192: switch (child_id = fork ()) {
193: case NOTOK:
194: adios ("fork", "unable to");
195:
196: case OK:
197: do_child (); /* NOTREACHED */
198:
199: default:
200: do_parent (child_id);
201: break;
202: }
203: }
204:
205: /* */
206:
207: int check_folder (folder)
208: char *folder;
209: {
210: char *maildir;
211: struct stat st;
212: struct msgs *mp;
213:
214: maildir = m_maildir (folder + 1);
215:
216: if (stat (maildir, &st) == NOTOK)
217: return 0;
218:
219: if ((st.st_mode & S_IFMT) != S_IFDIR)
220: adios (NULLCP, "not a directory '%s'", maildir);
221: check_mode (maildir, (st.st_mode | 0555) & 0777);
222:
223: if (chdir (maildir) == NOTOK)
224: adios (maildir, "unable to change to");
225: if (!(mp = m_gmsg (folder + 1)))
226: adios (NULLCP, "unable to read %s", folder);
227:
228: if (chdir (cwd) == NOTOK)
229: admonish (cwd, "could not change back to");
230: return (mp -> hghmsg != 0);
231: }
232:
233: /* */
234:
235: do_parent (child_id)
236: int child_id;
237: {
238: int zap = 0;
239: char buffer[BUFSIZ];
240:
241: if (pidwait (child_id, NOTOK) == NOTOK)
242: done (1);
243:
244: (void) putchar ('\n');
245:
246: (void) check_folder (bbfolder);
247: if (getanswer ("Incorporate changes? "))
248: update (&bbstat, bb -> bb_file, bbfolder, bb -> bb_info, bb -> bb_map);
249: (void) sprintf (buffer, "Remove %s? ", bbfolder);
250: if (getanswer (buffer))
251: zap++;
252:
253: if (check_folder (subfolder)) {
254: if (getanswer ("Update archives? "))
255: update (&substat, bb -> bb_archive, subfolder, NULLCP, NULLCP);
256: (void) sprintf (buffer, "Remove %s? ", subfolder);
257: if (getanswer (buffer))
258: rmf (subfolder);
259: }
260: else
261: if (sub_ok
262: && getanswer ("Remove archives? ")
263: && getanswer ("Are you sure? "))
264: if (unlink (bb -> bb_archive) == NOTOK)
265: admonish (bb -> bb_archive, "unable to remove %s");
266: if (zap)
267: rmf (bbfolder);
268: }
269:
270: /* */
271:
272: check_mode (dir, mode)
273: char *dir;
274: unsigned int mode;
275: {
276: int child_id;
277: struct stat st;
278: struct direct *dp;
279: DIR * dd;
280:
281: if (verbosw)
282: fprintf (stderr, "chmod %o %s\n", mode, dir);
283:
284: switch (child_id = fork ()) {
285: case NOTOK:
286: adios ("fork", "unable to");
287:
288: case OK:
289: (void) setgid (getgid ());
290: (void) setuid (getuid ());
291:
292: if (chmod (dir, (int) mode) == NOTOK)
293: adios (dir, "unable to change mode of");
294: if (chdir (dir) == NOTOK)
295: adios (dir, "unable to change to");
296: if ((dd = opendir (dir)) == NULL)
297: adios (dir, "unable to read");
298: while (dp = readdir (dd))
299: if (dp -> d_name[0] != '.') {
300: if (stat (dp -> d_name, &st) == NOTOK) {
301: admonish (dp -> d_name, "unable to stat");
302: continue;
303: }
304: if (chmod (dp -> d_name, (int) ((st.st_mode | 0444) & 0777))
305: == NOTOK)
306: admonish (dp -> d_name, "unable to change mode of");
307: }
308: closedir (dd);
309: done (0);
310:
311: default:
312: if (pidwait (child_id, OK))
313: done (1);
314: break;
315: }
316: }
317:
318: /* */
319:
320: /* ARGSUSED */
321:
322: update (stp, file, folder, info, map)
323: struct stat *stp;
324: char *file,
325: *folder,
326: *info,
327: *map;
328: {
329: int fd;
330: struct stat st;
331:
332: if (stat (file, &st) != NOTOK
333: && st.st_mtime != stp -> st_mtime) {
334: printf ("File '%s' has changed...\n", file);
335: if (getanswer ("Append to it instead? "))
336: goto work;
337: else
338: if (!getanswer ("Still update it? "))
339: return;
340: }
341: if ((fd = creat (file, BBMODE)) == NOTOK)
342: adios (file, "unable to re-create");
343: else {
344: (void) close (fd);
345: if (map)
346: (void) unlink (map);
347: }
348: #ifdef notdef
349: if (info)
350: check_info (folder, info);
351: #endif notdef
352:
353: work: ;
354: pack (folder, file);
355: if (chmod (file, (int) (stp -> st_mode & 0777)) == NOTOK)
356: admonish (file, "unable to change mode of");
357: if (stat (file, &st) != NOTOK && st.st_gid != stp -> st_gid)
358: chgrp (file, stp -> st_gid);
359: }
360:
361: /* */
362:
363: #ifdef notdef
364: check_info (folder, info)
365: char *folder,
366: *info;
367: {
368: int id,
369: state;
370: char *hdrptr,
371: *maildir,
372: *msgnam,
373: posted[BUFSIZ],
374: name[NAMESZ],
375: buf[BUFSIZ];
376: struct msgs *mp;
377: FILE * fp;
378:
379: if (chdir (maildir = m_maildir (folder + 1)) == NOTOK)
380: adios (maildir, "unable to change to");
381:
382: if (!(mp = m_gmsg (folder + 1)))
383: adios (NULL, "unable to read %s", folder);
384: if (mp -> hghmsg) {
385: if ((fp = fopen (msgnam = m_name (mp -> hghmsg), "r")) == NULL)
386: adios (NULL, "unable to read message %s in %s",
387: msgnam, folder);
388: id = 0;
389: posted[0] = NULL;
390: for (state = FLD;;) {
391: switch (state = m_getfld (state, name, buf, sizeof buf, fp)) {
392: case FLD:
393: case FLDEOF:
394: case FLDPLUS:
395: hdrptr = add (buf, NULL);
396: while (state == FLDPLUS) {
397: state = m_getfld (state, name, buf, sizeof buf, fp);
398: hdrptr = add (buf, hdrptr);
399: }
400: if (uleq (name, "BBoard-ID")) {
401: id = atoi (buf);
402: if (id > 0 && posted[0])
403: break;
404: }
405: if (uleq (name, "BB-Posted")) {
406: strncpy (posted, buf, sizeof posted - 2);
407: if (posted[strlen (posted) - 1] == '\n')
408: posted[strlen (posted) - 1] = NULL;
409: if (id > 0 && posted[0])
410: break;
411: }
412: continue;
413:
414: default:
415: admonish (NULL, "unable to find BBoard-info in message %s",
416: msgnam);
417: (void) fclose (fp);
418: goto no_risk;
419: }
420: break;
421: }
422: (void) fclose (fp);
423:
424: if (verbosw)
425: fprintf (stderr,
426: "[ Highest message has %s%d and\n\t\t %s%s ]\n",
427: "BBoard-ID: ", id, "BB-Posted: ", posted);
428:
429: if ((fp = lkfopen (info, "w")) == NULL)
430: adios (info, "unable to lock and fopen");
431: fprintf (fp, "%d\n%s\n", id, posted);
432: (void) lkfclose (fp, info);
433: }
434:
435: no_risk: ;
436: if (chdir (cwd) == NOTOK)
437: admonish (cwd, "could not change back to");
438: }
439: #endif notdef
440:
441: /* */
442:
443: pack (folder, file)
444: char *folder,
445: *file;
446: {
447: int child_id;
448:
449: switch (child_id = fork ()) {
450: case NOTOK:
451: admonish ("fork", "unable to");
452: return;
453:
454: case OK:
455: if (verbosw)
456: fprintf (stderr, "pack %s -file %s\n", folder, file);
457:
458: execlp (packproc, r1bindex (packproc, '/'),
459: folder, "-file", file, NULLCP);
460: fprintf (stderr, "unable to exec ");
461: perror (packproc);
462: _exit (-1);
463:
464: default:
465: (void) pidXwait (child_id, packproc);
466: break;
467: }
468: }
469:
470: /* */
471:
472: chgrp (file, gid)
473: char *file;
474: short gid;
475: {
476: int child_id;
477: char group[BUFSIZ];
478:
479: switch (child_id = fork ()) {
480: case NOTOK:
481: admonish ("fork", "unable to");
482: return;
483:
484: case OK:
485: (void) setuid (geteuid ());/* make sure chgrp works */
486: (void) sprintf (group, "%d", gid);
487: if (verbosw)
488: fprintf (stderr, "chgrp %s %s\n", group, file);
489:
490: execlp ("/bin/chgrp", "chgrp", group, file, NULLCP);
491: fprintf (stderr, "unable to exec ");
492: perror ("/bin/chgrp");
493: _exit (-1);
494:
495: default:
496: (void) pidXwait (child_id, "chgrp");
497: break;
498: }
499: }
500:
501: /* */
502:
503: rmf (folder)
504: char *folder;
505: {
506: int child_id;
507:
508: switch (child_id = fork ()) {
509: case NOTOK:
510: admonish ("fork", "unable to");
511: return;
512:
513: case OK:
514: (void) setgid (getgid ());
515: (void) setuid (getuid ());
516: if (verbosw)
517: fprintf (stderr, "rmf %s\n", folder);
518:
519: execlp (rmfproc, r1bindex (rmfproc, '/'), folder, NULLCP);
520: fprintf (stderr, "unable to exec ");
521: perror (rmfproc);
522: _exit (-1);
523:
524: default:
525: (void) pidXwait (child_id, rmfproc);
526: break;
527: }
528: }
529:
530: /* */
531:
532: do_child () {
533: char buffer[BUFSIZ];
534:
535: (void) setgid (getgid ()); /* become the user, not bboards */
536: (void) setuid (getuid ());
537:
538: inc (bb -> bb_file, bbfolder);
539: if (sub_ok)
540: inc (bb -> bb_archive, subfolder);
541: /* else
542: create the folder */
543:
544: if (verbosw)
545: (void) putchar ('\n');
546: printf ("[ Working folder is %s, Archive folder is %s ]\n",
547: bbfolder, subfolder);
548: printf ("[ Type CTRL-D to finish ]\n");
549:
550: m_replace (pfolder, bbfolder + 1);
551: m_update ();
552:
553: (void) sprintf (buffer, "=> %s: %s", invo_name, bb -> bb_name);
554: execlp (shell, buffer, NULLCP);
555: fprintf (stderr, "unable to exec ");
556: perror (shell);
557: _exit (-1);
558: }
559:
560: /* */
561:
562: inc (file, folder)
563: char *file,
564: *folder;
565: {
566: int child_id;
567:
568: switch (child_id = fork ()) {
569: case NOTOK:
570: adios ("fork", "unable to");
571:
572: case OK:
573: if (verbosw)
574: fprintf (stderr, "inc %s -file %s -silent\n", folder, file);
575: execlp (incproc, r1bindex (incproc, '/'),
576: folder, "-file", file, "-silent", NULLCP);
577: fprintf (stderr, "unable to exec ");
578: perror (incproc);
579: _exit (-1);
580:
581: default:
582: if (pidXwait (child_id, incproc))
583: done (1);
584: break;
585: }
586: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.