BSD 4_4_Lite1 release

[unix-history] / usr / src / contrib / mh-6.8.3a / uip / rmf.c

/* rmf.c - remove a folder */
#ifndef	lint
static char ident[] = "@(#)$Id: rmf.c,v 2.7 1992/12/15 00:20:22 jromine Exp $";
#endif	/* lint */

#include "../h/mh.h"
#include "../h/local.h"
#include <stdio.h>
#ifdef LOCALE
#include	<locale.h>
#endif

/* \f */

static struct swit switches[] = {
#define	INTRSW	0
    "interactive", 0,
#define	NINTRSW	1
    "nointeractive", 0,

#define	HELPSW	2
    "help", 4,

    NULL, 0
};

static	int	rmf();
static 		rma();
/* \f */

/* ARGSUSED */

main (argc, argv)
int argc;
char *argv[];
{
    int     defolder = 0,
            interactive = -1;
    char   *cp,
           *folder = NULL,
            newfolder[BUFSIZ],
            buf[100],
          **ap,
          **argp,
           *arguments[MAXARGS];

#ifdef LOCALE
	setlocale(LC_ALL, "");
#endif
    invo_name = r1bindex (argv[0], '/');
    if ((cp = m_find (invo_name)) != NULL) {
	ap = brkstring (cp = getcpy (cp), " ", "\n");
	ap = copyip (ap, arguments);
    }
    else
	ap = arguments;
    (void) copyip (argv + 1, ap);
    argp = arguments;

/* \f */

    while (cp = *argp++) {
	if (*cp == '-')
	    switch (smatch (++cp, switches)) {
		case AMBIGSW: 
		    ambigsw (cp, switches);
		    done (1);
		case UNKWNSW: 
		    adios (NULLCP, "-%s unknown", cp);
		case HELPSW: 
		    (void) sprintf (buf, "%s [+folder] [switches]", invo_name);
		    help (buf, switches);
		    done (1);

		case INTRSW: 
		    interactive = 1;
		    continue;
		case NINTRSW: 
		    interactive = 0;
		    continue;
	    }
	if (*cp == '+' || *cp == '@') {
	    if (folder)
		adios (NULLCP, "only one folder at a time!");
	    else
		folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
	}
	else
	    adios (NULLCP, "usage: %s [+folder] [switches]", invo_name);
    }

/* \f */

    if (!m_find ("path"))
	free (path ("./", TFOLDER));
    if (!folder) {
	folder = m_getfolder ();
	defolder++;
    }
    if (strcmp (m_mailpath (folder), pwd ()) == 0)
	adios (NULLCP, "sorry, you can't remove the current working directory");

    if (interactive == -1)
	interactive = defolder;

    if (index (folder, '/') && (*folder != '/') && (*folder != '.')) {
	for (cp = copy (folder, newfolder); cp > newfolder && *cp != '/'; cp--)
	    continue;
	if (cp > newfolder)
	    *cp = '\0';
	else
	    (void) strcpy (newfolder, (cp = m_find (inbox)) ? cp : defalt);
    }
    else
	(void) strcpy (newfolder, (cp = m_find (inbox)) ? cp : defalt);

    if (interactive) {
	cp = concat ("Remove folder \"", folder, "\"? ", NULLCP);
	if (!getanswer (cp))
	    done (0);
	free (cp);
    }

    if (rmf (folder) == OK && strcmp (m_find (pfolder), newfolder)) {
	printf ("[+%s now current]\n", newfolder);
	m_replace (pfolder, newfolder);
    }
    m_update ();

    done (0);
}

/* \f */

static int  rmf (folder)
register char *folder;
{
    int     i,
            j,
            others;
    register char  *maildir;
    char    cur[BUFSIZ];
#ifdef SYS5DIR
    register struct dirent *dp;
#else	/*  SYS5DIR */
    register struct direct *dp;
#endif	/* SYS5DIR */
    register    DIR * dd;

#ifdef	COMPAT
    (void) m_delete (concat (current, "-", m_mailpath (folder), NULLCP));
#endif	/* COMPAT */
    switch (i = chdir (maildir = m_maildir (folder))) {
	case OK: 
	    if (access (".", 2) != NOTOK && access ("..", 2) != NOTOK)
		break;		/* fall otherwise */

	case NOTOK: 
	    (void) sprintf (cur, "atr-%s-%s", current, m_mailpath (folder));
	    if (!m_delete (cur)) {
		printf ("[+%s de-referenced]\n", folder);
		return OK;
	    }
	    advise (NULLCP, "you have no profile entry for the %s folder +%s",
		    i == NOTOK ? "unreadable" : "read-only", folder);
	    return NOTOK;
    }

    if ((dd = opendir (".")) == NULL)
	adios (NULLCP, "unable to read folder +%s", folder);
    others = 0;

    j = strlen (SBACKUP);
    while (dp = readdir (dd)) {
	switch (dp -> d_name[0]) {
	    case '.': 
		if (strcmp (dp -> d_name, ".") == 0
			|| strcmp (dp -> d_name, "..") == 0)
		    continue;	/* else fall */

	    case ',': 
#ifdef	MHE
	    case '+': 
#endif	/* MHE */
#ifdef	UCI
	    case '_': 
	    case '#': 
#endif	/* UCI */
		break;

	    default: 
		if (m_atoi (dp -> d_name))
		    break;
#ifdef	COMPAT
		if (strcmp (dp -> d_name, current) == 0)
		    break;
#endif	/* COMPAT */
		if (strcmp (dp -> d_name, LINK) == 0
			|| strncmp (dp -> d_name, SBACKUP, j) == 0)
		    break;

		admonish (NULLCP, "file \"%s/%s\" not deleted",
			folder, dp -> d_name);
		others++;
		continue;
	}
	if (unlink (dp -> d_name) == NOTOK) {
	    admonish (dp -> d_name, "unable to unlink %s:", folder);
	    others++;
	}
    }

    closedir (dd);

    rma (folder);

    (void) chdir ("..");
    if (others == 0 && remdir (maildir))
	return OK;

    advise (NULLCP, "folder +%s not removed", folder);
    return NOTOK;
}

/* \f */

static  rma (folder)
register char   *folder;
{
    register int    alen,
                    j,
                    plen;
    register char  *cp;
    register struct node   *np,
                           *pp;

    alen = strlen ("atr-");
    plen = strlen (cp = m_mailpath (folder)) + 1;

    m_getdefs ();
    for (np = m_defs, pp = NULL; np; np = np -> n_next)
	if (ssequal ("atr-", np -> n_name)
		&& (j = strlen (np -> n_name) - plen) > alen
		&& *(np -> n_name + j) == '-'
		&& strcmp (cp, np -> n_name + j + 1) == 0) {
	    if (!np -> n_context)
		admonish (NULLCP, "bug: m_delete(key=\"%s\")", np -> n_name);
	    if (pp) {
		pp -> n_next = np -> n_next;
		np = pp;
	    }
	    else
		m_defs = np -> n_next;
	    ctxflags |= CTXMOD;
	}
	else
	    pp = np;
}