/* bbexp.c - expunge the BBoards area */

#include "../h/mh.h"
#include "../h/dropsbr.h"
#include "../zotnet/bboards.h"
#include <pwd.h>
#include <signal.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>


#define	FIRST	12
#define	SECOND	20


static int  broken_pipe;

int	pipeser ();


struct passwd *getpwnam ();

/*  */

/* ARGSUSED */

main (argc, argv)
int	argc;
char  **argv;
{
    int	    first = FIRST,
	    second = SECOND;
    char   *cp;
    struct bboard  *bb;
    struct passwd  *pw;

    invo_name = r1bindex (*argv++, '/');
    m_foil (NULLCP);

    if ((pw = getpwnam (BBOARDS)) == NULL)
	adios (NULLCP, "no entry for ~%s", BBOARDS);
    if (pw -> pw_uid != geteuid ())
	adios (NULLCP, "not running setuid to %s", BBOARDS);

    if (*argv && **argv == '-') {
	if ((first = atoi (*argv + 1)) < 1)
	    first = FIRST;
	argv++;
    }
    if (*argv && **argv == '-') {
	if ((second = atoi (*argv + 1)) < 1)
	    second = SECOND;
	argv++;
    }
    
    (void) setbbent (SB_STAY);
    if (*argv == NULL)
	while (bb = getbbent ()) {
	    if ((bb -> bb_flags & BB_ARCH) & (BB_ASAV | BB_AREM))
		process (bb, pw, first, second);
	}
    else
	while (cp = *argv++)
	    if ((bb = getbbnam (cp)) || (bb = getbbaka (cp))) {
		if ((bb -> bb_flags & BB_ARCH) & (BB_ASAV | BB_AREM))
		    process (bb, pw, first, second);
	    }
	    else
		advise (NULLCP, "no such BBoard as %s", cp);
    (void) endbbent ();

    exit (0);
}

/*  */

static process(bb, pw, first, second)
struct bboard *bb;
struct passwd *pw;
int	first,
	second;
{
    int     fd,
            td;
    char   *cp,
            command[BUFSIZ],
            tmpfil[BUFSIZ];
    FILE * pf;

    if ((fd = lkopen (bb -> bb_file, 6)) == NOTOK) {
	advise (bb -> bb_file, "unable to lock and open");
	return;
    }

    (void) sprintf (tmpfil, "%s/#bbexpXXXXXX", pw -> pw_dir);
    (void) unlink (mktemp (tmpfil));
    if ((td = creat (tmpfil, 0600)) == NOTOK) {
	advise (tmpfil, "unable to create");
	goto out1;
    }
    (void) close (td);
    if ((td = creat (cp = map_name (tmpfil), 0600)) == NOTOK) {
	advise (cp, "unable to create");
	goto out2;
    }
    (void) close (td);

    (void) sprintf (command, "%s %s%s", mshproc, bb -> bb_file,
	    isatty (fileno (stdout)) ? " 2>&1 | cat" : "");
    printf ("%s  (%s old messages)\n", command,
	    (bb -> bb_flags & BB_ARCH) == BB_ASAV ? "archive" : "remove");
    (void) fflush (stdout);
    if ((pf = popen (command, "w")) == NULL) {
	advise (NULLCP, "unable to popen \"%s\" for writing", command);
	goto out3;
    }
    (void) signal (SIGPIPE, pipeser);
    broken_pipe = 0;

    fprintf (pf, "pick %s -before -%d -sequence select -zero\n",
	    "-datefield BB-Posted", first);
    fprintf (pf, "pick -before -%d -sequence select -nozero\n", second);
    fprintf (pf, "scan select\n");
    if ((bb -> bb_flags & BB_ARCH) == BB_ASAV)
	fprintf (pf, "pack select -file %s\n", bb -> bb_archive);
    fprintf (pf, "rmm select\n");
    fprintf (pf, "pack all -file %s\n", tmpfil);
    fprintf (pf, "quit\n");
    if (td = pclose (pf))
	advise (NULLCP, "msh returns %d", td);
    (void) signal (SIGPIPE, SIG_DFL);

    if (move (tmpfil, bb -> bb_file) != NOTOK)
	(void) move (cp, bb -> bb_map);

out3: ;
    (void) unlink (cp);
out2: ;
    (void) unlink (tmpfil);
out1: ;
    (void) lkclose (fd, bb -> bb_file);
}

/*  */

static  int move (input, output)
char   *input,
       *output;
{
    int     i,
            in,
            out;
    struct stat st1,
                st2;

    if ((in = open (input, 0)) == NOTOK) {
	advise (input, "unable to re-open");
	return NOTOK;
    }

    i = stat (output, &st1);
    if ((out = creat (output, BBMODE)) == NOTOK) {
	advise (output, "unable to re-create");
	return NOTOK;
    }
    if (i != NOTOK && chmod (output, (int) (st1.st_mode & 0777)) == NOTOK)
	admonish (output, "unable to change mode of");
    if (i != NOTOK && stat (output, &st2) != NOTOK && st2.st_gid != st1.st_gid)
	chgrp (output, st1.st_gid);

    cpydata (in, out, input, output);

    (void) close (in);
    (void) close (out);

    return OK;
}

/*  */

static  chgrp (file, gid)
char   *file;
short   gid;
{
    int     child_id;
    char    group[BUFSIZ];

    switch (child_id = fork ()) {
	case NOTOK: 
	    admonish ("fork", "unable to");
	    return;

	case OK: 
	    (void) setuid (geteuid ());
	    (void) sprintf (group, "%d", gid);
	    execlp ("/bin/chgrp", chgrp, group, file, NULLCP);
	    fprintf (stderr, "unable to exec ");
	    perror ("/bin/chgrp");
	    _exit (1);

	default: 
	    (void) pidwait (child_id, OK);
	    break;
    }
}

/*  */

/* ARGSUSED */

static  int pipeser (i)
int     i;
{
#ifndef	BSD42
    (void) signal (SIGPIPE, pipeser);
#endif	not BSD42

    if (!broken_pipe++)
	advise (NULLCP, "broken pipe");
}

/*  */

#ifdef	notdef

/* This is the OLD way of doing it */

			      bbremove.sh
: run this script through /bin/sh
pick +bbl -before -12 -datefield BB-Posted -sequence select -zero
pick +bbl -before -20 -sequence select -nozero
scan select; refile -src +bbl select +bbl/arc
rmf +bbl/arc

			       bbsave.sh
: run this script through /bin/sh
pick +bbl -before -12 -datefield BB-Posted -sequence select -zero
pick +bbl -before -20 -sequence select -nozero
scan select; refile -src +bbl select +bbl/arc

/* bbexp.c - generate a script to archive the BBoards area */

#include <stdio.h>
#include "../zotnet/bboards.h"

/*  */

/* ARGSUSED */

main (argc, argv)
int     argc;
char  **argv;
{
    struct bboard  *bb;

    printf ("#! /bin/sh\n");

    (void) setbbent (SB_STAY);
    while (bb = getbbent ())
	switch (bb -> bb_flags & BB_ARCH) {
	    case BB_ASAV: 
		printf ("bbl -shell bbsave %s\n", bb -> bb_name);
		break;

	    case BB_AREM: 
		printf ("bbl -shell bbremove %s\n", bb -> bb_name);
		break;
	}

    (void) endbbent ();

    exit (0);
}
#endif	notdef