src/imap.c

   1 /* imap.c --- Implement IMAP profile of SASL login.
   2  * Copyright (C) 2002, 2003, 2004, 2005  Simon Josefsson
   3  *
   4  * This file is part of GNU SASL.
   5  *
   6  * GNU SASL is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * GNU SASL is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with GNU SASL; if not, write to the Free Software Foundation,
  18  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  19  *
  20  */
  21
  22 #include "imap.h"
  23
  24 #define MAX_LINE_LENGTH BUFSIZ
  25
  26 int
  27 imap_greeting (void)
  28 {
  29   char *in;
  30
  31   if (!readln (&in))
  32     return 0;
  33
  34   return 1;
  35 }
  36
  37 int
  38 imap_has_starttls (void)
  39 {
  40   char *in, *capa;
  41   int has_tls = 0;
  42
  43   if (!writeln (". CAPABILITY"))
  44     return 0;
  45
  46   if (!readln (&in))
  47     return 0;
  48
  49   has_tls = strstr (in, "STARTTLS") != NULL;
  50
  51   if (!readln (&in))
  52     return 0;
  53
  54   return has_tls;
  55 }
  56
  57 int
  58 imap_starttls (void)
  59 {
  60   char *in;
  61
  62   if (!writeln (". STARTTLS"))
  63     return 0;
  64
  65   if (!readln (&in))
  66     return 0;
  67
  68   return 1;
  69 }
  70
  71 int
  72 imap_select_mechanism (char **mechlist)
  73 {
  74   char *in;
  75
  76   if (args_info.server_flag)
  77     {
  78       if (!args_info.quiet_given)
  79         fprintf (stderr, _("Chose SASL mechanisms:\n"));
  80       if (!readln (&in))
  81         return 0;
  82       *mechlist = in;
  83     }
  84   else
  85     {
  86       if (!writeln (". CAPABILITY"))
  87         return 0;
  88
  89       if (!readln (&in))
  90         return 0;
  91
  92       /* XXX parse IMAP capability line */
  93
  94       *mechlist = in;
  95
  96       if (!readln (&in))
  97         return 0;
  98     }
  99
 100   return 1;
 101 }
 102
 103 int
 104 imap_authenticate (const char *mech)
 105 {
 106   if (args_info.server_flag)
 107     {
 108       if (!args_info.quiet_given)
 109         fprintf (stderr, _("Using mechanism:\n"));
 110       puts (mech);
 111     }
 112   else
 113     {
 114       char input[MAX_LINE_LENGTH];
 115
 116       sprintf (input, ". AUTHENTICATE %s", mech);
 117       if (!writeln (input))
 118         return 0;
 119     }
 120
 121   return 1;
 122 }
 123
 124 int
 125 imap_step_send (const char *data)
 126 {
 127   char input[MAX_LINE_LENGTH];
 128
 129   if (args_info.server_flag)
 130     sprintf (input, "+ %s", data);
 131   else
 132     sprintf (input, "%s", data);
 133   if (!writeln (input))
 134     return 0;
 135
 136   return 1;
 137 }
 138
 139 int
 140 imap_step_recv (char **data)
 141 {
 142   char *p;
 143
 144   if (!readln (data))
 145     return 0;
 146
 147   p = *data;
 148
 149   if (p[0] != '+' || p[1] != ' ')
 150     {
 151       fprintf (stderr, _("error: Server did not return expected SASL "
 152                          "data (it must begin with '+ '):\n%s\n"), p);
 153       return 0;
 154     }
 155
 156   memmove (&p[0], &p[2], strlen (p) - 1);
 157
 158   if (p[strlen (p) - 1] == '\n')
 159     p[strlen (p) - 1] = '\0';
 160   if (p[strlen (p) - 1] == '\r')
 161     p[strlen (p) - 1] = '\0';
 162
 163   return 1;
 164 }
 165
 166 int
 167 imap_auth_finish (void)
 168 {
 169   char *in;
 170
 171   if (!readln (&in))
 172     return 0;
 173
 174   return 1;
 175 }
 176
 177 int
 178 imap_logout (void)
 179 {
 180   char *in;
 181
 182   if (!writeln (". LOGOUT"))
 183     return 0;
 184
 185   /* read "* BYE ..." */
 186   if (!readln (&in))
 187     return 0;
 188
 189   free (in);
 190
 191   /* read ". OK ..." */
 192   if (!readln (&in))
 193     return 0;
 194
 195   free (in);
 196
 197   return 1;
 198 }