Implemented STORE in IMAP4

+2001-04-25 Alain Magloire
+
+	* imap4d/store.c: First implementation.
+	* mailbox/attribute.c (attribute_unsee_flags): New function.
+
 2001-04-23 Sergey Poznyakoff
 
 	* mailbox/mbx_mbox.c (mbx_expunge): It assumes that mbox_get_message()

@@ -41,12 +41,8 @@ imap4d_status (struct imap4d_command *command, char *arg)
     return util_finish (command, RESP_BAD, "Wrong state");
 
   name = util_getword (arg, &sp);
-  if (!name || !sp)
-    return util_finish (command, RESP_BAD, "Too few args");
-
   util_unquote (&name);
-
-  if (*name == '\0' || *sp == '\0')
+  if (!name || *name == '\0' || !sp || *sp == '\0')
     return util_finish (command, RESP_BAD, "Too few args");
 
   if (strcasecmp (name, "INBOX") == 0)

@@ -20,11 +20,131 @@
 /*
  * Now you're messing with a sumbitch
  */
+static int get_attribute_type __P ((const char *, int *));
 
 int
 imap4d_store (struct imap4d_command *command, char *arg)
 {
+  char *msgset;
+  char *data;
+  char *sp = NULL;
+  int status;
+  int ack = 0;
+  size_t i, n = 0;
+  int *set = NULL;
+  enum value_type { STORE_SET, STORE_ADD, STORE_UNSET } how;
+
   if (! (command->states & state))
     return util_finish (command, RESP_BAD, "Wrong state");
-  return util_finish (command, RESP_NO, "Not supported");
+
+  msgset = util_getword (arg, &sp);
+  data = util_getword (NULL, &sp);
+
+  if (!msgset || !data || !sp || *sp == '\0')
+    return util_finish (command, RESP_BAD, "Too few args");
+
+  /* The parsing of the data-item is a little slugish.  */
+  if (strcasecmp (data, "FLAGS") == 0)
+    {
+      ack = 1;
+      how = STORE_SET;
+    }
+  else if (strcasecmp (data, "+FLAGS") == 0)
+    {
+      ack = 1;
+      how = STORE_ADD;
+    }
+  else if (strcasecmp (data, "-FLAGS") == 0)
+    {
+      ack = 1;
+      how = STORE_UNSET;
+    }
+  else if (strcasecmp (data, "FLAGS.SILENT") == 0)
+    {
+      ack = 0;
+      how = STORE_SET;
+    }
+  else if (strcasecmp (data, "+FLAGS.SILENT") == 0)
+    {
+      ack = 0;
+      how = STORE_ADD;
+    }
+  else if (strcasecmp (data, "-FLAGS.SILENT") == 0)
+    {
+      ack = 0;
+      how = STORE_UNSET;
+    }
+  else
+    return util_finish (command, RESP_BAD, "Bogus data item");
+
+  /* Get the message numbers in set[].  */
+  status = util_msgset (msgset, &set, &n, 0);
+  if (status != 0)
+    return util_finish (command, RESP_BAD, "Bogus number set");
+
+  for (i = 0; i < n; i++)
+    {
+      message_t msg = NULL;
+      attribute_t attr = NULL;
+      char *items = strdup (sp); /* Don't use the orignal list.  */
+      char *flags = strdup ("");
+      int first = 1;
+
+      mailbox_get_message (mbox, set[i], &msg);
+      message_get_attribute (msg, &attr);
+
+      /* Get the fetch command names.  */
+      while (*items && *items != ')')
+	{
+	  int type = 0;
+	  char item[64] = "";
+	  util_token (item, sizeof (item), &items);
+	  if (get_attribute_type (item, &type))
+	    {
+	      if (how == STORE_ADD )
+		attribute_set_flags (attr, type);
+	      else if (how == STORE_UNSET )
+		attribute_unset_flags (attr, type);
+	      else if (how == STORE_SET )
+		{
+		  if (first)
+		    {
+		      attribute_set_flags (attr, 0);
+		      first = 0;
+		    }
+		  attribute_set_flags (attr, type);
+		}
+	      flags = realloc (flags, strlen (flags) + strlen (item) + 2);
+	      if (*flags)
+		strcat (flags, " ");
+	      strcat (flags, item);
+	    }
+	}
+      if (ack && *flags)
+	util_out (RESP_NONE, "%d FETCH FLAGS (%s)", set[i], flags);
+      free (items);
+      free (flags);
+    }
+  free (set);
+  return util_finish (command, RESP_OK, "Completed");
+}
+
+static int
+get_attribute_type (const char *item, int *type)
+{
+  if (strcasecmp (item, "\\Answered") == 0)
+    *type = MU_ATTRIBUTE_ANSWERED;
+  else if (strcasecmp (item, "\\Deleted") == 0)
+    *type = MU_ATTRIBUTE_DELETED;
+  else if (strcasecmp (item, "\\Draft") == 0)
+    *type = MU_ATTRIBUTE_DRAFT;
+  else if (strcasecmp (item, "\\Flagged") == 0)
+    *type = MU_ATTRIBUTE_FLAGGED;
+  else if (strcasecmp (item, "\\Recent") == 0)
+    *type = MU_ATTRIBUTE_RECENT;
+  else if (strcasecmp (item, "\\Seen") == 0)
+    *type = MU_ATTRIBUTE_SEEN;
+  else
+    return 0;
+  return 1;
 }

@@ -79,6 +79,7 @@ extern int attribute_unset_read      __P ((attribute_t));
 
 extern int attribute_get_flags       __P ((attribute_t, int *));
 extern int attribute_set_flags       __P ((attribute_t, int));
+extern int attribute_unset_flags     __P ((attribute_t, int));
 
 extern int attribute_set_set_flags   __P ((attribute_t, int (*_set_flags)
 					   __P ((attribute_t, int)), void *));

@@ -102,6 +102,17 @@ attribute_set_flags (attribute_t attr, int flags)
 }
 
 int
+attribute_unset_flags (attribute_t attr, int flags)
+{
+  if (attr == NULL)
+    return EINVAL;
+  if (attr->_unset_flags)
+    attr->_unset_flags (attr, flags);
+  attr->flags &= ~flags;
+  return 0;
+}
+
+int
 attribute_set_get_flags (attribute_t attr, int (*_get_flags)
 			 (attribute_t, int *), void *owner)
 {