[mew-dist 29486] Re: Mew 6.5rc1 <- stunnel-4.53 abort

From: Kazu Yamamoto () <[email protected]>
> 
> > +            s_log(LOG_DEBUG, "Service [%s] (FD=%d) bound to %s",
> 
> 

  Mew version 6.5rc1 stunnel 


:		stunnel-4.52
C-g:	stunnel-4.53

  mew  debug  mew-ssl-filter1
mew-ssl-filter2 


---  (stunnel-4.52)
2012.03.28 17:07:20 LOG6[54368:675303168]: SSL connected: new session negotiated
2012.03.28 17:07:20 LOG6[54368:675303168]: Negotiated ciphers: RC4-SHA SSLv3 Kx=RSA Au=RSA Enc=RC4(128) Mac=SHA1
2012.03.28 17:07:20 LOG6[54368:675303168]: Compression: null, expansion: null
---

--- C-g 
2012.03.28 16:48:34 LOG6[49776:675302400]: SSL connected: new session negotiated
2012.03.28 16:48:34 LOG6[49776:675302400]: Negotiated TLSv1/SSLv3 ciphersuite: RC4-SHA (128-bit encryption)
2012.03.28 16:48:34 LOG6[49776:675302400]: Compression: null, expansion: null
---

stunnel 

---
--- stunnel-4.52/src/client.c   2012-01-12 00:43:33.000000000 +0900
+++ stunnel-4.53/src/client.c   2012-03-05 20:11:06.000000000 +0900
@@ -851,23 +891,9 @@
     if(global_options.debug_level<LOG_INFO) /* performance optimization */
         return;
     cipher=(SSL_CIPHER *)SSL_get_current_cipher(c->ssl);
-    buf=SSL_CIPHER_description(cipher, NULL, 0);
-    i=j=buf;
-    do {
-        switch(*i) {
-        case ' ':
-            *j++=' ';
-            while(i[1]==' ')
-                ++i;
-            break;
-        case '\n':
-            break;
-        default:
-            *j++=*i;
-        }
-    } while(*i++);
-    s_log(LOG_INFO, "Negotiated ciphers: %s", buf);
-    OPENSSL_free(buf);
+    s_log(LOG_INFO, "Negotiated %s ciphersuite: %s (%d-bit encryption)",
+        SSL_CIPHER_get_version(cipher), SSL_CIPHER_get_name(cipher),
+        SSL_CIPHER_get_bits(cipher, NULL));

 #if !defined(OPENSSL_NO_COMP) && OPENSSL_VERSION_NUMBER>=0x0090800fL
     compression=SSL_get_current_compression(c->ssl);
---


mew-ssl.el 

--- mew-ssl.el.orig     2012-03-28 17:23:05.000000000 +0900
+++ mew-ssl.el  2012-03-28 17:23:09.000000000 +0900
@@ -231,7 +231,7 @@
       (mew-ssl-set-string pnm string)
       (setq string (concat prev-str string))
       (cond
-       ((string-match "Negotiated ciphers\\|opened with SSL" string)
+       ((string-match "Negotiated \\|opened with SSL" string)
        (mew-ssl-set-status pnm t))
        ((string-match "Failed to initialize" string)
        (mew-ssl-set-status pnm t)) ;; xxx
---


  
(FreeBSD 8.3-STABLE)


   OS (FreeBSD 9.0-STABLE)  OS
 FreeBSD  ports  Negotiated 



---
Contact to me.
takachan[at]running-dog.net     http://www.running-dog.net/
takachan[at]icmpv6.org          http://icmpv6.org/