cmd-folder.c

   1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
   2  *@ Folder related user commands.
   3  *
   4  * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
   5  * Copyright (c) 2012 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   6  */
   7 /*
   8  * Copyright (c) 1980, 1993
   9  *      The Regents of the University of California.  All rights reserved.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  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.
  22  *
  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
  33  * SUCH DAMAGE.
  34  */
  35 #undef n_FILE
  36 #define n_FILE cmd_folder
  37
  38 #ifndef HAVE_AMALGAMATION
  39 # include "nail.h"
  40 #endif
  41
  42 /* c_file, c_File */
  43 static int        _c_file(void *v, enum fedit_mode fm);
  44
  45 static int
  46 _c_file(void *v, enum fedit_mode fm)
  47 {
  48    char **argv = v;
  49    int i;
  50    NYD2_ENTER;
  51
  52    if(*argv == NULL){
  53       n_folder_announce(n_ANNOUNCE_STATUS);
  54       i = 0;
  55       goto jleave;
  56    }
  57
  58    if (n_pstate & n_PS_HOOK_MASK) {
  59       n_err(_("Cannot change folder from within a hook\n"));
  60       i = 1;
  61       goto jleave;
  62    }
  63
  64    save_mbox_for_possible_quitstuff();
  65
  66    i = setfile(*argv, fm);
  67    if (i < 0) {
  68       i = 1;
  69       goto jleave;
  70    }
  71    assert(!(fm & FEDIT_NEWMAIL)); /* (Prevent implementation error) */
  72    if (n_pstate & n_PS_SETFILE_OPENED)
  73       temporary_folder_hook_check(FAL0);
  74
  75    if (i > 0) {
  76       /* TODO Don't report "no messages" == 1 == error when we're in, e.g.,
  77        * TODO a macro: because that recursed commando loop will terminate the
  78        * TODO entire macro due to that!  So either the user needs to be able
  79        * TODO to react&ignore this "error" (as in "if DOSTUFF" or "DOSTUFF;
  80        * TODO if $?", then "overriding an "error"), or we need a different
  81        * TODO return that differentiates */
  82       i = (n_pstate & n_PS_ROBOT) ? 0 : 1;
  83       goto jleave;
  84    }
  85
  86    if(n_pstate & n_PS_SETFILE_OPENED)
  87       n_folder_announce(n_ANNOUNCE_CHANGE);
  88    i = 0;
  89 jleave:
  90    NYD2_LEAVE;
  91    return i;
  92 }
  93
  94 FL int
  95 c_file(void *v)
  96 {
  97    int rv;
  98    NYD_ENTER;
  99
 100    rv = _c_file(v, FEDIT_NONE);
 101    NYD_LEAVE;
 102    return rv;
 103 }
 104
 105 FL int
 106 c_File(void *v)
 107 {
 108    int rv;
 109    NYD_ENTER;
 110
 111    rv = _c_file(v, FEDIT_RDONLY);
 112    NYD_LEAVE;
 113    return rv;
 114 }
 115
 116 FL int
 117 c_newmail(void *v)
 118 {
 119    int val = 1, mdot;
 120    NYD_ENTER;
 121    n_UNUSED(v);
 122
 123    if (n_pstate & n_PS_HOOK_MASK)
 124       n_err(_("Cannot call `newmail' from within a hook\n"));
 125 #ifdef HAVE_IMAP
 126    else if(mb.mb_type == MB_IMAP && !imap_newmail(1))
 127       ;
 128 #endif
 129    else if ((val = setfile(mailname,
 130             FEDIT_NEWMAIL | ((mb.mb_perm & MB_DELE) ? 0 : FEDIT_RDONLY))
 131          ) == 0) {
 132       mdot = getmdot(1);
 133       setdot(message + mdot - 1);
 134    }
 135    NYD_LEAVE;
 136    return val;
 137 }
 138
 139 FL int
 140 c_noop(void *v)
 141 {
 142    int rv = 0;
 143    NYD_ENTER;
 144    n_UNUSED(v);
 145
 146    switch (mb.mb_type) {
 147 #ifdef HAVE_POP3
 148    case MB_POP3:
 149       pop3_noop();
 150       break;
 151 #endif
 152 #ifdef HAVE_IMAP
 153    case MB_IMAP:
 154       imap_noop();
 155       break;
 156 #endif
 157    default:
 158       break;
 159    }
 160    NYD_LEAVE;
 161    return rv;
 162 }
 163
 164 FL int
 165 c_remove(void *v)
 166 {
 167    char const *fmt;
 168    size_t fmt_len;
 169    char **args, *name, *ename;
 170    int ec;
 171    NYD_ENTER;
 172
 173    if (*(args = v) == NULL) {
 174       n_err(_("Synopsis: remove: <mailbox>...\n"));
 175       ec = 1;
 176       goto jleave;
 177    }
 178
 179    ec = 0;
 180
 181    fmt = _("Remove %s");
 182    fmt_len = strlen(fmt);
 183    do {
 184       if ((name = fexpand(*args, FEXP_FULL)) == NULL)
 185          continue;
 186       ename = n_shexp_quote_cp(name, FAL0);
 187
 188       if (!strcmp(name, mailname)) {
 189          n_err(_("Cannot remove current mailbox %s\n"), ename);
 190          ec |= 1;
 191          continue;
 192       }
 193       /* C99 */{
 194          bool_t asw;
 195          char *vb;
 196          size_t vl;
 197
 198          vl = strlen(ename) + fmt_len +1;
 199          vb = salloc(vl);
 200          snprintf(vb, vl, fmt, ename);
 201          asw = getapproval(vb, TRU1);
 202          if (!asw)
 203             continue;
 204       }
 205
 206       switch (which_protocol(name, TRU1, FAL0, NULL)) {
 207       case PROTO_FILE:
 208          if (unlink(name) == -1) {
 209             int se = n_err_no;
 210
 211             if (se == n_ERR_ISDIR) {
 212                struct stat sb;
 213
 214                if (!stat(name, &sb) && S_ISDIR(sb.st_mode)) {
 215                   if (!rmdir(name))
 216                      break;
 217                   se = n_err_no;
 218                }
 219             }
 220             n_perr(name, se);
 221             ec |= 1;
 222          }
 223          break;
 224       case PROTO_POP3:
 225          n_err(_("Cannot remove POP3 mailbox %s\n"), ename);
 226          ec |= 1;
 227          break;
 228       case PROTO_MAILDIR:
 229          if (maildir_remove(name) != OKAY)
 230             ec |= 1;
 231          break;
 232       case PROTO_IMAP:
 233 #ifdef HAVE_IMAP
 234          if(imap_remove(name) != OKAY)
 235             ec |= 1;
 236 #else
 237          n_err(_("No IMAP support compiled in\n"));
 238          ec |= 1;
 239 #endif
 240          break;
 241       case PROTO_UNKNOWN:
 242       default:
 243          n_err(_("Not removed: unknown protocol: %s\n"), ename);
 244          ec |= 1;
 245          break;
 246       }
 247    } while (*++args != NULL);
 248 jleave:
 249    NYD_LEAVE;
 250    return ec;
 251 }
 252
 253 FL int
 254 c_rename(void *v)
 255 {
 256    char **args = v, *oldn, *newn;
 257    enum protocol oldp;
 258    int ec;
 259    NYD_ENTER;
 260
 261    ec = 1;
 262
 263    if (args[0] == NULL || args[1] == NULL || args[2] != NULL) {
 264       n_err(_("Synopsis: rename: <old> <new>\n"));
 265       goto jleave;
 266    }
 267
 268    if ((oldn = fexpand(args[0], FEXP_FULL)) == NULL)
 269       goto jleave;
 270    oldp = which_protocol(oldn, TRU1, FAL0, NULL);
 271    if ((newn = fexpand(args[1], FEXP_FULL)) == NULL)
 272       goto jleave;
 273    if(oldp != which_protocol(newn, TRU1, FAL0, NULL)) {
 274       n_err(_("Can only rename folders of same type\n"));
 275       goto jleave;
 276    }
 277    if (!strcmp(oldn, mailname) || !strcmp(newn, mailname)) {
 278       n_err(_("Cannot rename current mailbox %s\n"),
 279          n_shexp_quote_cp(oldn, FAL0));
 280       goto jleave;
 281    }
 282
 283    ec = 0;
 284
 285    if (oldp == PROTO_POP3)
 286       goto jnopop3;
 287    switch (oldp) {
 288    case PROTO_FILE:
 289       if (link(oldn, newn) == -1) {
 290          switch (n_err_no) {
 291          case n_ERR_ACCES:
 292          case n_ERR_EXIST:
 293          case n_ERR_NAMETOOLONG:
 294          case n_ERR_NOSPC:
 295          case n_ERR_XDEV:
 296             n_perr(newn, 0);
 297             break;
 298          default:
 299             n_perr(oldn, 0);
 300             break;
 301          }
 302          ec |= 1;
 303       } else if (unlink(oldn) == -1) {
 304          n_perr(oldn, 0);
 305          ec |= 1;
 306       }
 307       break;
 308    case PROTO_MAILDIR:
 309       if (rename(oldn, newn) == -1) {
 310          n_perr(oldn, 0);
 311          ec |= 1;
 312       }
 313       break;
 314    case PROTO_POP3:
 315 jnopop3:
 316       n_err(_("Cannot rename POP3 mailboxes\n"));
 317       ec |= 1;
 318       break;
 319    case PROTO_IMAP:
 320 #ifdef HAVE_IMAP
 321       if(imap_rename(oldn, newn) != OKAY)
 322          ec |= 1;
 323 #else
 324       n_err(_("No IMAP support compiled in\n"));
 325       ec |= 1;
 326 #endif
 327       break;
 328    case PROTO_UNKNOWN:
 329    default:
 330       n_err(_("Unknown protocol in %s and %s; not renamed\n"),
 331          n_shexp_quote_cp(oldn, FAL0), n_shexp_quote_cp(newn, FAL0));
 332       ec |= 1;
 333       break;
 334    }
 335 jleave:
 336    NYD_LEAVE;
 337    return ec;
 338 }
 339
 340 FL int
 341 c_folders(void *v){ /* TODO fexpand*/
 342    enum fexp_mode const fexp = FEXP_NSHELL
 343 #ifndef HAVE_IMAP
 344          | FEXP_LOCAL
 345 #endif
 346       ;
 347
 348    char const *cp;
 349    char **argv;
 350    int rv;
 351    NYD_ENTER;
 352
 353    rv = 1;
 354
 355    if(*(argv = v) != NULL){
 356       if((cp = fexpand(*argv, fexp)) == NULL)
 357          goto jleave;
 358    }else
 359       cp = n_folder_query();
 360
 361 #ifdef HAVE_IMAP
 362    if(which_protocol(cp, FAL0, FAL0, NULL) == PROTO_IMAP)
 363       rv = imap_folders(cp, *argv == NULL);
 364    else
 365 #endif
 366    rv = n_child_run(ok_vlook(LISTER), 0, n_CHILD_FD_PASS, n_CHILD_FD_PASS,
 367          cp, NULL, NULL, NULL, NULL);
 368 jleave:
 369    NYD_LEAVE;
 370    return rv;
 371 }
 372
 373 /* s-it-mode */