Changeset 34423 in project


Ignore:
Timestamp:
08/27/17 16:43:20 (3 months ago)
Author:
chust
Message:

[openssl] Strip trailing dot from absolute hostnames when synthesizing SNI names

Location:
release/4/openssl/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/openssl/trunk/openssl.scm

    r34321 r34423  
    577577      (lambda ()
    578578        (when (eq? sni-name #t)
    579           (set! sni-name (and (symbolic-host? hostname port) hostname)))
     579          (set! sni-name
     580            (and
     581              (symbolic-host? hostname port)
     582              (let ((last (sub1 (string-length hostname))))
     583                (if (and (>= last 0) (eqv? (string-ref hostname last) #\.))
     584                  (substring hostname 0 last)
     585                  hostname)))))
    580586        (when sni-name
    581587          (ssl-set-tlsext-hostname! ssl sni-name))
  • release/4/openssl/trunk/openssl.setup

    r34321 r34423  
    1919  'openssl
    2020  '("openssl.scm" "openssl.so" "openssl.import.so" "openssl-static.o")
    21   '((version "1.9.2")
     21  '((version "1.9.3")
    2222    (static "openssl-static.o")
    2323    (static-options "-lssl -lcrypto -lgdi32")))
Note: See TracChangeset for help on using the changeset viewer.