![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rmf.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 rmf.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip |
1.1 root 1: /* rmf.c - remove a folder */
2:
3: #include "../h/mh.h"
4: #include <stdio.h>
5: #include <sys/types.h>
6: #ifndef BSD42
7: #ifndef SYS5
8: #include <ndir.h>
9: #else SYS5
10: #include <dir.h>
11: #endif SYS5
12: #else BSD42
13: #include <sys/dir.h>
14: #endif BSD42
15:
16: /* */
17:
18: static struct swit switches[] = {
19: #define INTRSW 0
20: "interactive", 0,
21: #define NINTRSW 1
22: "nointerative", 0,
23:
24: #define HELPSW 2
25: "help", 4,
26:
27: NULL, NULL
28: };
29:
30: /* */
31:
32: /* ARGSUSED */
33:
34: main (argc, argv)
35: int argc;
36: char *argv[];
37: {
38: int defolder = 0,
39: interactive = -1;
40: char *cp,
41: *folder = NULL,
42: newfolder[BUFSIZ],
43: buf[100],
44: **ap,
45: **argp,
46: *arguments[MAXARGS];
47:
48: invo_name = r1bindex (argv[0], '/');
49: if ((cp = m_find (invo_name)) != NULL) {
50: ap = brkstring (cp = getcpy (cp), " ", "\n");
51: ap = copyip (ap, arguments);
52: }
53: else
54: ap = arguments;
55: (void) copyip (argv + 1, ap);
56: argp = arguments;
57:
58: /* */
59:
60: while (cp = *argp++) {
61: if (*cp == '-')
62: switch (smatch (++cp, switches)) {
63: case AMBIGSW:
64: ambigsw (cp, switches);
65: done (1);
66: case UNKWNSW:
67: adios (NULLCP, "-%s unknown", cp);
68: case HELPSW:
69: (void) sprintf (buf, "%s [+folder] [switches]", invo_name);
70: help (buf, switches);
71: done (1);
72:
73: case INTRSW:
74: interactive = 1;
75: continue;
76: case NINTRSW:
77: interactive = 0;
78: continue;
79: }
80: if (*cp == '+' || *cp == '@') {
81: if (folder)
82: adios (NULLCP, "only one folder at a time!");
83: else
84: folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
85: }
86: else
87: adios (NULLCP, "usage: %s [+folder] [switches]", invo_name);
88: }
89:
90: /* */
91:
92: if (!m_find ("path"))
93: free (path ("./", TFOLDER));
94: if (!folder) {
95: folder = m_getfolder ();
96: defolder++;
97: }
98: if (strcmp (m_mailpath (folder), pwd ()) == 0)
99: adios (NULLCP, "sorry, you can't remove the current working directory");
100:
101: if (interactive == -1)
102: interactive = defolder;
103:
104: if (index (folder, '/') && (*folder != '/') && (*folder != '.')) {
105: for (cp = copy (folder, newfolder); cp > newfolder && *cp != '/'; cp--)
106: continue;
107: if (cp > newfolder)
108: *cp = NULL;
109: else
110: (void) strcpy (newfolder, defalt);
111: }
112: else
113: (void) strcpy (newfolder, defalt);
114:
115: if (interactive) {
116: cp = concat ("Remove folder \"", folder, "\"? ", NULLCP);
117: if (!getanswer (cp))
118: done (0);
119: free (cp);
120: }
121:
122: if (rmf (folder) == OK && strcmp (m_find (pfolder), newfolder)) {
123: printf ("[+%s now current]\n", newfolder);
124: m_replace (pfolder, newfolder);
125: }
126: m_update ();
127:
128: done (0);
129: }
130:
131: /* */
132:
133: static int rmf (folder)
134: register char *folder;
135: {
136: int i,
137: j,
138: others;
139: register char *maildir;
140: char cur[BUFSIZ];
141: register struct direct *dp;
142: register DIR * dd;
143:
144: #ifdef COMPAT
145: (void) m_delete (concat (current, "-", m_mailpath (folder), NULLCP));
146: #endif COMPAT
147: switch (i = chdir (maildir = m_maildir (folder))) {
148: case OK:
149: if (access (".", 2) != NOTOK && access ("..", 2) != NOTOK)
150: break; /* fall otherwise */
151:
152: case NOTOK:
153: (void) sprintf (cur, "atr-%s-%s", current, m_mailpath (folder));
154: if (!m_delete (cur)) {
155: printf ("[+%s de-referenced]\n", folder);
156: return OK;
157: }
158: advise (NULLCP, "you have no profile entry for the %s folder +%s",
159: i == NOTOK ? "unreadable" : "read-only", folder);
160: return NOTOK;
161: }
162:
163: if ((dd = opendir (".")) == NULL)
164: adios (NULLCP, "unable to read folder +%s", folder);
165: others = 0;
166:
167: j = strlen (SBACKUP);
168: while (dp = readdir (dd)) {
169: switch (dp -> d_name[0]) {
170: case '.':
171: if (strcmp (dp -> d_name, ".") == 0
172: || strcmp (dp -> d_name, "..") == 0)
173: continue; /* else fall */
174:
175: case ',':
176: #ifdef MHE
177: case '+':
178: #endif MHE
179: #ifdef UCI
180: case '_':
181: case '#':
182: #endif UCI
183: break;
184:
185: default:
186: if (m_atoi (dp -> d_name))
187: break;
188: #ifdef COMPAT
189: if (strcmp (dp -> d_name, current) == 0)
190: break;
191: #endif COMPAT
192: if (strcmp (dp -> d_name, LINK) == 0
193: || strncmp (dp -> d_name, SBACKUP, j) == 0)
194: break;
195:
196: admonish (NULLCP, "file \"%s/%s\" not deleted",
197: folder, dp -> d_name);
198: others++;
199: continue;
200: }
201: if (unlink (dp -> d_name) == NOTOK) {
202: admonish (dp -> d_name, "unable to unlink %s:", folder);
203: others++;
204: }
205: }
206:
207: closedir (dd);
208:
209: rma (folder);
210:
211: (void) chdir ("..");
212: if (others == 0 && remdir (maildir))
213: return OK;
214:
215: advise (NULLCP, "folder +%s not removed", folder);
216: return NOTOK;
217: }
218:
219: /* */
220:
221: static rma (folder)
222: register char *folder;
223: {
224: register int alen,
225: j,
226: plen;
227: register char *cp;
228: register struct node *np,
229: *pp;
230:
231: alen = strlen ("atr-");
232: plen = strlen (cp = m_mailpath (folder)) + 1;
233:
234: m_getdefs ();
235: for (np = m_defs, pp = NULL; np; np = np -> n_next)
236: if (ssequal ("atr-", np -> n_name)
237: && (j = strlen (np -> n_name) - plen) > alen
238: && *(np -> n_name + j) == '-'
239: && strcmp (cp, np -> n_name + j + 1) == 0) {
240: if (!np -> n_context)
241: admonish (NULLCP, "bug: m_delete(key=\"%s\")", np -> n_name);
242: if (pp) {
243: pp -> n_next = np -> n_next;
244: np = pp;
245: }
246: else
247: m_defs = np -> n_next;
248: ctxflags |= CTXMOD;
249: }
250: else
251: pp = np;
252: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.