9 date 92.11.04.00.39.25; author jromine; state Exp;
14 date 92.02.04.00.02.03; author jromine; state Exp;
19 date 92.02.03.16.46.28; author jromine; state Exp;
24 date 90.04.05.14.56.46; author sources; state Exp;
29 date 89.11.17.15.57.51; author sources; state Exp;
34 date 89.06.26.14.36.36; author sources; state Exp;
48 @/* bbl.c - ease the tasks of a BBleader */
50 static char ident[] = "@@(#)$Id: bbl.c,v 2.3 1992/02/04 00:02:03 jromine Exp jromine $";
54 #include "../h/local.h"
55 #include "../zotnet/bboards.h"
65 static struct swit switches[] = {
82 static int verbosw = 0;
84 static int sub_ok = 0;
86 static char *bboards = BBOARDS;
88 static char *cwd = NULL;
90 static char *current_folder = NULL;
92 static char *bbfolder = NULL;
93 static char subfolder[BUFSIZ];
95 static struct stat bbstat;
96 static struct stat substat;
98 static char *shell = "/bin/sh";
100 static struct bboard *bb = NULL;
105 struct passwd *getpwnam (), *getpwuid ();
125 setlocale(LC_ALL, "");
127 invo_name = r1bindex (argv[0], '/');
128 if ((cp = m_find (invo_name)) != NULL) {
129 ap = brkstring (cp = getcpy (cp), " ", "\n");
130 ap = copyip (ap, arguments);
134 (void) copyip (argv + 1, ap);
137 if ((shell = getenv ("SHELL")) == NULL)
138 if ((pw = getpwuid (getuid ())) != NULL
141 shell = getcpy (pw -> pw_shell);
143 if ((pw = getpwnam (bboards)) == NULL)
144 adios (NULLCP, "no entry for ~%s", bboards);
145 if (pw -> pw_uid != geteuid ())
146 adios (NULLCP, "not running setuid to %s", bboards);
148 current_folder = ((cp = m_find (pfolder)) || (cp = m_find (inbox)))
149 ? getcpy (cp) : defalt;
153 while (cp = *argp++) {
155 switch (smatch (++cp, switches)) {
157 ambigsw (cp, switches);
160 adios (NULLCP, "-%s unknown", cp);
162 (void) sprintf (buffer, "%s [+folder] [switches] bboard",
164 help (buffer, switches);
168 if (!(shell = *argp++) || *shell == '-')
169 adios (NULLCP, "missing argument to %s", argp[-2]);
181 adios (NULLCP, "only one folder at a time!");
186 adios (NULLCP, "only one BBoard a time!");
188 if ((bb = getbbnam (cp)) == NULL
189 && (bb = getbbaka (cp)) == NULL)
190 adios (NULLCP, "no such BBoard as '%s'", cp);
196 adios (NULLCP, "no BBoard specified");
199 (void) sprintf (subfolder, "%s/arc", bbfolder);
201 if (!m_find ("path"))
202 free (path ("./", TFOLDER));
203 cwd = getcpy (pwd ());
207 m_replace (pfolder, current_folder);
219 if (!ldrbb (bb) && !ldrchk (bb))
222 if (stat (bb -> bb_file, &bbstat) == NOTOK)
223 adios (NULLCP, "no such file as %s", bb -> bb_file);
225 if (stat (bb -> bb_archive, &substat) != NOTOK
226 && substat.st_size > 0)
229 substat.st_mode = bbstat.st_mode;/* archive should always match */
230 substat.st_gid = bbstat.st_gid;/* actual bboard mode & gid */
232 /* do subfolder first, since you will lose otherwise... */
233 (void) sprintf (buffer, "Remove messages currently in %s? ", subfolder);
234 if (check_folder (subfolder) && getanswer (buffer))
237 (void) sprintf (buffer, "Remove messages currently in %s? ", bbfolder);
238 if (check_folder (bbfolder) && getanswer (buffer))
241 switch (child_id = fork ()) {
243 adios ("fork", "unable to");
246 do_child (); /* NOTREACHED */
249 do_parent (child_id);
256 int check_folder (folder)
263 maildir = m_maildir (folder + 1);
265 if (stat (maildir, &st) == NOTOK)
268 if ((st.st_mode & S_IFMT) != S_IFDIR)
269 adios (NULLCP, "not a directory '%s'", maildir);
270 check_mode (maildir, (st.st_mode | 0555) & 0777);
272 if (chdir (maildir) == NOTOK)
273 adios (maildir, "unable to change to");
274 if (!(mp = m_gmsg (folder + 1)))
275 adios (NULLCP, "unable to read %s", folder);
277 if (chdir (cwd) == NOTOK)
278 admonish (cwd, "could not change back to");
279 return (mp -> hghmsg != 0);
290 if (pidwait (child_id, NOTOK) == NOTOK)
293 (void) putchar ('\n');
295 (void) check_folder (bbfolder);
296 if (getanswer ("Incorporate changes? "))
297 update (&bbstat, bb -> bb_file, bbfolder, bb -> bb_info, bb -> bb_map);
298 (void) sprintf (buffer, "Remove %s? ", bbfolder);
299 if (getanswer (buffer))
302 if (check_folder (subfolder)) {
303 if (getanswer ("Update archives? "))
304 update (&substat, bb -> bb_archive, subfolder, NULLCP, NULLCP);
305 (void) sprintf (buffer, "Remove %s? ", subfolder);
306 if (getanswer (buffer))
311 && getanswer ("Remove archives? ")
312 && getanswer ("Are you sure? "))
313 if (unlink (bb -> bb_archive) == NOTOK)
314 admonish (bb -> bb_archive, "unable to remove %s");
321 check_mode (dir, mode)
335 fprintf (stderr, "chmod %o %s\n", mode, dir);
337 switch (child_id = fork ()) {
339 adios ("fork", "unable to");
342 (void) setgid (getgid ());
343 (void) setuid (getuid ());
345 if (chmod (dir, (int) mode) == NOTOK)
346 adios (dir, "unable to change mode of");
347 if (chdir (dir) == NOTOK)
348 adios (dir, "unable to change to");
349 if ((dd = opendir (dir)) == NULL)
350 adios (dir, "unable to read");
351 while (dp = readdir (dd))
352 if (dp -> d_name[0] != '.') {
353 if (stat (dp -> d_name, &st) == NOTOK) {
354 admonish (dp -> d_name, "unable to stat");
357 if (chmod (dp -> d_name, (int) ((st.st_mode | 0444) & 0777))
359 admonish (dp -> d_name, "unable to change mode of");
365 if (pidwait (child_id, OK))
375 update (stp, file, folder, info, map)
385 if (stat (file, &st) != NOTOK
386 && st.st_mtime != stp -> st_mtime) {
387 printf ("File '%s' has changed...\n", file);
388 if (getanswer ("Append to it instead? "))
391 if (!getanswer ("Still update it? "))
394 if ((fd = creat (file, BBMODE)) == NOTOK)
395 adios (file, "unable to re-create");
403 check_info (folder, info);
408 if (chmod (file, (int) (stp -> st_mode & 0777)) == NOTOK)
409 admonish (file, "unable to change mode of");
410 if (stat (file, &st) != NOTOK && st.st_gid != stp -> st_gid)
411 chgrp (file, stp -> st_gid);
417 check_info (folder, info)
432 if (chdir (maildir = m_maildir (folder + 1)) == NOTOK)
433 adios (maildir, "unable to change to");
435 if (!(mp = m_gmsg (folder + 1)))
436 adios (NULL, "unable to read %s", folder);
438 if ((fp = fopen (msgnam = m_name (mp -> hghmsg), "r")) == NULL)
439 adios (NULL, "unable to read message %s in %s",
443 for (state = FLD;;) {
444 switch (state = m_getfld (state, name, buf, sizeof buf, fp)) {
448 hdrptr = add (buf, NULL);
449 while (state == FLDPLUS) {
450 state = m_getfld (state, name, buf, sizeof buf, fp);
451 hdrptr = add (buf, hdrptr);
453 if (uleq (name, "BBoard-ID")) {
455 if (id > 0 && posted[0])
458 if (uleq (name, "BB-Posted")) {
459 strncpy (posted, buf, sizeof posted - 2);
460 if (posted[strlen (posted) - 1] == '\n')
461 posted[strlen (posted) - 1] = NULL;
462 if (id > 0 && posted[0])
468 admonish (NULL, "unable to find BBoard-info in message %s",
479 "[ Highest message has %s%d and\n\t\t %s%s ]\n",
480 "BBoard-ID: ", id, "BB-Posted: ", posted);
482 if ((fp = lkfopen (info, "w")) == NULL)
483 adios (info, "unable to lock and fopen");
484 fprintf (fp, "%d\n%s\n", id, posted);
485 (void) lkfclose (fp, info);
489 if (chdir (cwd) == NOTOK)
490 admonish (cwd, "could not change back to");
502 switch (child_id = fork ()) {
504 admonish ("fork", "unable to");
509 fprintf (stderr, "pack %s -file %s\n", folder, file);
511 execlp (packproc, r1bindex (packproc, '/'),
512 folder, "-file", file, NULLCP);
513 fprintf (stderr, "unable to exec ");
518 (void) pidXwait (child_id, packproc);
532 switch (child_id = fork ()) {
534 admonish ("fork", "unable to");
538 (void) setuid (geteuid ());/* make sure chgrp works */
539 (void) sprintf (group, "%d", gid);
541 fprintf (stderr, "chgrp %s %s\n", group, file);
543 execlp ("/bin/chgrp", "chgrp", group, file, NULLCP);
544 fprintf (stderr, "unable to exec ");
545 perror ("/bin/chgrp");
549 (void) pidXwait (child_id, "chgrp");
561 switch (child_id = fork ()) {
563 admonish ("fork", "unable to");
567 (void) setgid (getgid ());
568 (void) setuid (getuid ());
570 fprintf (stderr, "rmf %s\n", folder);
572 execlp (rmfproc, r1bindex (rmfproc, '/'), folder, NULLCP);
573 fprintf (stderr, "unable to exec ");
578 (void) pidXwait (child_id, rmfproc);
588 (void) setgid (getgid ()); /* become the user, not bboards */
589 (void) setuid (getuid ());
591 inc (bb -> bb_file, bbfolder);
593 inc (bb -> bb_archive, subfolder);
598 (void) putchar ('\n');
599 printf ("[ Working folder is %s, Archive folder is %s ]\n",
600 bbfolder, subfolder);
601 printf ("[ Type CTRL-D to finish ]\n");
603 m_replace (pfolder, bbfolder + 1);
606 (void) sprintf (buffer, "=> %s: %s", invo_name, bb -> bb_name);
607 execlp (shell, buffer, NULLCP);
608 fprintf (stderr, "unable to exec ");
621 switch (child_id = fork ()) {
623 adios ("fork", "unable to");
627 fprintf (stderr, "inc %s -file %s -silent\n", folder, file);
628 execlp (incproc, r1bindex (incproc, '/'),
629 folder, "-file", file, "-silent", NULLCP);
630 fprintf (stderr, "unable to exec ");
635 if (pidXwait (child_id, incproc))
650 static char ident[] = "@@(#)$Id: bbl.c,v 2.2 1992/02/03 16:46:28 jromine Exp jromine $";
663 static char ident[] = "@@(#)$Id: bbl.c,v 2.1 90/04/05 14:56:46 sources Exp $";
666 current_folder = (cp = m_find (pfolder)) ? getcpy (cp) : defalt;
677 static char ident[] = "@@(#)$Id:$";
687 @changes for SUN40 shared libraries and NNTP under bbc