mutt-sasl2.patch

   1 diff -durN mutt-1.4.orig/configure.in mutt-1.4/configure.in
   2 --- mutt-1.4.orig/configure.in  Thu Jan  9 15:51:35 2003
   3 +++ mutt-1.4/configure.in       Thu Jan  9 15:55:52 2003
   4 @@ -570,22 +570,24 @@
   5          then
   6            if test "$with_sasl" != "yes"
   7            then
   8 -            CPPFLAGS="$CPPFLAGS -I$with_sasl/include"
   9 +            CPPFLAGS="$CPPFLAGS -I$with_sasl/include/sasl"
  10              LDFLAGS="$LDFLAGS -L$with_sasl/lib"
  11 +         else
  12 +            CPPFLAGS="$CPPFLAGS -I/usr/include/sasl"
  13            fi
  14
  15            saved_LIBS="$LIBS"
  16
  17 -          AC_CHECK_LIB(sasl, sasl_client_init,,
  18 -            AC_MSG_ERROR([could not find libsasl]),)
  19 +          AC_CHECK_LIB(sasl2, sasl_client_init,,
  20 +            AC_MSG_ERROR([could not find libsasl2]),)
  21
  22            MUTT_LIB_OBJECTS="$MUTT_LIB_OBJECTS mutt_sasl.o"
  23 -          MUTTLIBS="$MUTTLIBS -lsasl"
  24 +          MUTTLIBS="$MUTTLIBS -lsasl2"
  25            LIBS="$saved_LIBS"
  26            AC_DEFINE(USE_SASL,1,
  27                    [ Define if want to use the Cyrus SASL library for POP/IMAP authentication. ])
  28            need_sasl=yes
  29 -          need_md5=no
  30 +          need_md5=yes
  31          fi
  32          ])
  33  AM_CONDITIONAL(USE_SASL, test x$need_sasl = xyes)
  34 diff -durN mutt-1.4.orig/imap/auth_sasl.c mutt-1.4/imap/auth_sasl.c
  35 --- mutt-1.4.orig/imap/auth_sasl.c      Sun Jan 13 22:16:34 2002
  36 +++ mutt-1.4/imap/auth_sasl.c   Thu Jan  9 15:55:42 2003
  37 @@ -34,7 +34,7 @@
  38    int rc, irc;
  39    char buf[LONG_STRING];
  40    const char* mech;
  41 -  char* pc = NULL;
  42 +  const char* pc = NULL;
  43    unsigned int len, olen;
  44    unsigned char client_start;
  45
  46 @@ -63,15 +63,13 @@
  47      if (mutt_bit_isset (idata->capabilities, AUTH_ANON) &&
  48         (!idata->conn->account.user[0] ||
  49          !ascii_strncmp (idata->conn->account.user, "anonymous", 9)))
  50 -      rc = sasl_client_start (saslconn, "AUTH=ANONYMOUS", NULL, NULL, &pc, &olen,
  51 -                             &mech);
  52 +      rc = sasl_client_start (saslconn, "AUTH=ANONYMOUS", NULL, &pc, &olen, &mech);
  53    }
  54
  55    if (rc != SASL_OK && rc != SASL_CONTINUE)
  56      do
  57      {
  58 -      rc = sasl_client_start (saslconn, method, NULL, &interaction,
  59 -        &pc, &olen, &mech);
  60 +      rc = sasl_client_start (saslconn, method, &interaction, &pc, &olen, &mech);
  61        if (rc == SASL_INTERACT)
  62         mutt_sasl_interact (interaction);
  63      }
  64 @@ -109,7 +107,7 @@
  65      if (irc == IMAP_CMD_RESPOND)
  66      {
  67        if (sasl_decode64 (idata->cmd.buf+2, strlen (idata->cmd.buf+2), buf,
  68 -                        &len) != SASL_OK)
  69 +                        LONG_STRING,&len) != SASL_OK)
  70        {
  71         dprint (1, (debugfile, "imap_auth_sasl: error base64-decoding server response.\n"));
  72         goto bail;
  73 diff -durN mutt-1.4.orig/mutt_sasl.c mutt-1.4/mutt_sasl.c
  74 --- mutt-1.4.orig/mutt_sasl.c   Tue Feb 26 11:38:27 2002
  75 +++ mutt-1.4/mutt_sasl.c        Thu Jan  9 15:55:42 2003
  76 @@ -92,10 +92,13 @@
  77   * probably stop exporting mutt_sasl_get_callbacks(). */
  78  int mutt_sasl_client_new (CONNECTION* conn, sasl_conn_t** saslconn)
  79  {
  80 -  sasl_security_properties_t secprops;
  81 -  sasl_external_properties_t extprops;
  82    const char* service;
  83    int rc;
  84 +  struct sockaddr_in local, remote;
  85 +  char buf[LONG_STRING];
  86 +  char localip[LONG_STRING], remoteip[LONG_STRING];
  87 +  socklen_t size;
  88 +  sasl_security_properties_t secprops;
  89
  90    if (mutt_sasl_start () != SASL_OK)
  91      return -1;
  92 @@ -112,9 +115,21 @@
  93        dprint (1, (debugfile, "mutt_sasl_client_new: account type unset\n"));
  94        return -1;
  95    }
  96 -
  97 -  rc = sasl_client_new (service, conn->account.host,
  98 -    mutt_sasl_get_callbacks (&conn->account), SASL_SECURITY_LAYER, saslconn);
  99 +
 100 +  size = sizeof (local);
 101 +  if (getsockname (conn->fd, (struct sockaddr*) &local, &size))
 102 +    return -1;
 103 +  inet_ntop(local.sin_family, &local.sin_addr,buf,LONG_STRING);
 104 +  sprintf(localip,"%s:%i",buf,local.sin_port);
 105 +
 106 +  size = sizeof(remote);
 107 +  if (getpeername(conn->fd, (struct sockaddr*) &remote, &size))
 108 +    return -1;
 109 +  inet_ntop(remote.sin_family, &remote.sin_addr,buf,LONG_STRING);
 110 +  sprintf(remoteip,"%s:%i",buf,local.sin_port);
 111 +
 112 +  rc = sasl_client_new (service, conn->account.host, localip, remoteip,
 113 +    mutt_sasl_get_callbacks (&conn->account), 0, saslconn);
 114
 115    if (rc != SASL_OK)
 116    {
 117 @@ -123,40 +138,6 @@
 118      return -1;
 119    }
 120
 121 -  /*** set sasl IP properties, necessary for use with krb4 ***/
 122 -  /* Do we need to fail if this fails? I would assume having these unset
 123 -   * would just disable KRB4. Who wrote this code? I'm not sure how this
 124 -   * interacts with the NSS code either, since that mucks with the fd. */
 125 -  {
 126 -    struct sockaddr_in local, remote;
 127 -    socklen_t size;
 128 -
 129 -    size = sizeof (local);
 130 -    if (getsockname (conn->fd, (struct sockaddr*) &local, &size))
 131 -      return -1;
 132 -
 133 -    size = sizeof(remote);
 134 -    if (getpeername(conn->fd, (struct sockaddr*) &remote, &size))
 135 -      return -1;
 136 -
 137 -#ifdef SASL_IP_LOCAL
 138 -    if (sasl_setprop(*saslconn, SASL_IP_LOCAL, &local) != SASL_OK)
 139 -    {
 140 -      dprint (1, (debugfile,
 141 -       "mutt_sasl_client_new: Error setting local IP address\n"));
 142 -      return -1;
 143 -    }
 144 -#endif
 145 -
 146 -#ifdef SASL_IP_REMOTE
 147 -    if (sasl_setprop(*saslconn, SASL_IP_REMOTE, &remote) != SASL_OK)
 148 -    {
 149 -      dprint (1, (debugfile,
 150 -       "mutt_sasl_client_new: Error setting remote IP address\n"));
 151 -      return -1;
 152 -    }
 153 -#endif
 154 -  }
 155
 156    /* set security properties. We use NOPLAINTEXT globally, since we can
 157     * just fall back to LOGIN in the IMAP case anyway. If that doesn't
 158 @@ -181,10 +162,9 @@
 159  #if defined(USE_SSL) && !defined(USE_NSS)
 160    if (conn->account.flags & M_ACCT_SSL)
 161    {
 162 -    memset (&extprops, 0, sizeof (extprops));
 163 -    extprops.ssf = conn->ssf;
 164 -    dprint (2, (debugfile, "External SSF: %d\n", extprops.ssf));
 165 -    if (sasl_setprop (*saslconn, SASL_SSF_EXTERNAL, &extprops) != SASL_OK)
 166 +    sasl_ssf_t ssf=conn->ssf;
 167 +    dprint (2, (debugfile, "External SSF: %d\n", ssf));
 168 +    if (sasl_setprop (*saslconn, SASL_SSF_EXTERNAL, &ssf) != SASL_OK)
 169      {
 170        dprint (1, (debugfile, "mutt_sasl_client_new: Error setting external properties\n"));
 171        return -1;
 172 @@ -274,7 +254,7 @@
 173
 174    sasldata->saslconn = saslconn;
 175    /* get ssf so we know whether we have to (en|de)code read/write */
 176 -  sasl_getprop (saslconn, SASL_SSF, (void**) &sasldata->ssf);
 177 +  sasl_getprop (saslconn, SASL_SSF, (const void**) &sasldata->ssf);
 178    dprint (3, (debugfile, "SASL protection strength: %u\n", *sasldata->ssf));
 179    /* Add SASL SSF to transport SSF */
 180    conn->ssf += *sasldata->ssf;
 181 diff -durN mutt-1.4.orig/pop_auth.c mutt-1.4/pop_auth.c
 182 --- mutt-1.4.orig/pop_auth.c    Thu Aug 30 10:11:06 2001
 183 +++ mutt-1.4/pop_auth.c Thu Jan  9 15:55:42 2003
 184 @@ -41,7 +41,7 @@
 185    char buf[LONG_STRING];
 186    char inbuf[LONG_STRING];
 187    const char* mech;
 188 -  char* pc = NULL;
 189 +  const char* pc = NULL;
 190    unsigned int len, olen;
 191    unsigned char client_start;
 192
 193 @@ -56,8 +56,7 @@
 194
 195    FOREVER
 196    {
 197 -    rc = sasl_client_start (saslconn, method, NULL,
 198 -                           &interaction, &pc, &olen, &mech);
 199 +    rc = sasl_client_start (saslconn, method, &interaction, &pc, &olen, &mech);
 200      if (rc != SASL_INTERACT)
 201        break;
 202      mutt_sasl_interact (interaction);
 203 @@ -96,7 +95,7 @@
 204      if (mutt_strncmp (inbuf, "+ ", 2))
 205        goto bail;
 206
 207 -    if (sasl_decode64 (inbuf, strlen (inbuf), buf, &len) != SASL_OK)
 208 +    if (sasl_decode64 (inbuf, strlen (inbuf), buf, LONG_STRING, &len) != SASL_OK)
 209      {
 210        dprint (1, (debugfile, "pop_auth_sasl: error base64-decoding server response.\n"));
 211        goto bail;