1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Termination processing.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2015 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 #ifndef HAVE_AMALGAMATION
47 QUITFLAG_KEEPSAVE
= 1<<2,
48 QUITFLAG_APPEND
= 1<<3,
49 QUITFLAG_EMPTYBOX
= 1<<4
57 static struct quitnames
const _quitnames
[] = {
58 {QUITFLAG_HOLD
, ok_b_hold
},
59 {QUITFLAG_KEEP
, ok_b_keep
},
60 {QUITFLAG_KEEPSAVE
, ok_b_keepsave
},
61 {QUITFLAG_APPEND
, ok_b_append
},
62 {QUITFLAG_EMPTYBOX
, ok_b_emptybox
} /* TODO obsolete emptybox */
65 static char _mboxname
[PATH_MAX
]; /* Name of mbox */
67 /* Touch the indicated file */
68 static void _alter(char const *name
);
70 /* Preserve all the appropriate messages back in the system mailbox, and print
71 * a nice message indicated how many were saved. On any error, just return -1.
72 * Else return 0. Incorporate the any new mail that we found */
73 static int writeback(FILE *res
, FILE *obuf
);
75 /* Terminate an editing session by attempting to write out the user's file from
76 * the temporary. Save any new stuff appended to the file */
77 static bool_t
edstop(void);
79 /* Remove "mailname", unless *keep* says otherwise; force truncation, then */
80 static void _demail(void);
83 _alter(char const *name
) /* TODO error handling */
86 struct timespec tsa
[2];
94 tsa
[0].tv_sec
= n_time_epoch() + 1;
96 tsa
[1].tv_nsec
= UTIME_OMIT
;
97 utimensat(AT_FDCWD
, name
, tsa
, 0);
99 if (!stat(name
, &sb
)) {
100 utb
.actime
= n_time_epoch() + 1;
101 utb
.modtime
= sb
.st_mtime
;
109 writeback(FILE *res
, FILE *obuf
)
115 if (fseek(obuf
, 0L, SEEK_SET
) == -1)
120 while ((c
= getc(res
)) != EOF
)
124 for (p
= 0, mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
125 if ((mp
->m_flag
& MPRESERVE
) || !(mp
->m_flag
& MTOUCH
)) {
127 if (sendmp(mp
, obuf
, NULL
, NULL
, SEND_MBOX
, NULL
) < 0) {
137 while ((c
= getc(res
)) != EOF
)
145 fseek(obuf
, 0L, SEEK_SET
);
148 if (fseek(obuf
, 0L, SEEK_SET
) == -1)
153 printf(_("Held 1 message in %s\n"), displayname
);
155 printf(_("Held %d messages in %s\n"), p
, displayname
);
165 edstop(void) /* TODO oh my god */
169 FILE *obuf
= NULL
, *ibuf
= NULL
;
181 for (mp
= message
, gotcha
= 0; PTRCMP(mp
, <, message
+ msgCount
); ++mp
) {
182 if (mp
->m_flag
& MNEW
) {
184 mp
->m_flag
|= MSTATUS
;
186 if (mp
->m_flag
& (MODIFY
| MDELETED
| MSTATUS
| MFLAG
| MUNFLAG
|
187 MANSWER
| MUNANSWER
| MDRAFT
| MUNDRAFT
))
195 /* TODO This is too simple minded? We should regenerate an index file
196 * TODO to be able to truly tell wether *anything* has changed!
197 * TODO (Or better: only come here.. then! It is an *object method!* */
198 /* TODO Ignoring stat error is easy, huh? */
199 if (!stat(mailname
, &statb
) && statb
.st_size
> mailsize
) {
200 if ((obuf
= Ftmp(NULL
, "edstop", OF_RDWR
| OF_UNLINK
| OF_REGISTER
)) ==
202 n_perr(_("tmpfile"), 0);
205 if ((ibuf
= Zopen(mailname
, "r")) == NULL
) {
211 n_file_lock(fileno(ibuf
), FLT_READ
, 0,0, UIZ_MAX
); /* TODO ign. lock err*/
212 fseek(ibuf
, (long)mailsize
, SEEK_SET
);
213 while ((c
= getc(ibuf
)) != EOF
) /* xxx bytewise??? TODO ... I/O error? */
220 printf(_("\"%s\" "), displayname
);
223 if ((obuf
= Zopen(mailname
, "r+")) == NULL
) {
228 n_file_lock(fileno(obuf
), FLT_WRITE
, 0,0, UIZ_MAX
); /* TODO ign. lock err! */
233 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
) {
234 if (mp
->m_flag
& MDELETED
)
237 if (sendmp(mp
, obuf
, NULL
, NULL
, SEND_MBOX
, NULL
) < 0) {
246 gotcha
= (c
== 0 && ibuf
== NULL
);
248 while ((c
= getc(ibuf
)) != EOF
)
258 if (gotcha
&& !ok_blook(keep
) && !ok_blook(emptybox
)/* TODO obsolete eb*/) {
261 if ((rms
= n_path_rm(mailname
)) == TRU1
)
262 printf((ok_blook(bsdcompat
) || ok_blook(bsdmsgs
))
263 ? _("removed\n") : _("removed.\n"));
266 printf(_("removal error (ignored)\n"));
267 n_err(_("Error removing \"%s\" (ignored):"), mailname
); /* TODO */
268 n_perr(NULL
, e
); /* TODO */
271 printf((ok_blook(bsdcompat
) || ok_blook(bsdmsgs
))
272 ? _("complete\n") : _("updated.\n"));
282 /* TODO The codebase aborted by jumping to the main loop here.
283 * TODO The OpenBSD mailx simply ignores this error.
284 * TODO For now we follow the latter unless we are interactive,
285 * TODO in which case we ask the user wether the error is to be
286 * TODO ignored or not. More of this around here in this file! */
287 rv
= getapproval(_("Continue, possibly loosing changes"), TRU1
);
295 _demail(void) /* TODO error handling */
298 if (ok_blook(keep
) || n_path_rm(mailname
) <= FAL0
) {
299 /* TODO demail(): try use f?truncate(2) instead?! */
300 int fd
= open(mailname
, (O_WRONLY
| O_CREAT
| n_O_NOFOLLOW
| O_TRUNC
),
311 int p
, modify
, anystat
, c
;
312 FILE *fbuf
= NULL
, *lckfp
= NULL
, *rbuf
, *abuf
;
319 temporary_localopts_folder_hook_unroll();
321 /* If we are read only, we can't do anything, so just return quickly */
322 /* TODO yet we cannot return quickly if resources have to be released!
323 * TODO somewhen it'll be mailbox->quit() anyway, for now do it by hand
324 *if (mb.mb_perm == 0)
326 p
= (mb
.mb_perm
== 0);
328 /* TODO lex.c:setfile() has just called hold_sigs(); before it called
329 * TODO us, but this causes uninterruptible hangs due to blocked sigs
330 * TODO anywhere except for MB_FILE (all others install their own
331 * TODO handlers, as it seems, properly); marked YYY */
332 switch (mb
.mb_type
) {
336 rele_sigs(); /* YYY */
338 hold_sigs(); /* YYY */
342 rele_sigs(); /* YYY */
344 hold_sigs(); /* YYY */
353 goto jleave
; /* TODO */
356 /* If editing (not reading system mail box), then do the work in edstop() */
357 if (pstate
& PS_EDIT
) {
362 /* See if there any messages to save in mbox. If no, we
363 * can save copying mbox to /tmp and back.
365 * Check also to see if any files need to be preserved.
366 * Delete all untouched messages to keep them out of mbox.
367 * If all the messages are to be preserved, just exit with
369 fbuf
= Zopen(mailname
, "r+");
373 printf(_("Thou hast new mail.\n"));
378 if ((lckfp
= n_dotlock(mailname
, fileno(fbuf
), FLT_WRITE
, 0,0, UIZ_MAX
)
380 n_perr(_("Unable to (dot) lock mailbox"), 0);
383 rv
= getapproval(_("Continue, possibly loosing changes"), TRU1
);
388 if (!fstat(fileno(fbuf
), &minfo
) && minfo
.st_size
> mailsize
) {
389 printf(_("New mail has arrived.\n"));
390 rbuf
= Ftmp(NULL
, "quit", OF_RDWR
| OF_UNLINK
| OF_REGISTER
);
391 if (rbuf
== NULL
|| fbuf
== NULL
)
394 fseek(fbuf
, (long)mailsize
, SEEK_SET
);
395 while ((c
= getc(fbuf
)) != EOF
)
398 p
= minfo
.st_size
- mailsize
;
409 anystat
= holdbits();
411 for (c
= 0, p
= 0, mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
) {
412 if (mp
->m_flag
& MBOX
)
414 if (mp
->m_flag
& MPRESERVE
)
416 if (mp
->m_flag
& MODIFY
)
419 if (p
== msgCount
&& !modify
&& !anystat
) {
422 printf(_("Held 1 message in %s\n"), displayname
);
424 printf(_("Held %d messages in %s\n"), p
, displayname
);
430 if (writeback(rbuf
, fbuf
) >= 0)
433 rv
= getapproval(_("Continue, possibly loosing changes"), TRU1
);
439 if (makembox() == STOP
) {
440 rv
= getapproval(_("Continue, possibly loosing changes"), TRU1
);
444 /* Now we are ready to copy back preserved files to the system mailbox, if
445 * any were requested */
447 if (writeback(rbuf
, fbuf
) < 0)
448 rv
= getapproval(_("Continue, possibly loosing changes"), TRU1
);
452 /* Finally, remove his file. If new mail has arrived, copy it back */
456 fseek(abuf
, 0L, SEEK_SET
);
457 while ((c
= getc(rbuf
)) != EOF
)
470 if (lckfp
!= NULL
&& lckfp
!= (FILE*)-1)
481 int anystat
, autohold
, holdbit
, nohold
;
485 autohold
= ok_blook(hold
);
486 holdbit
= autohold
? MPRESERVE
: MBOX
;
487 nohold
= MBOX
| MSAVED
| MDELETED
| MPRESERVE
;
488 if (ok_blook(keepsave
))
490 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
) {
491 if (mp
->m_flag
& MNEW
) {
493 mp
->m_flag
|= MSTATUS
;
495 if (mp
->m_flag
& (MSTATUS
| MFLAG
| MUNFLAG
| MANSWER
| MUNANSWER
|
498 if (!(mp
->m_flag
& MTOUCH
))
499 mp
->m_flag
|= MPRESERVE
;
500 if (!(mp
->m_flag
& nohold
))
501 mp
->m_flag
|= holdbit
;
508 makembox(void) /* TODO oh my god */
511 char *mbox
, *tempQuit
;
513 FILE *ibuf
= NULL
, *obuf
, *abuf
;
519 if (!ok_blook(append
)) {
520 if ((obuf
= Ftmp(&tempQuit
, "makembox",
521 OF_WRONLY
| OF_HOLDSIGS
| OF_REGISTER
)) == NULL
) {
522 n_perr(_("temporary mail quit file"), 0);
525 if ((ibuf
= Fopen(tempQuit
, "r")) == NULL
)
527 Ftmp_release(&tempQuit
);
533 if ((abuf
= Zopen(mbox
, "r")) != NULL
) {
534 while ((c
= getc(abuf
)) != EOF
)
539 n_perr(_("temporary mail quit file"), 0);
546 if ((c
= open(mbox
, (O_WRONLY
| O_CREAT
| n_O_NOFOLLOW
| O_TRUNC
), 0666)
549 if ((obuf
= Zopen(mbox
, "r+")) == NULL
) {
555 if ((obuf
= Zopen(mbox
, "a")) == NULL
) {
562 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
) {
563 if (mp
->m_flag
& MBOX
) {
565 if (sendmp(mp
, obuf
, saveignore
, NULL
, SEND_MBOX
, NULL
) < 0) {
573 mp
->m_flag
|= MBOXED
;
579 /* Copy the user's old mbox contents back to the end of the stuff we just
580 * saved. If we are appending, this is unnecessary */
581 if (!ok_blook(append
)) {
599 if (Fclose(obuf
) != 0) {
604 printf(_("Saved 1 message in mbox\n"));
606 printf(_("Saved %d messages in mbox\n"), mcount
);
614 save_mbox_for_possible_quitstuff(void) /* TODO try to get rid of that */
619 if ((cp
= expand("&")) == NULL
)
621 n_strscpy(_mboxname
, cp
, sizeof _mboxname
);
628 enum quitflags qf
= 0;
632 for (i
= 0; i
< NELEM(_quitnames
); ++i
)
633 if (n_var_oklook(_quitnames
[i
].okey
) != NULL
)
634 qf
|= _quitnames
[i
].flag
;
640 restorequitflags(int qf
)
645 for (i
= 0; i
< NELEM(_quitnames
); ++i
) {
646 char *x
= n_var_oklook(_quitnames
[i
].okey
);
647 if (qf
& _quitnames
[i
].flag
) {
649 n_var_okset(_quitnames
[i
].okey
, TRU1
);
650 } else if (x
!= NULL
)
651 n_var_okclear(_quitnames
[i
].okey
);