select.c 3.01 KB
/* GNU mailutils - a suite of utilities for electronic mail
   Copyright (C) 1999, 2001 Free Software Foundation, Inc.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */

#include "imap4d.h"

/* select          ::= "SELECT" SPACE mailbox  */

int
imap4d_select (struct imap4d_command *command, char *arg)
{
  return imap4d_select0 (command, arg, MU_STREAM_RDWR);
}

/* This code is share with EXAMINE.  */
int
imap4d_select0 (struct imap4d_command *command, char *arg, int flags)
{
  char *mailbox_name, *sp = NULL;
  struct passwd *pw;

  /* FIXME: Check state.  */

  mailbox_name = util_getword (arg, &sp);
  if (mailbox_name == NULL)
    return util_finish (command, RESP_BAD, "Too few arguments");
  if (util_getword (NULL, &sp))
    return util_finish (command, RESP_BAD, "Too many arguments");

  if (mbox)
    {
      mailbox_close (mbox);
      mailbox_destroy (&mbox);
    }

  if (strcasecmp (mailbox_name, "INBOX") == 0)
    {
      pw = getpwuid (getuid());
      if (pw)
	mailbox_name = pw->pw_name;
    }

  if (mailbox_create_default (&mbox, mailbox_name) == 0
      && mailbox_open (mbox, flags) == 0)
    {
      const char *mflags = "\\Answered \\Flagged \\Deleted \\Seen \\Draft";
      const char *pflags = "\\Answered \\Flagged \\Deleted \\Seen \\Draft";
      unsigned long uidvalidity = 0;
      size_t count = 0, recent = 0, unseen = 0, uidnext = 0;

      mailbox_uidvalidity (mbox, &uidvalidity);
      mailbox_uidnext (mbox, &uidnext);
      mailbox_messages_count (mbox, &count);
      mailbox_messages_recent (mbox, &recent);
      mailbox_message_unseen (mbox, &unseen);
      util_out (RESP_NONE, "%d EXISTS", count);
      util_out (RESP_NONE, "%d RECENT", recent);
      util_out (RESP_OK, "[UIDVALIDITY (%d)] UID valididy status",
		uidvalidity);
      util_out (RESP_OK, "[UIDNEXT %d] Predicted next uid", uidnext);
      if (unseen)
	util_out (RESP_OK, "[UNSEEN (%d)] %d is first unseen messsage ",
		  unseen, unseen);
      util_out (RESP_NONE, "FLAGS (%s)", mflags);
      /* FIXME:
	 - '\*' can be supported if we use the attribute_set userflag()
	 - Answered is still not set in the mailbox code.  */
      util_out (RESP_OK, "[PERMANENTFLAGS (%s)] Permanent flags", pflags);
      return util_send ("%s OK [%s] %s Complete\r\n", command->tag,
			(MU_STREAM_READ == flags) ?
			"READ-ONLY" : "READ-WRITE", command->name);
    }
  return util_finish (command, RESP_NO, "Couldn't open %s", mailbox_name);
}